알짜게시판

[델파이] 파일 포맷 알아내기

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;

로그인 후 댓글내용을 입력해주세요

제목 글쓴이 조회 날짜
[파이썬] Python Playwright로 Edge 브라우저 제어하기 5,658 09-12
[델파이] TDirectory.Delete 대신 CMD 으로 폴더 삭제 8,526 09-10
[윈도우] Chrome 및 Edge를 TLS 1.2 모드로 실행 25,731 08-30
[HTML] 애드센스 자동 광고 사용 시 빈 화면이 출력된다면? 115,351 06-20
[윈도우] 브라우저 환경설정 추출 117,087 06-18
[워드프레스] xmlrpc.php 차단으로 보안 강화하기 129,100 06-05
[델파이] 폼이 모니터 한 가운데 있는 경우 자연스럽게 왼쪽으로 이동시키기 133,466 05-26
[윈도우] WSH script registration is not valid. 133,574 05-23
[워드프레스] 제목 블록 기본값을 H5로 변경하는 방법 115,033 05-22
[파이썬] 동영상 특정 영역 모자이크(흐리게) 하기 46,659 04-30
[리눅스] 구글 크롬 콘솔 'Attestation check for Topics on' 에러 원인 & 해결방… 59,737 04-11
[크롬] 개발자 도구(DevTools)에서 붙여넣기 안될때 71,963 03-10
[그누보드] SmartEditor2Skin.html 다운로드 되는 현상 109,985 01-08
[윈도우] 네트워크 탐지 114,020 12-31
[델파이] TrayIcon 이 흐릿하게 보이는 버그? 수정 127,961 12-12
[델파이] 실행 중인 프로세스가 활성 창인지 확인하는 함수 145,278 11-02
[델파이] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가 132,187 10-30
[그누보드] 부트스트랩 테마 예제로 사용중인 main.php 115,509 10-21
[그누보드] 유튜브 스킨 74,861 10-14
[윈도우] TLS 연결 끊김 해결 방법 - Kyber 비활성화 233,650 10-12
[PHP] 검색 로봇 접속시 종료 56,280 10-07
[윈도우] WinDivert 사용중인 어플리케이션 검색 45,268 09-12
[워드프레스] 답글 남기기 메시지 변경 42,744 09-05
[리눅스] PHP-FPM 튜닝을 위한 메모리 계산 41,299 08-29
[윈도우] 아이폰 벨소리 쉽게 추가하기 94,183 06-14
[윈도우] C:\Windows\Installer 폴더 다른 드라이브로 옮기기 104,856 05-29
[윈도우] 작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 177,215 05-18
[워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 102,161 05-02
[그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 97,660 05-02
[PHP] REQUEST 값 받기(application/json 포함) 99,204 04-20
[리눅스] 데몬(systemd service) 작성 및 실행하기 66,221 03-14