| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Access Violation в TpFIBDatabase при первом обращении.

Гость. ©   (2009-03-29 15:42:00) 


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.

---

Гость.   (2009-03-29 15:52:00) [1]

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

---

sniknik   (2009-03-29 15:47:00) [2]

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

---

Наверх