Hallo,
erstmal danke für die vielen Antworten.
Wenn das Connected fehlschlägt kehrt er zum Formular zurück. Oben genannte Funktion wird verschachtelt über eine Ereignissbehandlungsroutine aufgerufen welche wiederum Funktionen aufruft.
Eine dieser Funktionen ist diese ConnectServer Routine. Für das Programm ist nach der
Exception das Ereigniss beendet (Also er springt nicht mal zu irgendeinem end irgendeiner dieser Funktion übergeordnetten Funktionen)
Also ich meine das etwa so.
Delphi-Quellcode:
...
Procedure Meinereigniss(Sender : TObject);
begin
...
Startunterfunktion()
...
end; // <-- hier kommt er im Fehlerfall nicht hin
Procedure Startunterfunktion();
begin
...
ConnectServer()
... // <-- hier kommt er im Fehlerfall auch nicht hin
end;
procedure Meinform.ConnectServer();
var i : integer;
begin
for i:=0 to WriteServer.Count-1 do
begin
try
TIbDatabase(WriteServer[i]).Connected:=True; // WriteServer ist ein TListObjekt
except
end;
end;
ReadServer.Connected:=true; // <-- hier kommt er im Fehlerfall nicht hin
...
end;
Das es, wie Mario schon sagte, in einem anderen Thread läuft kann sein. Aber wie macht man es dann ?
Gruß Daniel