알짜게시판

[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]

번호 제목 글쓴이 조회 날짜
226 작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 2,112 05-18
225 [워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 14,586 05-02
224 [그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 14,795 05-02
223 [PHP] REQUEST 값 받기(application/json 포함) 23,288 04-20
222 [Linux] 데몬(systemd service) 작성 및 실행하기 47,122 03-14
221 [PHP] Porto 테마에서 포스팅만 Loading Overlay 50,897 03-08
220 [그누보드] 아이디 대신 이메일로 회원 가입하기 72,587 02-02
219 [시크릿DNS] Kaspersky 백신 사용시 DNS 암호화 관련 4 88,614 01-04
218 [칼무리] 영역화면 크기 오류인 경우 98,266 12-12
217 [MySQL] 업데이트 이후 에러 발생([ERROR] Incorrect definition of table … 90,467 12-08
216 구글 크롬 탭검색 비활성화 71,200 12-04
215 [MySQL] MySQL, MariaDB 업데이트 72,826 11-24
214 [아이폰] HTTPS 감청 우회하기 113,570 11-01
213 Windows에 Rust 설치하기 56,573 10-05
212 HTTPS/DNS 차단 쉽게 이해하기 63,946 08-16
211 ChangeDNS - DNS 서버를 손쉽게 변경합니다. 73,915 08-13
210 [ReactNative] android directory was detected in the project. 64,733 07-20
209 [리눅스] 메일(Mail) 삭제/초기화 57,459 07-18
208 [Delphi] 윈도우 알림센터에 메시지 출력하기 54,587 06-20
207 [그누보드] 사이드바 만들기 90,700 05-04
206 텔레그램 봇 (Telegram Bot) 만들기 37,316 05-03
205 [부트스트랩] nav 에서 하위 항목 활성화 시 부모 항목 활성화 34,410 04-30
204 [리눅스] PHP 버전 추가하기 34,057 04-29
203 [PHP] Curl 접속 속도가 늦은 경우 35,780 04-10
202 [윈도우] 파일 내용 검색 45,090 02-09
201 [MySQL] unblock with 'mysqladmin flush-hosts' 에러 53,062 01-01
200 [ReactNative] 캐시 초기화 하는 방법 55,616 12-27
199 killer 네트워크 이슈 팁 1 64,237 12-04
198 [윈도우] node.js 와 npm 업데이트(업그레이드) 56,800 12-01
197 [윈도우] 윈도우11 시작 메뉴 위치 변경(가운데, 왼쪽) 59,955 10-10
196 [Delphi] 중복 실행 방지 58,449 09-21