Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.18;
Скачать: CL | DM;

Вниз

Быстрое определение валидности 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]

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



Страницы: 1 вся ветка

Текущий архив: 2008.05.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
6-1185709539
Новичек
2007-07-29 15:45
2008.05.18
Работа с Telnet.


15-1207283142
Slider007
2008-04-04 08:25
2008.05.18
С днем рождения ! 4 апреля 2008 пятница


2-1208536526
worldmen
2008-04-18 20:35
2008.05.18
Загрузить файл из Worda и редактировать.


3-1197018869
ZeroDivide
2007-12-07 12:14
2008.05.18
Форматирование XMLType в текст


15-1207044769
Alkid
2008-04-01 14:12
2008.05.18
Антиспамм в The Bat посоветуйте, плз.