Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Еxcel сервер остается в списке процессов

Автор: Litta 14.3.2006, 14:13

Albinos_x , пасиба за статью !!! Помоги плз, работаю через ExcelApplication, есть такой код:
--
icid := LOCALE_SYSTEM_DEFAULT;
ExcelApp.AutoQuit := true;
ExcelApp.Visible[icid] := false;
ExcelApp.AutoConnect := true;
//Подключаемся к существующему файлу, т.к. как создать свой собственный, записать в него инфу
// и сохранить нигде не увидел !!! smile

EWb.ConnectTo(ExcelApp.Workbooks.OpenXML(FileName, EmptyParam));
EWs.ConnectTo(ExcelApp.ActiveWorkBook.ActiveSheet as _Worksheet);
ExcelApp.ActiveWorkbook.ActiveSheet;
EWs.Range[A1,EmptyParam].Value2 := Превед, МЕДВЕДЬ!;
//Сохраняем под новым именем
ExcelApp.Workbooks[1].SaveAs(NewFileName, EmptyParam, EmptyParam, EmptyParam,false, false, xlNoChange, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, icid);
ExcelApp.Quit;
ExcelApp.Disconnect;
--
Но после выполнения, процесс excel остаётся !!! Что нужно дописать, чтоб его не было ???
smile

Автор: SPrograMMer 15.3.2006, 21:30

вместо

Цитата(Litta @ 14.3.2006, 14:13

)

ExcelApp.Quit;
ExcelApp.Disconnect;

попробуй:

Код


ExcelApp.Close

Добавлено @ 21:39
smile

Цитата(Litta @ 14.3.2006, 14:13

)

EWs.Range[A1,EmptyParam].Value2 := Превед, МЕДВЕДЬ!;

Код


EWs.Range[A1,EmptyParam].Value2 :='Превед, МЕДВЕДЬ!';

Автор: CLIPSA 18.11.2006, 18:00

Так что никто не знает как болроться сэтим?

я понимаю что это создаёт процесс

Код


vVarApp=CreateOleObject("Excel.Application");

А как его удалить прроцесс?

Автор: Albinos_x 19.11.2006, 12:17

избитая тема... возможно это действия оптимизатора..., но
поробуйте так:

Код


icid := LOCALE_SYSTEM_DEFAULT;
ExcelApp.AutoQuit := false;
ExcelApp.Visible[icid] := false;
ExcelApp.Connect;
...
ExcelApp.Quit;
ExcelApp.Disconnect;

у меня сервер закрывается...

Цитата(Litta @ 14.3.2006, 14:13

)

//Подключаемся к существующему файлу, т.к. как создать свой собственный, записать в него инфу
// и сохранить нигде не увидел !!!

не понятно... что это значит?
что мешает воспользоваться методами Add и SaveAs...

Автор: Masterof 17.3.2008, 07:06

У меня таже проблема (( всё перебрал, до чего только додумался... smile

Добавлено через 13 минут и 15 секунд
HELP!!!

Автор: Albinos_x 17.3.2008, 19:52

попробуй отключить оптимизатор

Автор: Masterof 25.3.2008, 07:17

проблему решил !!! smile

просто использовал

Код


  FreeAndNil(EA_App1_)  //  EA_App1_ - Объект TExcelApplication...

Автор: Albinos_x 26.3.2008, 00:59

Цитата(Masterof @ 25.3.2008, 07:17

)

проблему решил !!!

хм... а если вам нужно будет два раза вызвать? Вы предусмотрели этот вариант...