Naja wenn ich einfach den Severstatus abfrage läuft nicht viel Text
mal hier der Auszug
Delphi-Quellcode:
Path := ExtractFilePath(ParamStr(0))+'
mes_toolbox.dll';
// Wenn Dll im gleichen Pfad wie die Exe liegt.
DLL := PChar(Path);
DLLHandle := LoadLibrary(
DLL);
checkptr:= GetProcAddress(DLLHandle,'
CHECK_DB_CONNECTION');
@DLLCheck:= CheckPtr;
j:=dllcheck;
if j=0
then statusbar1.panels[0].Text:=inttostr(j)+'
Datenbank Verbindung OK';
if j=-1000
then statusbar1.panels[0].Text:=inttostr(j)+'
Fehler: keine Verbindung zur DB';