[Delphi] 파일에서 이미지 타입 읽기

파일에서 이미지 타입 읽기
파일 확장자는 이미지 포맷과 다르게 변경 할 수 있어서, 파일 헤더에서 이미지 타입을 읽어야 합니다.

const
  US_BITMAP_TYPE = $4D42;
  US_JPEG_TYPE   = $FFFFD8FF;
  US_GIF_TYPE    = $4947;
  US_WMF_TYPE    = $FFFFCDD7;
  US_TIF_TYPE    = $4949;
  US_PCX_TYPE    = $50A;
  US_PSD_TYPE    = $4238;
  US_PNG_TYPE    = $5089;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  MyType: SmallInt;
  MyFile: TFileStream;
  sTemp: string;
begin
  MyFile := TFileStream.Create('.MainButtons.png', fmOpenRead + fmShareDenyNone);
  MyFile.Read(MyType, SizeOf(MyType));

  sTemp := '';
  case MyType of
    US_BITMAP_TYPE: sTemp := 'BMP 파일';
    US_JPEG_TYPE: sTemp := 'JPEG 파일';
    US_GIF_TYPE: sTemp := 'GIF 파일';
    US_WMF_TYPE: sTemp := 'WMF 파일';
    US_TIF_TYPE: sTemp := 'TIF 파일';
    US_PCX_TYPE: sTemp := 'PCX 파일';
    US_PSD_TYPE: sTemp := 'PSD 파일';
    US_PNG_TYPE: sTemp := 'PNG 파일';
  end;

  ShowMessage(sTemp);

  MyFile.Free;
end;

 

출처 : 델마당