Вечер в хату ... ээ хм 🫢не .. не так..

Question

Вечер в хату ... ээ хм 🫢не .. не так..

🤦‍♂️ Добрый вечер коллеги 😁
Есть у меня некий объект работы с базой данных. Конструктор у него содержит следующие строки.

constructor tCustomBase.create;
begin
inherited create;

FBBase := tIBDataBase.Create (nil);
FBTrans := tIBTransaction.Create (nil);
FBSQL := tIBSQL.Create (nil);
...
Если на компе не инсталлирован FireBird, то при выполнении кода возникает ошибка в строке FBBase := tIBDataBase.Create (nil) - AccessViolation
есть ли какие то простенькие способы определить инсталлирован ли FireBird на машине (WinXP, Win7) кроме Try/Except ?

#lazarus #programming #russian

0

17.10.2024

5 ответов

3 просмотра

Евгений Марьясов Автор вопроса

Александр В
Ну хз насчет простеньких, но....во первых я бы про...

не.. я конечно понимаю, что по реестру можно определить. Но если какие-то некроследы остались от предыдущей установки - то ненадёжно это. Как и по каталогу установки. в принципе конструкция вида Try FBBase := tIBDataBase.Create (nil); Except нет файрбёрда 🤷‍♂️ справляется, но чёт мне кажется отлавливать ошибки AccessViolation таким образом кривовато как-то.

0

1 месяц назад

Александр В

Евгений Марьясов
не.. я конечно понимаю, что по реестру можно опред...

Тогда просто проверь запущена ли служба, если нет - то запустить. Если не запустилась, значит нету

0

1 месяц назад

Евгений Марьясов Автор вопроса

Александр В
Тогда просто проверь запущена ли служба, если нет ...

Угумс ... поробую. Спасибо.

0

1 месяц назад

Slym

class function TDBProvider.LoadDriver:boolean; var ConnectionDef:TConnectionDef; function TryLoad(const FileName:string):boolean; begin if not FileExists(FileName) then exit(false); try result:=(ConnectionDef.LoadFunction()(FileName)>0); except result:=false; end; end; begin result:=false; ConnectionDef:=SQLDB.GetConnectionDef('Firebird'); if assigned(ConnectionDef) then begin if not ConnectionDef.LoadedLibraryName.IsEmpty then exit(true); {$IFDEF UNIX}if TryLoad('/usr/lib/x86_64-linux-gnu/libfbclient.so.2') then exit(true);{$ENDIF} {$IFDEF UNIX}if TryLoad('libfbclient.so.2') then exit(true);{hope by ld.so.conf}{$ENDIF} if TryLoad(ConnectionDef.DefaultLibraryName) then exit(true);//hope by %path% if TryLoad(ExtractFilePath(ParamStr(0))+ConnectionDef.DefaultLibraryName) then exit(true); {$IFDEF UNIX} if TryLoad(ExtractFilePath(ParamStr(0))+'libfbclient.so.2') then exit(true); if TryLoad(ExtractFilePath(ParamStr(0))+'libfbclient.so') then exit(true); {$ENDIF} Log(Format('Except: Load %s',[ConnectionDef.DefaultLibraryName])); end else Log('SQLDB.GetConnectionDef(Firebird) failed'); end;

0

1 месяц назад

Александр В · Accepted Answer

Ну хз насчет простеньких, но....во первых я бы проверил службы windows есть ли такая. Во вторых - насколько я помню, firebird что-то в переменные окружения пишет. Ну и самый топорный, проверить есть ли дефолтный каталог установки. Это то что сходу на ум пришло

169 похожих чатов

Вечер в хату ... ээ хм 🫢не .. не так..

5 ответов

Похожие вопросы