Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=78757&view=findpost&p=594478 Sat, 29 Jan 2005 08:00:10 +0000 Определить формат изображения https://forum.sources.ru/index.php?showtopic=78757&view=findpost&p=594478 absolute:
    type
      TImageType = (NoImage, Bmp, Gif, Gif89, Png, Jpg);
     
    function KindOfImage(Start: Pointer): TImageType;
    begin
      if LongWord(Start^) = 464947 then
      begin
        if (PChar(Start) + 4)^ = '9' then Result := Gif89
        else Result := Gif;
      end
      else if Word(Start^) = D42 then Result := Bmp
      else if LongWord(Start^) = 4E5089 then Result := Png
      else if Word(Start^) = $D8FF then Result := Jpg
      else Result := NoImage;
    end;
]]> s-mike Графика, звук, анимация, игры https://forum.sources.ru/index.php?showtopic=78757&view=findpost&p=568933 Sat, 08 Jan 2005 12:33:06 +0000 Определить формат изображения https://forum.sources.ru/index.php?showtopic=78757&view=findpost&p=568933
    type
      TImageType = (NoImage, Bmp, Gif, Gif89, Png, Jpg);
     
    function KindOfImage(Start: Pointer): TImageType;
    type
      ByteArray = array[0..10] of Byte;
    var
      PB: ^ByteArray absolute Start;
      PW: ^Word absolute Start;
      PL: ^DWord absolute Start;
    begin
      if PL^ = 464947 then
      begin
        if PB^[4] = Ord('9') then Result := Gif89
        else Result := Gif;
      end
      else if PW^ = D42 then Result := Bmp
      else if PL^ = 4E5089 then Result := Png
      else if PW^ = $D8FF then Result := Jpg
      else Result := NoImage;
    end;


Пользоваться можно так:

    case KindOfImage(MemoryStream.Memory) of
    ...


Эта тема была разделена из темы "Формат изображения в TMemoryStream"]]> s-mike Графика, звук, анимация, игры