Ошибка создания TADOConnection в CGI приложении...

← →
Quest (2003-04-02 15:19) [0]

В консольном CGI приложении
при создании соединения: Connect := TADOConnection.Create(Nil);
появляется странная ошибка!?
Подскажите, где копать, чего я не вижу?

Текст приложения:program QueryCGI;
{$APPTYPE CONSOLE}
uses
SysUtils,ADODB;
{$E cgi}
var
Connect: TADOConnection;ADOQuery1: TADOQuery;
begin
Writeln("Content type: text/html");
Writeln;
Writeln("<HTML> <HEAD><TITLE></TITLE>");
Writeln("<META http-equiv="Content-Type" content="text/html; charset=windows-866">");
Writeln("</HEAD><BODY>");
Connect := TADOConnection.Create(Nil); //здесь выдаёт ошибку создания
try
Connect.ConnectionString :="Provider=SQLOLEDB.1;Data Source=SQLSERVER";
with Connect do begin
Open("user","Vgvgyjeh");
if Connected then Begin
ADOQuery1 := TADOQuery.Create(Nil);
Try
ADOQuery1.connection := Connect;
ADOQuery1.sql.add("select * from Telephon.dbf");
ADOQuery1.Active:=true;
ADOQuery1.Open;
ADOQuery1.First;
Writeln("<Table cellspacing="1" cellpadding="1" border="1">"+
"<TR><TD>NAME</TD></TR>");
Writeln("<TD>"+ADOQuery1.FieldByName("NAME").AsString+"</TD>");
Writeln("</TR>");
ADOQuery1.Next;
End;
finally
ADOQuery1.Close;
ADOQuery1.Free;
End;
END; End;
Finally
Connect.Close;
Connect.Free;
End;
Writeln("</TABLE><HR></BODY></HTML>");

end.

← →
Quest (2003-04-02 15:28) [1]

Текст ОШИБКИ:
Project QueryCGI raised exception class EOleSysError with message "Не был произведён вызов CoInitialize". Process stopped.

← →
sniknik © (2003-04-02 15:57) [2]

> " Не был произведён вызов CoInitialize"
прямое указание, что делать.

← →
Quest (2003-04-02 16:33) [3]

спасибо, я уже разобрался.

Ошибка создания TADOConnection в CGI приложении... Найти похожие ветки