В консольном 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.
