Главная страница
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.063 c
15-1275473275
bss
2010-06-02 14:07
2010.08.27
Соответствие регулярных выражений DevExpress и Perl


6-1221562776
evgenij
2008-09-16 14:59
2010.08.27
Error от IdFTP


2-1268604733
Mer01
2010-03-15 01:12
2010.08.27
Ошибка доступа к памяти (указатели)


2-1266402247
00110011
2010-02-17 13:24
2010.08.27
TStrings.Assign


15-1264762579
И Павел
2010-01-29 13:56
2010.08.27
Стоит ли превращать сайт в файлообменник?