Скачать: CL | DM;

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

← →
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]

stone © (12.11.02 12:07)

Спасибо, работает!

---

← →
sniknik ©   (2002-11-12 12:28) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c