掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルかバイナリーファイルか判別するには (ID：35477)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私はいつも、下のどこかで入手したコードを使用しています。 最初の300バイトを調べるようです。 function f_boTextOrBinFileCheck(saFileName: AnsiString): Boolean; { saFileName: 調べるファイル名 } var F: File; Buf: array[0..300] of Char; i,j: integer; begin Result := True; if FileExists(saFileName) then begin AssignFile(F, saFileName); try Reset(F, 1); try BlockRead(F, Buf, 300, i); j := i; for i := 0 to j - 1 do begin if ( ((Buf[i]>=#$00) and (Buf[i]<=#$08)) or //$09:TAB //$0A:LF ((Buf[i]>=#$0B) and (Buf[i]<=#$0C)) or //$0D:CR ((Buf[i]>=#$0E) and (Buf[i]<=#$1F)) )then begin Result := False; Break; end; end; finally CloseFile(F); end; except IOResult; Result := False; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.