installationsschwierigkeiten meines programmes mit wise inst

[coolstranger]

ich habe probleme mit meinem wise installer. habe aktiviert, dass er die bde mit installieren soll. so es wird ein shortcut auf dem desktop erstellt. wenn ich auf dieses klicke kommt die fehlermeldung, dass er auf meinem desktop keine filme.db finden kann! soll er ja auch nicht! wie kann ich dem programm sagen, dass die datei woanders ist. muss man das schon in dem quelltext machen?

[MathiasSimmack]

Die Zauberworte lauten ExtractFilePath und (wahrscheinlich) paramstr(0) (s. Delphi-Hilfe). Ersteres extrahiert den Pfad aus einem kompletten Dateinamen, und letzteres gibt die Position deines Programms (deiner Exe) an.

[coolstranger]

ich habe mir die hilfe angeschaut, doch nicht so richtig verstanden! wie kann ich diese sachen in meinen quelltext integrieren und wo

[Marcel Gascoyne]

Wenn Deine Datenbank im gleichen Verzeichnis wie die EXE Datei liegt kannst Du den Pfad über ExtractFilePath ermitteln. Andernfalls kannst Du über ParamStr() auf die Parameter der Anwendung zugreifen. Mein Beispiel nutzt den als ersten Parameter übergebenen String als Dateinamen und ansonsten eine Datenbankdatei im gleichen Verzeichnis.

Delphi-Quellcode:

if ParamCount > 0 then
  MyDBFile := ParamStr(1)
else
  MyDBFile := ExtractFilePath(Application.Exename) + 'mydatabase.db';

Gruß,
Marcel

[coolstranger]

cool dankeschön! aber wo genau muss ich diesen code einfügen? wie gesagt, bin ein newbie sorry

[MathiasSimmack]

Na wo schon? Überall da, wo dein Programm diese "filme.db"-Datenbank lädt.

[coolstranger]

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, XPMan, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    XPManifest1: TXPManifest;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form3.show;
end;


end.

OK und wo hin?

[MathiasSimmack]

Ich habe ja Verständnis für Neulinge, und ich kann durchaus damit leben, dass man an diesem Punkt (als Neuling) nicht unbedingt weiß, was man eintragen muss ... ... aber das Wo dürfte doch wohl kein Problem sein?

Irgendwo in deinem Programm muss sich ganz offensichtlich Code befinden, in dem die Datenbank (= Datei) "filme.db" geladen wird. In dem von dir gezeigten Code ist das ganz eindeutig nicht der Fall. Sorry, darum kann ich deine Frage nicht beantworten.

Und jetzt poste bitte nicht jede Unit deines Programms! Schau dir deinen Quellcode an und suche nach dem Vorkommen von "filme.db". Dort ergänzt du den Pfad in der von Marcel gezeigten Art und Weise.