PHP DM Gate v0.9 » Обработка Excel в Delphi <span class="vd">[D7, Excel]</span>

den945 © (09.01.11 00:48) [0]

Пытаюсь обработать документ Exel в Delphi при помощи технологии ADO. Но при запуске любого проекта с любым компонентом ADO возникает ошибка "Project Project1.exe raised exception class EOleException with message 'Разрушительный сбой'.Process stopped. Use Step or Run to continue.". Облазил кучу форумов, но ответа не нашел. Подскажите плиз!!!

<Цитата>
Плохиш © (09.01.11 01:21) [1]

У вас ошибка в 17й строке.

<Цитата>
den945 © (09.01.11 01:36) [2]

17-я строка у меня public declarations...(((

<Цитата>
Германн © (09.01.11 02:41) [3]

> возникает ошибка "Project Project1.exe raised exception
> class EOleException with message 'Разрушительный сбой'

У меня выработалось четкое правило. Если я встречаю где-то сообщение не на аглицком языке сообщение об ошибке (и если я точно знаю, что не я его писал), то ну их нафиг все сторонние компоненты!
:)
В т.ч. и переводы от Polaris.
Примите и прочь!

<Цитата>
Anatoly Podgoretsky © (09.01.11 10:35) [4]

> den945 (09.01.2011 01:36:02) [2]

Неправда, я посмотрел текст, там совсем другое.

<Цитата>
Anatoly Podgoretsky © (09.01.11 10:36) [5]

> Германн (09.01.2011 02:41:03) [3]

И Эксель с Офисом нафиг?

<Цитата>
Плохиш © (09.01.11 14:59) [6]

> den945 © (09.01.11 01:36) [2]

тогда вам нужно нанять программиста.

<Цитата>
YurikGL © (10.01.11 12:50) [7]

> Пытаюсь обработать документ Exel в Delphi при помощи технологии
> ADO.

Пытался вырывать зуб отверткой... неудобно... и пациент издает такие звуки. которые на форумах не описаны.

Рекомендую посмотреть ссылку http://code.progler.ru/view/363

<Цитата>
Плохиш © (10.01.11 14:01) [8]

> YurikGL © (10.01.11 12:50) [7]

Excel может выступать источником данных, как и любая база данных.

<Цитата>
sniknik © (10.01.11 16:17) [9]

> Рекомендую посмотреть ссылку
набор отверток...

<Цитата>
Cobalt © (12.01.11 10:34) [10]

den, вопросы про подземный стук здесь не понимают
Расскажи что ты делаешь конкретно, что используешь, как используешь, в какой ситуации/на какой строчке кода происходит ошибка.

<Цитата>
YurikGL © (12.01.11 19:34) [11]

> Excel может выступать источником данных, как и любая база
> данных.

Может... вопрос скорости и удобсто работы.

> sniknik © (10.01.11 16:17) [9]
А я и не спорю... причем очень старых. Но если автору так хочется...

<Цитата>
sniknik © (12.01.11 19:39) [12]

>> Excel может выступать источником данных, как и любая база данных.
> вопрос скорости и удобсто работы.
это самый быстрый, и удобный способ работы с данными (стандартный). во всяком случае ни один из методов по ссылке его "не догонит", да и код будет покороче.

<Цитата>
YurikGL © (12.01.11 20:07) [13]

> это самый быстрый, и удобный способ работы с данными (стандартный).
> во всяком случае ни один из методов по ссылке его "не догонит",
> да и код будет покороче.

По ссылке пройдите.. там этот метод тоже есть.

<Цитата>
sniknik © (12.01.11 21:19) [14]

> там этот метод тоже есть.
нет, там есть кучка дерьма (сорри), в котором утопили многое, в том числе и ADO. то что оно где то краешком выглядывает не делает это ADO методом

вот, что должно быть (убрал все лишнее)
begin
ADOConnectionSource.Execute(
'SELECT * INTO [Телефоны] IN \"'+GetCurrentDir+'\1.xls\" \"Excel 8.0;\" FROM QMain'
);
ShowMessage('Экспорт завершен');
Shellexecute(Application.Handle, 'open', PAnsiChar(GetCurrentDir+'\1.xls'), nil, nil, sw_ShowNormal);
end;

<Цитата>
YurikGL © (13.01.11 07:04) [15]

> вот, что должно быть (убрал все лишнее)
> begin
> ADOConnectionSource.Execute(
> 'SELECT * INTO [Телефоны] IN "'+GetCurrentDir+'\1.xls"
> "Excel 8.0;" FROM QMain'
> );
> ShowMessage('Экспорт завершен');
> Shellexecute(Application.Handle, 'open', PAnsiChar(GetCurrentDir+'\1.
> xls'), nil, nil, sw_ShowNormal);
> end;
>

Время работы кода у меня получилось почти в 5 раз медленнее, чем при создании xml-ки.
Что делаю не так?

<Цитата>
sniknik © (13.01.11 07:54) [16]

> Что делаю не так?
врешь неуклюже.

<Цитата>
sniknik © (13.01.11 08:04) [17]

p.s. для тех кому неохота качать "примеры", сравнение идет вот с этим кодом, который якобы в 5 раз быстрее ...

procedure TForm1.SourceDatasetInit;
Begin
ADODataSetSource.Close;
ADODataSetSource.CommandText:='SELECT [Main].[Tel], '+
'[Main].[name], '+
'[Ul].[NameUl], '+
'[Main].[House], '+
'[Korp].[NameKorp], '+
'[Flat].[NameFlat] '+
' FROM Main, Ul, Korp, Flat '+
' WHERE ([Main].[IdUl]=[Ul].[IdUl]) And ([Main].[IdKorp]=[Korp].[IdKorp]) And ([Main].[IdFlat]=[Flat].[IdFlat]) ';
ADODataSetSource.Open;
End;

procedure TForm1.BXMLWithOutShablonClick(Sender: TObject);
var
i:integer;
begin
SourceDatasetInit;
//Создаем пустой документ
XMLDocument1.Active:=false;
XMLDocument1.XML.Clear;
XMLDocument1.xml.Add('<?xml version=\"1.0\"?>');
XMLDocument1.xml.Add('<?mso-application progid=\"Excel.Sheet\"?>');
XMLDocument1.xml.Add('<Workbook xmlns=\"urn:schemas-microsoft-com:office:spreadsheet\"');
XMLDocument1.xml.Add(' xmlns:o=\"urn:schemas-microsoft-com:office:office\"');
XMLDocument1.xml.Add(' xmlns:x=\"urn:schemas-microsoft-com:office:excel\"');
XMLDocument1.xml.Add(' xmlns:ss=\"urn:schemas-microsoft-com:office:spreadsheet\"');
XMLDocument1.xml.Add(' xmlns:html=\"http://www.w3.org/TR/REC-html40\">');
XMLDocument1.xml.Add('</Workbook>');
XMLDocument1.Active:=true;
//создаем лист Лист1
XMLDocument1.ChildNodes.Nodes['Workbook'].ChildNodes.Nodes['Worksheet'].Attribut es['ss:Name']:='Лист1';
with XMLDocument1.ChildNodes.Nodes['Workbook'].ChildNodes.Nodes['Worksheet'].ChildNod es.Nodes['Table'] do begin
//Выставляем размер будующей таблицы
Attributes['ss:ExpandedColumnCount']:=IntToStr(ADODataSetSource.FieldCount);
Attributes['ss:ExpandedRowCount']:=IntToStr(ADODataSetSource.RecordCount+1);
Attributes['x:FullColumns']:=1;
Attributes['x:FullRows']:=1;
//установим ширину колонок
AddChild('Column');
ChildNodes.Last.Attributes['ss:Index']:=2; //номер колонки
ChildNodes.Last.Attributes['ss:Width']:=240; //ширина колонки
AddChild('Column');
ChildNodes.Last.Attributes['ss:Index']:=3;
ChildNodes.Last.Attributes['ss:Width']:=100; //Если нужно нецелое, то разделитель - '.' а не ','
AddChild('Row');
//Создаем заголовки таблицы
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Телефон';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Имя';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Улица';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Дом';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Корпус';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Квартира';
//Собственно экспорт таблицы
ADODataSetSource.First;
repeat
AddChild('Row');
for i:=0 to ADODataSetSource.FieldCount-1 do begin;
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:=ADODataSetSource.F ields[i].AsString;
end;
ADODataSetSource.Next;
until ADODataSetSource.Eof;
end;

XMLDocument1.SaveToFile(GetCurrentDir+'\1.xml');
shellexecute(Application.Handle,'open',PAnsiChar(GetCurrentDir+'\1.xml'),nil,nil, sw_ShowNormal);
end;

<Цитата>
YurikGL © (13.01.11 12:16) [18]

> > Что делаю не так?
> врешь неуклюже.

Время выгрузки через ADO по твоему варианту 1563
Экспорт через OLE без шаблона 1015
Экспорт через XLM без шаблона 250

Время считается через GetTickCount

Кто врет?

<Цитата>
sniknik © (13.01.11 12:23) [19]

> Время выгрузки через ADO по твоему варианту 1563
а кнопку быстрее жать не пробовал?
... думаю догадался в чем "проблема". LoL
у меня 31, и время "считается через GetTickCount".

> Кто врет?
ты конечно, т.к. утверждаешь это голословно, без показа "как считается", и "что GetTickCount" (где GetTickCount-ы поставил).

<Цитата>
sniknik © (13.01.11 12:26) [20]

> Экспорт через XLM без шаблона 250
поставь DisableControls ADODataSetSource-ру, сократишь до ~ 170 ти. но все одно "не догнать".

<Цитата>
YurikGL © (13.01.11 12:37) [21]

> > Кто врет?
> ты конечно, т.к. утверждаешь это голословно, без показа
> "как считается", и "что GetTickCount" (где GetTickCount-
> ы поставил).
>

Офис 2003

Кнопка 1 результат Экспорт через ADO 1187
procedure TForm1.BADOClick(Sender: TObject);
var
i:integer;
t:Integer;
begin
t:=GetTickCount;

//вариант 2

ADOConnectionSource.Execute(
'SELECT * INTO [Телефоны] IN \"'+GetCurrentDir+'\2.xls\" \"Excel 8.0;\" FROM QMain'
);
ShowMessage('Экспорт завершен');
Memo1.Lines.add('Экспорт через ADO '+IntToStr(GetTickCount-t));
Shellexecute(Application.Handle, 'open', PAnsiChar(GetCurrentDir+'\2.xls'), nil, nil, sw_ShowNormal);

end;

Кнопка 2 Экспорт через XLM без шаблона 188

procedure TForm1.BXMLWithOutShablonClick(Sender: TObject);
var
i,t:integer;
begin
t:=GetTickCount;
SourceDatasetInit;
//Создаем пустой документ
XMLDocument1.Active:=false;
XMLDocument1.XML.Clear;
XMLDocument1.xml.Add('<?xml version=\"1.0\"?>');
XMLDocument1.xml.Add('<?mso-application progid=\"Excel.Sheet\"?>');
XMLDocument1.xml.Add('<Workbook xmlns=\"urn:schemas-microsoft-com:office:spreadsheet\"');
XMLDocument1.xml.Add(' xmlns:o=\"urn:schemas-microsoft-com:office:office\"');
XMLDocument1.xml.Add(' xmlns:x=\"urn:schemas-microsoft-com:office:excel\"');
XMLDocument1.xml.Add(' xmlns:ss=\"urn:schemas-microsoft-com:office:spreadsheet\"');
XMLDocument1.xml.Add(' xmlns:html=\"http://www.w3.org/TR/REC-html40\">');
XMLDocument1.xml.Add('</Workbook>');
XMLDocument1.Active:=true;
//создаем лист Лист1
XMLDocument1.ChildNodes.Nodes['Workbook'].ChildNodes.Nodes['Worksheet'].Attribut es['ss:Name']:='Лист1';
with XMLDocument1.ChildNodes.Nodes['Workbook'].ChildNodes.Nodes['Worksheet'].ChildNod es.Nodes['Table'] do begin
//Выставляем размер будующей таблицы
Attributes['ss:ExpandedColumnCount']:=IntToStr(ADODataSetSource.FieldCount);
Attributes['ss:ExpandedRowCount']:=IntToStr(ADODataSetSource.RecordCount+1);
Attributes['x:FullColumns']:=1;
Attributes['x:FullRows']:=1;
//установим ширину колонок
AddChild('Column');
ChildNodes.Last.Attributes['ss:Index']:=2; //номер колонки
ChildNodes.Last.Attributes['ss:Width']:=240; //ширина колонки
AddChild('Column');
ChildNodes.Last.Attributes['ss:Index']:=3;
ChildNodes.Last.Attributes['ss:Width']:=100; //Если нужно нецелое, то разделитель - '.' а не ','
AddChild('Row');
//Создаем заголовки таблицы
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Телефон';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Имя';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Улица';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Дом';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Корпус';
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:='Квартира';
//Собственно экспорт таблицы
ADODataSetSource.First;
repeat
AddChild('Row');
for i:=0 to ADODataSetSource.FieldCount-1 do begin;
ChildNodes.Last.AddChild('Cell');
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].Attributes['ss:Type']:='Strin g';
ChildNodes.Last.ChildNodes.Last.ChildNodes['Data'].NodeValue:=ADODataSetSource.F ields[i].AsString;
end;
ADODataSetSource.Next;
until ADODataSetSource.Eof;

end;
XMLDocument1.SaveToFile(GetCurrentDir+'\1.xml');
Memo1.Lines.add('Экспорт через XLM без шаблона '+IntToStr(GetTickCount-t));
shellexecute(Application.Handle,'open',PAnsiChar(GetCurrentDir+'\1.xml'),nil,nil, sw_ShowNormal);
end;

<Цитата>
YurikGL © (13.01.11 12:38) [22]

GetTickCount в коде есть и там и там...

<Цитата>
YurikGL © (13.01.11 12:43) [23]

> sniknik © (13.01.11 12:26) [20]

У ADO время сокращается, если xls-файл создан изначально...

<Цитата>
sniknik © (13.01.11 12:45) [24]

> ShowMessage('Экспорт завершен');
> Memo1.Lines.add('Экспорт через ADO '+IntToStr(GetTickCount-t));

ну я прям так и знал... измеряешь свое время реакции? два раза LoL

<Цитата>
YurikGL © (13.01.11 12:58) [25]

> ну я прям так и знал... измеряешь свое время реакции? два
> раза LoL

ой.. ё...
Ну все равно

Экспорт через ADO 265
Экспорт через CSV 250
:P

<Цитата>
Anatoly Podgoretsky © (13.01.11 16:21) [26]

> sniknik (13.01.2011 08:04:17) [17]

А результаты огласить?

<Цитата>
Anatoly Podgoretsky © (13.01.11 16:24) [27]

> sniknik (13.01.2011 12:23:19) [19]

Какой смысл считать в тиках, результаты будут сильно различаться от машине к
машине. Считать надо с помощью аппаратного, системного таймера RDTSc.
Результата тоже будут различаться но не значительно и не зависят от тактовой
частоты, а только от модели процессора

<Цитата>
sniknik © (13.01.11 16:33) [28]

> А результаты огласить?
~31 ("мой") vs ~256 ("его") +- конечно, т.е. вполне может и 78 vs 278 выдать.

сам можешь проверить скачав примеры из [7] (+ скопипастить туда код из [14])

> Какой смысл считать в тиках
так, ради общего представления. не более.

> Считать надо с помощью
вообще, тут бы нормально тысяч 20-100 записей, но есть только 135. не очень очевидный тест.

<Цитата>
YurikGL © (13.01.11 20:16) [29]

> вообще, тут бы нормально тысяч 20-100 записей, но есть только
> 135. не очень очевидный тест.
>

Я бы сказал что "пакетный" ввод тоже мало показателен...Если данные формируется динамически (для простоты, из файла читаем) то все таки надо не
ADOConnectionSource.Execute(
'SELECT * INTO [Телефоны] IN \"'+GetCurrentDir+'\2.xls\" \"Excel 8.0;\" FROM QMain'
);

измерять а серию insert-в

<Цитата>