Delphi-Quellcode:
procedure BitmapGurke(Input:TBitmap);
var
P:TMemoryStream;
test:integer;
begin
P:=TMemoryStream.Create;
Input.SaveToStream(P);
test:=0;
P.Read(test, 4);
ShowMessage(inttostr(test));
P.Free;
end;
sollte eigentlich funktionieren, gibt aber immer 0 aus -.-