AdoConnection in eigenen Thread

**Tim Henford**

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.

zusammenfalten · markieren

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:

markieren

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

AdoConnection in eigenen Thread

AdoConnection in eigenen Thread

Forumregeln