Mit den guten TCPIP Komponenten habe ich auch so manchmal meine Probleme:
ich habe es über den IOHandler direkt gelöst und hier auch größere Dateien immer problemlos und schnell übertragen können. ist mal ein anderer Ansatz :
Code:
procedure TFM_Haupt.IdTCPServer1Execute(AContext: TIdContext);
var
jpg : TJpegImage;
FStream: TMemoryStream;
begin
FStream := TMemoryStream.Create;
jpg := TJpegImage.Create;
try
FM_Haupt.RE_LOG.Lines.Add('Bild ist gekommen');
AContext.connection.IOHandler.ReadStream(FStream);
FStream.Position := 0;
jpg.LoadFromStream(FStream);
jpg.SaveToFile('test.jpg');
Image1.Picture.LoadFromFile('test.jpg');
finally
AContext.connection.Disconnect;
end;
FreeAndNil(FStream);
Image1.Top:=1;
end;