Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Stream to byte, byte to Stream
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Stream to byte, byte to Stream

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,234 Saniyede Yüklendi. [power by : WebWiz]