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