Registriert seit: 19. Jan 2003
732 Beiträge
Turbo Delphi für Win32
|
Re: Bitmap und Stream
1. Feb 2008, 02:07
Gehts so?
Delphi-Quellcode:
procedure TDPerson.SaveToFileStream(S: TFileStream; W: TWriter);
begin
W.WriteString(Name);
W.WriteString(Ort);
W.FlushBuffer;
Bitmap.SaveToStream(S);
end;
Dani H. At Least I Can Say I Tried
|