DB-Programm auf anderem PC ausführbar machen...

[dlenz]

Hallo Liebe Gemeinde,

ich möchte mein DB-Verwaltungsprogramm gerne auf einem anderen PC ausführbar machen.
Irgendwie komme ich aber mit "ExtractFilePath(ParamStr(0));" irgendwie nicht zurande.

Ich benutze eine TurboDB "db.tdbd", die im Ordner /db in meinem Programmverzeichnis liegt.

Wo muss ich denn "ExtractFilePath(ParamStr(0));" genau im Code anwenden?

Vielen Dank schonmal im Voraus!

[Bernhard Geyer]

Zitat von dlenz:

Wo muss ich denn "ExtractFilePath(ParamStr(0));" genau im Code anwenden?

Ich denke mal bevor du die Datenbankverbindung aktivierst muss eine korrekter gültiger Pfad eingetragen sein.

[dlenz]

das habe ich ja auch, aber eben nur lokal für meinen PC. Wenn das Programm aber auf einem anderen PC ausgeführt wird, dann wird meine "db.tdbd" im Ordner /db aber nicht gefunden, da der andere PC einen ganz anderen Laufwerksbuchstaben und Programmpfad hat, in dem das Programm gestartet wird.

ich starte das Programm z.B. im Ordner E:\Delphi-Prgs\, der andere PC aber aus dem Ordner C:\Programme\ProgrammXYZ\ und dann wird die DB nicht gefunden.

Das mein ich damit

[mkinzler]

Deshalb mußt du den Pfad ja mit obengenannter Funktionbei Programmstart ermitteln, in die Komponenete (kombiniert mit Dateinamen) eintragen.

[dlenz]

Ich habe das jetzt so gemacht:

Delphi-Quellcode:

procedure Tfrm_main.FormCreate(Sender: TObject);
 var verz: string;
begin
 verz := ExtractFilePath(ParamStr(0))+'/db/';
 TdbTable1.Active := False;
 try
  TdbTable1.DatabaseName := verz;
  TdbTable1.TableName := 'db.tdbd';
  TdbTable1.Active := True;
 except
  MessageBeep(0);
  ShowMessage('Die Tabelle db.tdbd befindet' + #10#13 +'sich nicht im angegebenen Verzeichnis!')
 end
end;

aber bekomme eine Fehlermeldung:
Im Projekt ist Exception der Klasse ETdbEngine aufgetreten. Meldung:'Code = 134, Description ='. Proyess wurde angehalten.

was mach ich da falsch? *grübel

[uwewo]

Führe doch mal Einzelne Anweisungen mit F7 aus, dann siehst Du wo es Probleme gibt.

Uwe

[dlenz]

TdbTable1.Active := True;

ist falsch sagt der code explorer

[mkinzler]

verz := ExtractFilePath(ParamStr(0))+'db/'; Backslash ist bereits Teil des Pfades

[dlenz]

kommt trotzdem die gleiche fehlermeldung.

habe hier nochmal meinen gesamten code:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, DB, TdbLicense, TdbDataSet,
  Grids, DBGrids, Buttons;

type
    Tfrm_main = class(TForm)
    DBEdit1: TDBEdit;
    Image1: TImage;
    TdbTable1: TTdbTable;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBGrid1: TDBGrid;
    DBEdit13: TDBEdit;
    BitBtn1: TBitBtn;
    DBEdit14: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frm_main: Tfrm_main;

implementation

uses u_qr1;

{$R *.dfm}

procedure Tfrm_main.BitBtn1Click(Sender: TObject);
begin
 liste.TdbQuery1.SQL.Clear;
 liste.TdbQuery1.SQL.Add('SELECT * FROM antragsgegner WHERE ID =' + DBEdit1.Text);
 showmessage(liste.TdbQuery1.SQL.text);
 liste.TdbQuery1.Open;
 liste.preview;
end;

procedure Tfrm_main.FormCreate(Sender: TObject);
 var verz: string;
begin
 verz := ExtractFilePath(ParamStr(0))+'db/';
 TdbTable1.Active := False;
 try
  TdbTable1.DatabaseName := verz;
  TdbTable1.TableName := 'db.tdbd';
  TdbTable1.Active := True;
 except
  MessageBeep(0);
  ShowMessage('Die Tabelle db.tdbd befindet' + #10#13 +'sich nicht im angegebenen Verzeichnis!')
 end
end;

end.

also im moment weiß ich nicht, wo der fehler liegt. im OI habe ich die Eigenschaft "DatabaseName" leer gelassen, weil diese eigenschaft ja per variable "verz" und TdbTable1.TableName := 'db.tdbd' bestimmt werden soll.

was mach ich da falsch?

[mkinzler]

Was für ein Fehler wird genau angezeigt? (GGf Exception-Handler deaktivieren)