Hallo,
ich habe das Problem, dass wenn ich
ADOConnection.Connected:= true;
aufrufe und keine Verbindung zum
SQL-Server bekomme, dass sich mein Programm komplett aufhängt.
Nun wollte ich das verhindern, indem ich das ganze in einen Thread packe - macht das Sinn?
Es soll nur verhindert werden, dass das Programm komplett abschmiert und nach 15sek Wartezeit eine Meldung ausgegeben wird und der User trotzdem weiter machen kann.
Delphi-Quellcode:
unit U_TimerThread;
interface
uses
Classes, Windows;
type
TimerThread =
class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;
end;
implementation
procedure TimerThread.Execute;
begin
ADOCon.Connected:= true;
end;
beim Verbindungs-ButtonClick:
Delphi-Quellcode:
var
timerT : TimerThread;
begin
TimerT := TimerThread.create(true);
TimerT.Resume;
end;
wie krieg ich jetzt mit, ob 15s rum sind und nix passiert ist, sodass ich den Thread wieder beenden kann?
Danke Tim