Datakent Forum : Stream to byte, byte to Stream http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : Stream to byte, byte to Stream Thu, 30 Apr 2026 12:58:14 +0000 Sun, 06 Sep 2009 14:40:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=1787 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Stream to byte, byte to Stream : type TByteArray = Array of Byte; procedure... http://forum.datakent.com/forum_posts.asp?TID=1787&PID=3893#3893 Yazar: murat turan
Konu: 1787
Gönderim Zamanı: 06.Eylül.2009 Saat 14:40

type
  TByteArray  =  Array of Byte;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Stream : tmemorystream;
  Stream2: tmemorystream;
  buf2     :TByteArray;
begin
  Stream :=TMemoryStream.Create;
  Stream.LoadFromFile('C:\test.txt');
  Stream.Position := 0;
 
  //Stream to byte
  SetLength(buf2, Stream.Size);
  Stream.Read(buf2[0], Stream.Size);
  FreeAndNil(Stream);
 
  //byte to Stream
  Stream2 := TMemoryStream.Create;
  Stream2.Write(buf2[0],Length(buf2));
  Stream2.SaveToFile('C:\test2.txt');
  FreeAndNil(Stream2);
end;
 
*** eğer indy10 da TCP nesnesi ile byte veri gönderecekiseniz uses 'a  IdGlobal  ekleyin ve buf2     :TByteArray;  değişkenini buf2     :TBytes;  olarak değiştirin.

IdTCPClient1.IOHandler.WriteDirect(buf2);


Düzenleyen murat turan - 06.Eylül.2009 Saat 14:42]]> Sun, 06 Sep 2009 14:40:59 +0000 http://forum.datakent.com/forum_posts.asp?TID=1787&PID=3893#3893