IB-Client

[Gesine Kuhlmann]

Hallo,

1)
Wie kann ich in meiner Applikation prüfen, ob der IB-Client installiert ist?

2)
Wer evtl. ein kleines Bsp. für TIBInstall (die IBX-Dokumentation hält sich dort recht bedeckt ).

Danke.

[Andreas Kosch]

Hallo,

zu Frage 1: <br>
Hier würde ich genauso vorgehen, wie das IBX intern in der Unit <b>IBIntf</b> auch macht.
<pre>
var
IBLibrary: THandle;
IBClientVersion: Integer;
pAdr : Pointer;
begin
IBLibrary := LoadLibrary(PChar('gds32.dll'));
if (IBLibrary > HINSTANCE_ERROR) then
begin
// InterBase-Client-DLL gefunden
IBClientVersion := 5;
pAdr := GetProcAddress('gds32.dll', 'isc_rollback_retaining');
if Assigned(pAdr) then
// RollbackRetaining gibt es nur beim InterBase 6
IBClientVersion := 6;
end;
end;
</pre>

zu Frage2: <br>
Die einzige "Dokumentation" findet sich im Verzeichnis <i>\InterBase\SDK\include</i> in der Unit <i>IBInstall.pas</i>. Wenn man die anderen, in der InterBase 6-Dokumentation verfügbaren Informationen mit einbezieht, könnte eine Installation so konfiguriert werden: <br>
- TIBInstall.InstallOptions legt fest, was installiert werden soll (Server, Client, Tools) <br>
- TIBInstall.DestinationDirectory legt fest, wohin installiert werden soll <br>
- TIBInstall.SourceDirectory definiert das Quellverzeichnis für die Setup-Dateien <br>
- TIBInstall.InstallCheck prüft, ob alles bereit zur Installation ist <br>
- TIBInstall.InstallExecute startet die Installatio

[Gesine Kuhlmann]

Hallo,

Funktioniert einwandfrei, Danke