Ist beim Stream nicht anders.
Stream.Position := 0;
und Stream.Read bzw. Stream.BlockRead
Danke für den Tipp, funktioniert:
function TForm1.GetStreamGraphTyp(PictureData: TMemoryStream): String;
var
Buffer: Word;
begin
{ Buffer:
GIF = 18759
PNG = 20617
JPG = 55551
BMP = 19778
ICO = 0 }
PictureData.Position := 0;
PictureData.Read(Buffer, 2);
CodeSite.Send(' Buffer: ', Buffer);
case Buffer of
18759:
Result := 'GIF';
20617:
Result := 'PNG';
55551:
Result := 'JPG';
19778:
Result := 'BMP';
0:
Result := 'Unbekannt';
end;
CodeSite.Send(' Result: ', Result);
end;