Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CoInitialize has not bein called... / 3 сообщений из 3, страница 1 из 1
11.11.2002, 20:59
    #32066676
-=Extreme=-ShamaN
-=Extreme=-ShamaN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CoInitialize has not bein called...
Ручками создаю объект типа TADOConnection
Текст unit1.pas:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
unit Unit1;

interface

uses
   .........
type
  TFMain = class(TForm)
     ..........
  end;

var
 ADOConnection: TADOConnection;  {объявление вне класса TFMain}

implementation

uses ...;

{$R *.DFM}

........

initialization
   ADOConnection := TADOConnection.Create(nil);

finalization
  FreeAndNil(ADOConnection);

end.

.....................................................................

При запуске после выполнения оператора
Код: plaintext
ADOConnection := TADOConnection.Create(nil);
появляется исключение класса EOleSysError c сообщением "CoInitialize has not been called".

:(

Что не так???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 21:27
    #32066682
Magellan
Magellan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CoInitialize has not bein called...
Мне сегодня уже отвечали на данный вопрос. См. здесь: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1037006984&n=0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 21:32
    #32066685
-=Extreme=-ShamaN
-=Extreme=-ShamaN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CoInitialize has not bein called...
Greate Thanks =)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CoInitialize has not bein called... / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]