Ошибка в IB

← →
lejik © (2003-01-20 11:16) [0]

Доброе время суток господа!
Помогите решить проблему. Есть клиент-серверное приложение. Клиент подключаясь к базе первый раз изредка получает сообщение DB is not open. Потом все работае нормально. Сервер при этом включен и работает. Вот кусок кода подключения:

If LoginData.ModalResult=mrOk then
begin
try
try
sFile:=ExtractFilePath(Application.ExeName)+"config.ini";
LoginIni:=TIniFile.Create(sFile);
if DataBase.Connected then Database.Close;
DataBase.DBName:=LoginIni.ReadString("DATABASE","SERVER","")+
":"+ LoginIni.ReadString("DATABASE","PATH"," ");

Database.UseLoginPrompt:=false;
DataBase.ConnectParams.Password:=Trim(LoginData.password);
DataBase.ConnectParams.UserName:=Trim(LoginData.user_id);
DataBase.ConnectParams.RoleName:=Trim(LoginData.user_role);
DataBase.Open;
finally
LoginIni.UpdateFile;
LoginIni.Free;
end;

← →
Digitman © (2003-01-20 11:43) [1]

if DataBase.Connected then
DataBase.Connected := False;
...
DataBase.Connected := True;

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