Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi firebird.msg / Embedded App (https://www.delphipraxis.net/91389-firebird-msg-embedded-app.html)

manfred_h 4. Mai 2007 09:55

Datenbank: Firbird • Version: 1.5 • Zugriff über: Fibplus

firebird.msg / Embedded App
 
Hallo zusammen

habe ein kleines DB-Projekt angefangen und die Anwendung
läuft auch auf meinem Dev.System einwandfrei.

Wenn ich die Anwendung aber auf ein "leeres" Windows installiere
erhalte ich immer beim Aufstart die Fehlermeldung das die firebird.msg
nicht gefunden wird. ( die nötigen Dateien .dll usw. sind vorhanden )

Er sucht die Datei immer im falschen Verz. und zwar:
Wenn die Anwendung in
C:\Programme\Anwendnung
sucht er in C:\Programme\

hatte das Problem schon mal, aber habe leider vergessen wie das gelöst wurde. :gruebel:

hat jemand einen Tipp?
Shalom
Manfred

manfred_h 7. Mai 2007 10:16

Re: firebird.msg / Embedded App
 
Hatte noch niemand dieses Problem?

mkinzler 7. Mai 2007 10:21

Re: firebird.msg / Embedded App
 
Geb mal Arbeitsverzeichnis mit an

manfred_h 7. Mai 2007 10:51

Re: firebird.msg / Embedded App
 
Zitat:

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;

manfred_h 7. Mai 2007 16:55

Re: firebird.msg / Embedded App
 
Läuft alles

hatt die falsche fbclient.dll ins Setup gepackt. :wall: :wall: :wall: :wall:

Shalom und Danke für die Tipps
Manfred


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz