Двоичные и текстовые фалы... (Для Delpher'ов)

[f00rd]

Народ, подскажите, как определить на Delphi какой файл, текстовый или двоичный?

f00rd
Если я правильно понял вопрос, то вот такой есть вариант: анализировать файл побайтно до тех пор, пока не найдется один из символов #0..#8, #11..#12, #14..#31. Если символ с таким кодом найден, то файл двоичный, иначе - текстовый.
Если этот вариант тебе подходит и нужна реализация его на Делфи - напиши.

[ImitatoR]

00h - верный признак бинарника

2SpacerV: Коды от 20h до 7Eh - это символы us-ascii, а ты написал #14..#31 - признак двоичного файла...

[f00rd]

SpacerV

Если этот вариант тебе подходит и нужна реализация его на Делфи

Напижи, если можно, на мыло: vitaliksite@mail.ru

ImitatoR
Числа 14..31 (0Eh..1Fh) не попадают в диапазон 32..126 (20h..7Eh).

Добавлено через 48 минут:
f00rd
Прока не длинная, так что помещаю на форуме:

function IsFileBinary(const FileName: string): boolean;
const
  BUF_SIZE = 4096;
var
  TargetFile: TFileStream;
  FileBuffer: array [0..BUF_SIZE-1] of byte;
  FileSize, BufSize, I: integer;
begin
  Result:=False;
  try
    TargetFile:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  except
    on E: Exception do
      raise Exception.CreateFmt('Не удалось открыть файл. '+
        'Дополнительная информация: "%s"', [E.Message]);
  end;
  FileSize:=TargetFile.Size;
  while TargetFile.Position<FileSize do
  begin
    BufSize:=TargetFile.Read(FileBuffer, BUF_SIZE);
    for I:=0 to BufSize-1 do
      case FileBuffer[I] of
        0..8, 11..12, 14..31, 255:
        { Для понимания текстовых файлов, созданных в старых редакторах,
          прийдется заменить пред. строку на:
        0..8, 14..25, 27..31, 255:}
        begin
          Result:=True;
          TargetFile.Free;
          Exit;
        end;
      end;
  end;
  TargetFile.Free;
end;

[CEO]

f00rd :Вот кстати и небольшая докементация по бинарному формату, для полной ясности.

[ImitatoR]

SpacerV:
Числа 14..31 (0Eh..1Fh) не попадают в диапазон 32..126 (20h..7Eh).

Вижу Попутал спросонок # с $