Unter LINUX Datei ist vorhanden wird aber nicht gefunden

[DL3AD]

Hallo,
habe folgendes Problem unter Linux.

Code: Alles auswählen

 
procedure TForm1.DBOn;
begin
  if FileExists('libsqlite3.so.0') then//Hier bei der Prüfung wird die lib nicht gefunden
  else
  begin
    ShowMessage('libsqlite3 not found !');
    Halt;
  end;
  if FileExists(Config.ReadString('Setup','Database','')) then
  begin
    ZConDB.Connected      := false;
    ZConDB.Database       := Config.ReadString('Setup','Database','');
    ZConDB.LibraryLocation:= 'libsqlite3.so.0';//Ohne die obige Prüfung kann er auf die lib hier zugreifen.
    ZConDB.Connected      := true;
    QueryLog.Active       := true;
  end
  else
  begin
    ShowMessage('Database not found !');
    Form1.Close;
  end;
end;               
 

Es wird bei der Prüfung auf die lib das nicht Vorhandensein festgestellt.
Ohne die Prüfung läuft die Anwendung aber.
Ziel der Prüfung ist wenn mal das Paket sqlite3 nicht installiert ist, die Anwendung mit Hinweis vor dem Abschmieren zu bewahren.

Was habe ich da falsch gemacht ?

Gruß Frank

[kralle]

Moin,

es gibt für FileExist auch eine UTF-Version

Code: Alles auswählen

FileExistsUTF8

vielleicht hilft Dir das Weiter.

Gruß Heiko

[DL3AD]

...FileExistsUTF8 war nicht die Lösung - Ich vermute es liegt daran dass libsqlite3.so.0 keine Datei sondern ein Link auf die aktuelle libsqlite ist.
Wie löse ich dass Problem ?

[kralle]

vielleicht hilft das hier https://stackoverflow.com/questions/137 ... freepascal

Gruß Heiko

[Epcop]

Zuerst das Arbeitsverzeichnis auf den aktuellen Ordner bzw. dort wo die Datei liegt setzen?

[mse]

...FileExistsUTF8 war nicht die Lösung - Ich vermute es liegt daran dass libsqlite3.so.0 keine Datei sondern ein Link auf die aktuelle libsqlite ist.

Nein, es liegt daran, dass dlopen() die Systemumgebung abfragt, wo nach libraries gesucht werden soll:
http://man7.org/linux/man-pages/man3/dlopen.3.html
Warum fängst du nicht einfach die von Zeos geworfene exception ab und reagierst entsprechend?

[DL3AD]

Warum fängst du nicht einfach die von Zeos geworfene exception ab und reagierst entsprechend?

... das mache ich ungern - das ist ja so - ich lasse es zu einem Unfall kommen und reagiere dann erst.
Zeos erkennt ja dass die lib da ist - also muss es ja auch eine Möglichkeit geben dass selbst festzustellen - oder ?

[mse]

Warum fängst du nicht einfach die von Zeos geworfene exception ab und reagierst entsprechend?

... das mache ich ungern - das ist ja so - ich lasse es zu einem Unfall kommen und reagiere dann erst.

??? Das ist doch der Zweck von Exceptions?

Zeos erkennt ja dass die lib da ist - also muss es ja auch eine Möglichkeit geben dass selbst festzustellen - oder ?

Rufe dlopen() aus unit dl auf und schaue ob NIL geliefert wird.

[wp_xyz]

Wenn in der Funktion FileExists eine relativer Pfad steht, wird die Datei relativ zum aktuellen Arbeitsverzeichnis gesucht. Ich vermute, dass Zeos aber den Systempfad durchsucht. Dazu hat FPC die Funktion SearchFileInPath. Wenn du noch mit GetEnvironmentVariable den Pfad ausliest, müsste es eigentlich klappen - zumindest funktioniert das folgende bei mir unter Windows:

Code: Alles auswählen

uses
  FileUtil;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  path: String;
  fn: String;
begin
  path := GetEnvironmentVariable('path');
  fn := SearchFileInPath('sqlite3.dll', '', path, ';', []);
  ShowMessage(fn);
end;   

[DL3AD]

Hallo mse,

wie würde man denn die von Zeos geworfene exception behandeln damit z.B. eine Message ausgegeben wird dass die lib nicht gefunden wurde ?

[mse]

Code: Alles auswählen

 
procedure TForm1.DBOn;
begin
[...]
    ZConDB.Connected      := false;
    ZConDB.Database       := Config.ReadString('Setup','Database','');
    ZConDB.LibraryLocation:= 'libsqlite3.so.0';//Ohne die obige Prüfung kann er auf die lib hier zugreifen.
    try
     ZConDB.Connected      := true;
     QueryLog.Active       := true;
    except
     application.handleexception();
    //weitere aktionen im fehlerfall
    end;
 

[Mathias]

Code: Alles auswählen

 if FileExists('libsqlite3.so.0') then//Hier bei der Prüfung wird die lib nicht gefunden
  else
  begin
    ShowMessage('libsqlite3 not found !');
    Halt;
  end;

Befindest du dich auch in dem Ordner, wo sich die Datei "libsqlite3.so.0" befindet ?
Ansonsten findet FileExits die Datei nicht.

Aber der Liberty-Manager kann sie trotzdem finden und einbinden.

ZB. bei der OpenGL Lib 'libGL.so.1' ist dies auch der Fall.

[DL3AD]

Hallo mse,

bei

Code: Alles auswählen

application.handleexception();

gibt es eine Fehlermeldung wegen fehlendem Parameter

[Mathias]

gibt es eine Fehlermeldung wegen fehlendem Parameter

Versuche es mal so:

Code: Alles auswählen

Application.HandleException(Self);

[mse]

Hallo mse,

bei

Code: Alles auswählen

application.handleexception();

gibt es eine Fehlermeldung wegen fehlendem Parameter

Sorry, das war aus dem Kopf, bei MSEgui gibt es einen default-Parameter:

Code: Alles auswählen

 
 tcustomapplication = class(tmsecomponent)
[...]
   procedure handleexception(sender: tobject = nil; 
                                       const leadingtext: msestring = '');