Архив форумов ЦИТФорума

[MuXA]

При создании объекта XLApp:=CreateOleObject('Excel.Application'), все пучком.
Косяк при его закрытии XLApp.quit.
Не килится процесс, в списке задач excel.exe.
Delphi Win2k SP1.
Хелп ПЛИЗ.

[S]

Привет!

Все делаешь правильно. Но Виндозе почему-то глючит при работе с Ole- объектами и не удаляет фоновые процессы. Причем делает это только на определенных машинах. Закономерности, к сожалению, выявить так и не удалось. Поэтому оставлял Excel(Word) открытыми с сформированным документом и юзер сам закрывал приложение.

Вот функция, которая создавала OLE object для Excel и работала в 90% случаев:

Function TMainForm.CreateOleObject_Excel(var Excel_book: Variant): integer;
begin
try
// если Excel уже открыт, то работаем с ним
Excel_Book:=GetActiveOleObject('Excel.Application');
Result:=2; // 2-Excel был уже открыт
except
try
// если Excel не открыт, то загружаем его(создаем OLE)
Excel_Book:=CreateOleObject('Excel.Application');
Result:=1; // загружали Excel
except
Application.MessageBox('Не могу открыть Microsoft Excel', 'Cообщение', MB_OK + MB_ICONERROR);
Result:=0; // открыть не удалось
end;
end;
end;

А это вызов функции:
procedure TMainForm.MyButtonClick(Sender: TObject);
var
Excel_book: Variant;
begin
type_Excel:=CreateOleObject_Excel(Excel_book);
// что-то делаем

Excel_Book.Application.Quit;

end;

[MuXA]

Когда закрываю ручками таже ситуация.
При активном окне закрываю документ(не приложение), все ОК, но приложение становиться не видимым(не зыкрывается).
Ест-но процесс живой.

[Beguin]

А это не может быть Дельфевая бага?
Можно, если конечно не затруднит, узнать ТТХ этих машин? В мыло.

[S]

Кстати.
пробовал работать с OLE(word, excel) не только из-под Delphi.
Нужно было создать doc(rtf) документ под веб. Так были те же проблемы: работало через раз...
В конце концов пришлось отказаться от OLE(ActiveX) и разбираться со спецификацией rtf-формата, чтобы напрямую формировать rtf-файл...