Bild als String übertragen?

[Klaus01]

Delphi-Quellcode:

procedure BitmapGurke(Input:TBitmap);
var
  P:TMemoryStream;
  test:integer;
begin
P:=TMemoryStream.Create;
Input.SaveToStream(P);
test:=0;
p.Position:=0;
P.Read(test, SizeOf(Integer));
ShowMessage(inttostr(test));
P.Free;
end;

Habe in Deinem Code mal herumeditiert.

Grüße
Klaus