Главная страница
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.049 c
15-1275913487
oleg_teacher
2010-06-07 16:24
2010.08.27
Mac os + delphi


2-1268812490
Вася
2010-03-17 10:54
2010.08.27
Как узнать, существует ли компонент?


15-1272975151
NailMan
2010-05-04 16:12
2010.08.27
К летнему сезону киберматрицы готов!


15-1272634082
JohnKorsh
2010-04-30 17:28
2010.08.27
Как в Windows7 отключить UAC?


2-1274322405
03111978
2010-05-20 06:26
2010.08.27
Работа с файлом