Ошибка при подключение к базе FireBird

[Dozent]

Всем привет.

При запуске проекта выходить ошибка что не может чото там access violation at address. Ошибка начала выходить после того как я с формы перенёс все компаненты в датамодуль, причём тупо копипаст.

Могу сказать что ошибка выходит при присвоениии пути к базе выходит ошибка, путь определяется, правильно...

 procedure TForm1.FormCreate(Sender: TObject);
var
FIniFile: TIniFile;
d:TDateTime;
i:integer;
s:string;
begin
WindowState := wsMaximized;
  try
  FIniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
  try
    s:=FIniFile.ReadString('Base','Path','');
    DM.IBDatabase1.DatabaseName:=s;
  finally
    FIniFile.Free;
  end;
  DM.IBDatabase1.Connected:=true;

В чём может быт ьпроблема?

[ReportCube]

Модуль DM ещё не создан

[Dozent]

Да да, вычитал и вспомнил это) у меня даже есть решение когда делал

  public
       constructor CreateValues(AOwner: TComponent; Values: Integer);
 
 
onstructor TDynDM.CreateValues(AOwner: TComponent; Values: Integer);
begin
  inherited Create(AOwner);
  FValues:=Values;
  ErrGl:=0;
  try
   FIniFile:= TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Config.ini');
  //try
   ip:= FIniFile.ReadString('Base','IP','');
   port:=FIniFile.ReadString('Base'+IntToStr(FValues), 'Port','');
   PName:= FIniFile.ReadString('Base'+IntToStr(FValues), 'Path','');
   un:= FIniFile.ReadString('Base'+IntToStr(FValues),'user_name','');
   pas:= FIniFile.ReadString('Base'+IntToStr(FValues),'password','');
 
    //Подключение к базе   DB-IBDatabase
   DB.Connected := false;
   DB.DatabaseName:=ip+'/'+port+':'+PName;
   DB.Params.Add('user_name='+un);
   DB.Params.Add('password='+pas);
   DB.Connected := true;

Тогда получается компаненты хранить на форме лучше)
Поделитесь опытом где храните компненты если их много)

[Аватар]

Правильно все сделали, только создание DataModule в .dpr сделать раньше создания основной формы

[Dozent]

Эм подскажите как?

[Аватар]

Для д7: меню Project->View Source. Примерно так выглядит для проекта из одной формы и одного датамодуля

  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TForm1, Form1);
  Application.Run;

[Dozent]

сделал как вы сказали
Сейчас появилась ошибка Database not assigned, посмотрел что настройки сдибилсь выставил и всё равно такая ошибка...

Эм помогите разобратся) А то я сегодняшний день убил на перекидывание с формы в датамодуль и обратно и опять) и везде менял обращение к компанентам)

Понять не могу что ему не хватает)

Понял кажись, после переноса сбились свойства, какая транзакция к чему итд и тп шас разбиратся буду)

Всё подправил, всё запустилось, всё работает, спасибо....