Image als Stream versenden

[ManuMF]

Hallo,

sieh dir erst ein mal diesen Code an.

Dann kannst du im Sender folgendes ersetzen:

Delphi-Quellcode:

var FStream : TMemoryStream;

  FStream := TMemoryStream.Create;
  Bild.Picture.Bitmap.SaveToStream(FStream);
  IDS := TidStreamVCL.Create(FStream);

Und im Empfänger das:

Delphi-Quellcode:

var FSTream : TMemoryStream;

  FStream := TMemoryStream.Create;
  IDS := TidStreamVCL.Create(FStream);

  Bild.Picture.Bitmap.LoadFromStream(FStream);

  FStream.Free;
  IDS.Free;
end;

Die Datei-Open-/Save-Dialoge fallen dann natürlich weg.
Diese Lösung müsste aufs Erste funktionieren.

Wenn nicht, dann nimm doch FileStreams, wie im Beispiel, aber natürlich gespeichert von der Grafik (LoadFromStream...).

Gruß,
ManuMF