чтение сигнатуры файла

[Denis@]

ВСЕМ Здравствуйте!!!
Помогите примером рабочим "как прочитать сигнатуру файла" любого!

[Streletz]

Сообщение от Denis@

ВСЕМ Здравствуйте!!!
Помогите примером рабочим "как прочитать сигнатуру файла" любого!

Сигнатура бывает двух типов:
1. определенный ряд байт в заголовке файла, указывающий ОС на тип этого файла (с какой прогой открывать).
2. Контрольная сумма, используемая для проверки файла на повреждения.
Если речь идёт о первом, то нужно прочитать заголовок файла.
В помощь:
Как прочитать файл на Delphi
прочитать заголовок файла в структуру
Как прочитать заголовок файла
Если же речь идёт о втором, то нужно знать алгоритм, используемый файловой системой для вычисления контрольной суммы и высчитывать самому.

[Denis@]

Спасибо за ответ ваш!
Прочитал пытался вникнут, не вышло у меня(
Дело в том что есть видео ролики формата .smk форматы разные по заголовку smk2 и smk4.
Мне надо воспроизвести только тип smk2. для этого мне надо прочитать заголовок ролика, а у меня не получается

[Streletz]

Пожалуйста!

Дело в том что есть видео ролики формата .smk форматы разные по заголовку smk2 и smk4.
Мне надо воспроизвести только тип smk2. для этого мне надо прочитать заголовок ролика

В данном случае ситуация значительно проще. Так как Вам требуется прочитать заголовок файла определённого формата, то можно воспользоваться его описанием. Оно есть в открытом доступе на Wiki.

[blackstrip]

Примерно так:

var 
f:TFileStream;
a:array [0..3] of byte;
begin
f:=TFileStream.Create("путьиимяфайла",fmOpenRead);
f.ReadBuffer(a,4);
f.Free;
//после этого в массиве a находятся коды первых четырех байт из файла
if (a[0]=Ord('S')) and (a[1]=Ord('M')) and (a[2]=Ord('K')) then
if (a[3]=Ord('2')) then
begin
//тут делаем что-то для SMK2
end
else
if (a[3]=Ord('4')) then
begin
//а тут для SMK4
end;
end;