Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.086 c
15-1268677017
AntonioBanderas
2010-03-15 21:16
2010.08.27
из prn в rtf


15-1270836779
Nickola2
2010-04-09 22:12
2010.08.27
Работа с USB - портом


15-1271414136
ocean
2010-04-16 14:35
2010.08.27
Блокировать сайты в ISA


2-1271530750
[true]TRIx
2010-04-17 22:59
2010.08.27
массив pointer, обратиться к ячейке


11-1219772870
Артем
2008-08-26 21:47
2010.08.27
Ticqclient на KOL е