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

Вниз

опять Excel - CoInitialize has not been called   Найти похожие ветки 

← →
Jul   (2003-11-14 13:31) [0]

xlap,xl :variant;
...
XLap:= CreateOLEObject("Excel.Application");
xlap.workbooks.add;
xl:=xlap.Workbooks[1].Sheets[1];
Посоветуйте, пожалуйста.
Данный код работает как проект, если его поместить в DLL, то при инициализации возникает ошибка: CoInitialize has not been called
что бы такого сделать, чтоь работало из DLL тоже.

---

← →
Dimka Maslov ©   (2003-11-14 13:35) [1]

Вызвать, то что не было вызвано (см. сообщение об ошибке)

---

← →
Jul   (2003-11-14 13:53) [2]

Дело в том, что такой процедуры нет, я понимаю, что нужно проинициализировать ComObj, а как это правильно сделать - ищу пока, может кто знает?

---

← →
stone ©   (2003-11-14 13:57) [3]

uses ..., ActiveX;

CoInitialize(nil);

---

← →
Palladin ©   (2003-11-14 13:57) [4]

ну прямо ведь же написано CoInitialize
глянул в справку и вперед

---

← →
zxc   (2003-11-14 13:58) [5]

напиши
uses ActiveX;

потом вызывай

CoInitialize(nil);

---

← →
zxc   (2003-11-14 13:59) [6]

stone © (14.11.03 13:57) [3]
zxc (14.11.03 13:58) [5]

на секунду блин....=)

---

← →
Jel ©   (2003-11-14 14:00) [7]

The CoInitialize function initializes the Component Object Model(COM) library. You must initialize the library before you can call its functions.

uses ActiveX;

...

CoInitialize(nil);

---

← →
Jel ©   (2003-11-14 14:01) [8]

> stone © (14.11.03 13:57) [3]
> zxc (14.11.03 13:58) [5]
>
> на секунду блин....=)


Присоединяюсь :)

---

← →
inst   (2003-11-14 14:02) [9]

короче сначало пишешь
uses ActiveX; //подключение модуля
а потом в главной процедуре Dll-ки вызываешь CoInitialize

---

← →
Jul   (2003-11-14 14:19) [10]

Спасибо ;) все круто работает. А вопрос в догонку - что нужно сделать, чтобы заработал код из DLL

uses ... Db, OracleData, Oracle;
function InitDatabase:boolean;
begin
try
With DataM do begin
if OraSession.Connected then OraSession.LogOff;
UpdateParams;
OraSession.LogOn;
result:=true;
end;
except
on e:exception do begin
ErrorDialog(e.Message,e.HelpContext, True);
result:=false;
end;
end;
end;
...
try
CoInitialize(nil);
XLap:= CreateOLEObject("Excel.Application");
xlap.workbooks.add;
xl:=xlap.Workbooks[1].Sheets[1];
FormatTableHeader;
b:=InitDatabase; // error
...

---

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

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

Наверх

Память: 0.48 MB
Время: 0.034 c