| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Quest ©   (2003-04-02 15:19:00) 

В консольном 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 16:33:00) [1]

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

---

sniknik   (2003-04-02 15:57:00) [2]

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

---

Quest   (2003-04-02 15:28:00) [3]

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

---

Наверх