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

[stahli]

Du kannst Dir mal das Testprojekt anschauen: http://www.delphipraxis.net/170904-i...bertragen.html

[Union]

Das liegt daran dass Du
* Den Stream ins Nichts schreibst - in einen lokalen Memorystream. Verwende die Methode IOHandler.Write des Clients.

* Den Stream aus dem Nichts liest - aus einem lokalen, leeren Memorystream. Verwende AContext.Connection.IOHandler.ReadStream

[4lb3rtO]

Ich danke euch vielmals. Hab Stunden damit verbracht eine Lösung dafür zu finden.

@stahli: Bei der umfangreichen Google-Suche bin ich auch auf dein Demo-Projekt gestoßen. Nur konnte ich leider aufgrund meiner bescheidenen Delphi Kenntnisse nicht allzu viel damit anfangen:)


So funktioniert es zumindest:
Client:

Delphi-Quellcode:

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

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

  jpg.Assign(Image1.Picture);
  jpg.SaveToStream(ms);
  ms.Position := 0;
  IdTCPClient1.IOHandler.Write(ms, 0, True);

  ms.Free;
  jpg.Free;
end;

Server:

Delphi-Quellcode:

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

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

  siz := AContext.Connection.IOHandler.ReadLongInt;
  AContext.Connection.IOHandler.ReadStream(ms, siz);

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

  ms.Free;
  jpg.Free;
end;

Schönen Abend noch
4lb3rtO