firebird.msg / Embedded App

[manfred_h]

Zitat von mkinzler:

Geb mal Arbeitsverzeichnis mit an

Das mach ich schon die fbclient.dll findet er ja auch einwandfei.
Ist im App. Verzeichniss.

Das Programmverzeichniss gebe ich wie folgt an:
In der Ini steht der komplette Path.

Delphi-Quellcode:

procedure TUDM.DataModuleCreate(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'setup.ini');
  app_dir      := ini.ReadString('SETUP','APP_DIR','');
  easysoft_dir := ini.ReadString('SETUP','EASYSOFT_DIR','');
  frm_main.lbl_app_dir.Caption:= app_dir;
  if easysoft_dir='' then frm_setup.ShowModal else db_connect(Sender);
end;

procedure TUDM.db_connect(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'setup.ini');
  with udm.pFIBDatabase do
  begin
    Connected := False;
    DBParams.Clear;
    DBParams.Add ('lc_ctype=UNICODE_FSS');
    DBParams.Add ('user_name=sysdba');
    DBParams.Add ('password=masterkey');
    LibraryName := app_dir +('fbclient.dll');
    DatabaseName := app_dir +('VEREINS_DB.FDB');
    Connected := True;
  end;
end;