알짜게시판

[Delphi] 파일 포맷 알아내기

[code]
function GetFormat(Filename: String): String;
 function IsPatten(Buffer: TBytes; Index: Integer; Values: array of Byte): Boolean;
 var
   I: Integer;
 begin
   Result := True;

   for I := Low(Values) to High(Values) do
     if Buffer[I+Index] <> Values[I] then
     begin
       Result := False;
       Break;
     end;
 end;
const
 CheckSize = 12;
var
 Stream: TFileStream;
 Buffer: TBytes;
 FileExt: String;
begin
 Result := '';

 try
   Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
   if Stream.Size > CheckSize then
   begin
     SetLength(Buffer, CheckSize);
     Stream.ReadBuffer(Buffer, CheckSize);

     if IsPatten(Buffer, 0, [$FF, $D8, $FF]) then Result := 'JPG'
     else if IsPatten(Buffer, 0, [$42, $4D]) then Result := 'BMP'
     else if IsPatten(Buffer, 0, [$47, $49, $46, $38]) then Result := 'GIF'
     else if IsPatten(Buffer, 8, [$57, $45, $42, $50]) then Result := 'WEBP'
     else if IsPatten(Buffer, 0, [$49, $20, $49]) then Result := 'TIFF'
     else if IsPatten(Buffer, 0, [$49, $49, $2A, $00]) then Result := 'TIFF'
     else if IsPatten(Buffer, 0, [$4D, $4D, $00, $2A]) then Result := 'TIFF'
     else if IsPatten(Buffer, 0, [$4D, $4D, $00, $2B]) then Result := 'TIFF'
     else if IsPatten(Buffer, 0, [$38, $42, $50, $53]) then Result := 'PSD'
     else if IsPatten(Buffer, 0, [$49, $49, $55, $00]) then Result := 'RAW'
     else if IsPatten(Buffer, 4, [$66, $74, $79, $70, $68, $65, $69, $63]) then Result := 'RAW'
     else if IsPatten(Buffer, 0, [$25, $50, $44, $46]) then Result := 'PDF'
     else if IsPatten(Buffer, 0, [$89, $50, $4E, $47, $0D, $0A, $1A, $0A]) then Result := 'PNG';
   end;
   Stream.Free;
 except
   on e: Exception do
   begin
   end;
 end;
end;
[/code]

번호 제목 글쓴이 조회 날짜
201 [MySQL] unblock with 'mysqladmin flush-hosts' 에러 7,217 01-01
200 [ReactNative] 캐시 초기화 하는 방법 8,313 12-27
199 killer 네트워크 이슈 팁 1 13,298 12-04
198 [윈도우] node.js 와 npm 업데이트(업그레이드) 13,763 12-01
197 [윈도우] 윈도우11 시작 메뉴 위치 변경(가운데, 왼쪽) 21,562 10-10
196 [Delphi] 중복 실행 방지 20,827 09-21
195 [리눅스] yum 에서 Thread died in Berkeley DB library 오류 20,370 09-18
194 [리눅스] VNSTAT 설치하기 18,300 09-17
193 [리눅스] 로그 삭제 및 비우기(?) 17,577 09-09
열람 [Delphi] 파일 포맷 알아내기 13,657 09-08
191 [FTP] 500 Illegal PORT command. 9,123 09-03
190 [리눅스] .htaccess 를 이용해서 https 이동하기 7,944 08-31
189 [PHP] Imagek 를 이용한 썸네일 생성 8,297 08-26
188 [PHP] 파일 포맷 알아내기 8,115 08-23
187 [그누보드] 1364 : Field 'xxxxx' doesn't have a default value 7,822 08-20
186 [그누보드] 웹폰트 적용하기 7,652 08-13
185 [그누보드] CKEditor 5 플러그인 8,051 08-11
184 [리눅스] 윈도우 프로그램 실행 (centos7, wine 7.0) 6,729 08-09
183 [시크릿DNS] 프록시 혼합 사용 예제 3 34,523 08-07
182 [윈도우] IPv6 켜기, 끄기 5,907 08-03
181 [그누보드] 회원 가입일 기준으로 이용기간 정하기 5,531 07-28
180 [그누보드] sql_fetch, sql_query 안쓰고 직접 mysql 사용하기 5,544 07-24
179 [리눅스] 웹서버 상태 확인 후 자동 재시작 쉘 스크립트 11,070 02-28
178 WinDivert 1753 에러 발생시 11,300 12-20
177 [PHP] PHP 수정시 적용이 안되는 경우 해결 (opcache 중지) 12,578 03-31
176 [맥OS] 마우스 휠 스크롤 방향 윈도우와 일치시키는 방법 12,005 02-28
175 [Ruby] 윈도우에서 pod install 실행시 UTF-8 오류 12,766 02-28
174 [Ruby] Could not open library 'libcurl' 11,644 02-28
173 WinDivert 서비스 종료 8,765 02-08
172 [Android] Error type 3: Activity class {com.?.MainActivity} … 6,478 02-02
171 [윈도우] 윈도우 서버 2016 IIS 중지 6,659 01-29