(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: TFIleStream und Pointer
4. Nov 2004, 06:26
Delphi-Quellcode:
procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal; Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
var LStream: TFileStream;
begin
LStream := TFileStream.Create('e:\text.txt', fmCreate);
LStream.Write(Data^, DataLen);
LStream.Free;
Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|