Zitat von
onkelmehli:
...nur leider kommt hier von Windows oder
SQL generierte Fehlermeldung der Autorisierung...
Die
Exception wird aber nur in der Delphi
IDE angezeigt.
Wenn du nur die EXE startest, wirst du die Fehlermeldung nicht zu sehen bekommen.
Hier nochmals die verbesserte Funktion:
Delphi-Quellcode:
function TestConnection(const ConnectStr: String): Boolean;
begin
try
adc.ConnectionString:= ConnectStr;
adc.Connected:= True;
Result:= True; // Result möglichst spät setzen, um Prozessor Register freizuhalten
except
Result:= False;
end;
end;