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