Ошибочка...

← →
Vikuksa © (2002-11-12 11:53) [0]

var
str : string;
ini : TInifile;
Connstr : string;
f : boolean;
pop : integer;
ADOConn: TADOConnection;
begin
DBFL := false;
ADOConn := TADOConnection.Create(nil);
ADOConn.LoginPrompt := false;
str := ExtractFileDir(Application.ExeName);
if FileExists(str+"\"+"rkcb.ini")= true then begin
ini := TInifile.Create(str+"\"+"registr.ini");
Connstr := ini.ReadString("COMMON","CONN_STR","");
if Connstr <> "" then ADOConn.ConnectionString := Connstr;
ini.Free;
f:=true;
pop := 0;
while (f=true)and(pop<2) do begin
try
ADOConn.Connected := true;
f:=false;
DBFL := true;
StrConn := Connstr;
ADOConn.Connected := false;
except
RusMessageDlg("Ошибка подключения к Базе данных!",mtError,[mbYes],0);
f:=false;
end;
end;
end
else RusMessageDlg("Не найден файл параметров!",mtError,[mbYes],0);
ADOConn.Destroy;
Result:= DBFL;
end;

Вот есть така ф-я проверки подключения к БД.
На строке ADOConn := TADOConnection.Create(nil); возникает ошибка "Не был произведен вызов CoInitialize".

И чё теперь делать!?

← →
хер....... (2002-11-12 12:01) [1]

ADOConn := TADOConnection.Fuck.Create(nil);

← →
stone © (2002-11-12 12:07) [2]

в uses главной формы добавь ActiveX

в OnCreate главной формы допиши CoInitialize(nil);

← →
Vikuksa © (2002-11-12 12:16) [3]

Vikuksa © (12.11.02 12:16)
везде где видел CoInitialize(nil); в пару идет (в конце)CoUnInitialize();
может и вам поставить?

Ошибочка... Найти похожие ветки