Быстрое определение валидности Excel евского файла

← →
Andy BitOff (PPC) (2008-04-16 12:36) [0]

Сейчас надо написать приблуду обработи Excel"евского файла. Думаю будет функцианал работы из командной строки. Так вот, отсюда вопрос, как быстро проверить, что файл действительно Excel"евский? А не, например, bmp с расширением .xls

← →
Palladin © (2008-04-16 12:42) [1]

1 попробовать открыть IStorage
2 прочитать какие нибудь весомые признаки, что IStorage создавался Excel"ем

← →
Ega23 © (2008-04-16 12:54) [2]

1. Прочитать первые 8 байт файла.
function TDocLoader.CheckOnBIFF8(Item: TDocLoaderItem; Stream: TFileStream): Boolean; var Buff : array[0..1] of Cardinal; begin try Stream.Position := 0; Stream.ReadBuffer(Buff, 8); Result := (Buff[0] = $E011CFD0) and (Buff[1] = $E11AB1A1); if Result - значит BIFF8-файл

2. Проверить, что это Excel. Сместиться на первый BOF, прочитать 2 байта.
function TDocLoader.CheckOnExcel(Item: TDocLoaderItem; Stream: TFileStream): Boolean; var Buff1 : array[0..2] of Word; Buff2 : Word; const ExcelMagic = $0809; ReadFL = $002F; WriteFL = $0086; begin try Stream.Position := 512; // Ñìåùåíèå íà ïåðâûé BOF Stream.ReadBuffer(Buff2, 2); Result := Buff2=ExcelMagic; if Result - Значит Excel

Способ работает на Excel97 - Excel2003 (включительно).
Проверки на повреждения не делал, задачи не стояло.

← →
Andy BitOff (PPC) (2008-04-16 13:31) [3]

Спасибо. Использую ;)

Быстрое определение валидности Excel евского файла Найти похожие ветки