Определить формат изображения, загруженного в TMemoryStream
Falk0ner, вс, 06/07/2008 - 15:35.
type
ImageType = (NoImage, Bmp, Gif, Gif89, Png, Jpg);
function KindOfImage(Start: Pointer): ImageType;
type
ByteArray = array[0..10] of byte;
var
PB: ^ByteArray absolute Start;
PW: ^Word absolute Start;
PL: ^DWord absolute Start;
begin
if PL^ = $38464947 then
begin
if PB^[4] = Ord('9') then Result := Gif89
else Result := Gif;
end
else if PW^ = $4D42 then Result := Bmp
else if PL^ = $474E5089 then Result := Png
else if PW^ = $D8FF then Result := Jpg
else Result := NoImage;
end;
ImageType = (NoImage, Bmp, Gif, Gif89, Png, Jpg);
function KindOfImage(Start: Pointer): ImageType;
type
ByteArray = array[0..10] of byte;
var
PB: ^ByteArray absolute Start;
PW: ^Word absolute Start;
PL: ^DWord absolute Start;
begin
if PL^ = $38464947 then
begin
if PB^[4] = Ord('9') then Result := Gif89
else Result := Gif;
end
else if PW^ = $4D42 then Result := Bmp
else if PL^ = $474E5089 then Result := Png
else if PW^ = $D8FF then Result := Jpg
else Result := NoImage;
end;
Пользоваться можно так:
case KindOfImage(MemoryStream.Memory) of
...
Автор s-mike
Взято из http://forum.sources.ru
Отправить комментарий