Indy MemoryStream JPEG Fehler 42

[4lb3rtO]

Hallo Delphianer

Ich beschäftige mich gerade ein wenig mit MemoryStreams und hätte da ein kleines Problem beim versenden eines JPEG Image mit der Indy Komponente IdTCP. Ich erhalte einen JPEG Fehler 42 und komme an dieser Stelle leider nicht weiter.


Hiermit versuche ich zu senden:

Delphi-Quellcode:

procedure TForm1.Senden_BClick(Sender: TObject);
var
  ms: TMemoryStream;
  jpg: TJpegImage;

begin
  ms := TMemoryStream.Create;
  jpg := TJpegImage.Create;

  jpg.Assign(Image1.Picture);
  jpg.SaveToStream(ms);

  ms.Free;
  jpg.Free;
end;

Empfangen:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  ms: TMemoryStream;
  jpg: TJpegImage;

begin
  ms := TMemoryStream.Create;
  jpg := TJpegImage.Create;

  jpg.LoadFromStream(ms);
  ms.Position := 0;
  Image1.Picture.Assign(jpg);

  ms.Free;
  jpg.Free;
end;

Das jpeg soll "einfach" nur vom Client (aus einem TImage) an den Server gesendet werden und dort in ein TImage geladen werden. Kann mir vlt. jemand einen Tip geben, woran es hier scheitert?


Schöne Grüße
4lb3rtO