Record per Memorystream versenden - wie?

[marabu]

Hallo.

Ich kenne die Komponente TImage32 nicht, aber ich vermute, dass die empfangende Seite mit dem Zeiger auf das Bild nicht viel anfangen kann. Ich würde die beiden Werte für x und y in den memory stream schreiben und anschließend das Bild selbst:

Delphi-Quellcode:

type
  TBildElement = packed record
    x: Integer;
    y: Integer;
    bild: TImage32;
  end;

var
  ms: TMemoryStream;
  rec: TBildElement;
begin
  ms := TMemoryStream.Create;
  try
    ms.write(rec, sizeof(Integer) shl 1);
    bild.SaveToStream(ms);
    ms.Position := 0;
    // verschicke stream
  finally
    ms.Free;
  end;
end;

Grüße vom marabu