Stream to byte, byte to Stream

   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

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798	Alıntı Cevapla Konu: Stream to byte, byte to Stream 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
	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil