Danke für den Schönen Code habe es aber schon hinbekommen.
Geht auch einfacher :
Delphi-Quellcode:
const
GifType = 18759; //uses gifimg
BitmapType = 19778;
PngType = 20617; //uses pngimage
JpegType = 55551; //uses jpeg
var
InfoHeader : TBitmapFileHeader;
Stream : TMemoryStream;
begin
if Assigned(S) then
begin
S.Read(InfoHeader,SizeOf(TBitmapFileHeader));
S.Position := 0;
case InfoHeader.bfType of
PngType:
begin
end;
JpegType:
begin
end;
GifType:
begin
end;
BitmapType:
begin
end;
end;
end;
So das Funkt nur wenn die Windows
Unit eingebunden ist für die Leute die Konsolenanwendungen schreiben
