[lmikle]

Сообщение от Kaktuz

Вообщем у меня так получилось. не знаю на сколько это правильно. Хотя для проверки этого будет достаточно, но вот для преобразования всего файла в HEX данные нет.
<skip>

Маньяк.

Код:

var
  Stream : TFileStream;
  Buf : Pointer;
begin
  GetMEm(Buf,5);
  Stream := TFileStream.Create(AFileName,fmOpenRead);
  Try
    Stream.ReadBuffer(Buf^,5);
    case CheckTypeFile(Buf) of // Функуию тебе дали...
       // Здесь работаешь уже с опр. типом
      tfBMP : Begin ... End;
      Else Raise Exception.Create('Unknown format');
    end;
  Finally
    Stream.Free;
    FreeMem(Buf,5);
  End;
end;