Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Delphi- DB- Programm läuft nicht (https://www.delphipraxis.net/27006-delphi-db-programm-laeuft-nicht.html)

smash 2. Aug 2004 18:16


Delphi- DB- Programm läuft nicht
 
Hallo,

ich habe ein Programm erstellt, welches eine Paradox 7- Tabelle verwendet.
Das Programm läuft auf dem Notebook, wo es erstellt wurde super. Selbst wenn ich nur die exe- Datei und die MySQL- Datei in einen seperaten Ordner schiebe.

Aber: Auf keinen anderen Rechner läuft das Programm.
Auf dem einen Rechner kam nur die Meldung bevor das Programm gestartet ist "Es wurde ein Fehler festgestellt, und das Programm wurde beendet.".

Auf dem anderen Rechner startete das Programm auch nicht, und nach etlichen Fehlermeldungen kam irgendwas mit "Datenbank" oder so was.

Also was muss ich machen, damit mein Programm anständig läuft?

Danke für die Antworten!

Luckie 2. Aug 2004 18:18

Re: Delphi- DB- Programm läuft nicht
 
Ist der Datenbank Treiber auch auf den Zielrechnern installiert. Der genaue text der Fehlermeldungen wäre jetzt schon hilfreich.

Chris1986 2. Aug 2004 18:25

Re: Delphi- DB- Programm läuft nicht
 
Hi smash,
wie Luckie schon vermutet hat fehlt dir warhscheinlich die BDE (Borland Database Engine) auf dem Zweitrechner. Mit einem Installer (z.B. Installshield) kannst du deine Datenbankanwendung inklusive den BDE-Treibern in eine Installationsroutine packen und beides in einem Schritt auf dem Zielrechner installieren.

Gruß
Christian

eddy 2. Aug 2004 22:02

Re: Delphi- DB- Programm läuft nicht
 
Hallo smash,

probier' das mal aus:


Code:
const
  crlf = chr($0D) + chr($0A); // #13#10
  crlf2 = crlf + crlf;

procedure FormCreate(Sender: TObject);
begin
  ....
  // Test, ob BDE installiert ist
  if not (dbiInit(nil) = 0) then begin // uses DbiTypes;
    tx := FU(cfehler);
    s := 'BDE nicht installiert' +crlf2 + 'Abbruch folgt';
    Application.MessageBox(PChar(s), PChar(tx), MB_ICONSTOP+MB_OK); //16+0);
    Application.Terminate;
  end;
  ....
end;
mfg
eddy


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:07 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