Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Access Violation в TpFIBDatabase при первом обращении.   Найти похожие ветки 

← →
Гость.   (2009-03-29 15:42) [0]


ZOPDB: TpFIBDatabase;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  LoginForm: TAuthorizationForm;
begin
if FileExists(ChangeFileExt(Application.ExeName, ".ini"))  then
begin
  ADMInifile := TIniFile.Create(ChangeFileExt(Application.ExeName, ".ini"));
  DBPath := ADMInifile.ReadString("Database", "Path", "");
end
else
 begin
   MessageDlg("Отсутсвует конфигурационный файл", mtError,[mbYes],0);
   Exit;
end;
try
  with  DMForm do
    begin
     // Коннектимся к базе.
     ZOPDb.DBName := DBPath; // Вот здесь Access Violation!
     ZOPDb.ConnectParams.UserName := "OTK_GUEST";
     ZOPDb.ConnectParams.Password := "otk_guest";
     ZOPDb.Connected := true;
     TRRead.Active := true;
     try
       // Авторизация
       LoginForm := TAuthorizationForm.Create(nil);
       if LoginForm.ShowModal = mrOk then LogFlag := True
       else
       begin
        LogFlag := False;
        Application.Terminate;
       end;
     finally
       LoginForm.Free;
     end;
     end;
except
   DMForm.ZOPDb.Close;
   Showmessage("Ошибка соединения с базой или конфигурирования системы!");
   Exit;
end;

end;
Касательно настроек самого TpFIBDatabase: диалект 3, win1251. Не путей к БД, ни других свойвств не менял.
Использую: BDS 2007, FIB 6.9.5, FB 2.05.

---

← →
sniknik ©   (2009-03-29 15:47) [1]

> procedure TForm1.FormCreate(Sender: TObject);
> with  DMForm do
датамодуль создан  в этот момент? скорее всего нет. отсюда и AV.

---

← →
Гость.   (2009-03-29 15:52) [2]

sniknik, точно,  я идиот (((
Спасибо огромное!!

---

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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.049 c