Guten Morgen!
Ich habe folgendes Problem:
Uber einen timer mache ich jede Sekunde einen Query-refresh auf eine Datenbank im Netz. Ich verwende dazu dbexpress-Komponenten (SQLConnection+SQLQuery).Nun möchte eine Fehlerbehandlung mit try...except implementieren, sodass , sobald die Netzwerkverbindung aus irgendeinem Grund unterbrochen wird, eine nachricht ausgegeben wird.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
if chkbx_zyklisch.Checked then //nur wenn ich das auch will...
begin
ZeitStart(Self);
try
DataModule1.SQLQuery1.Refresh;
except
ShowMessage('Verbindung verloren!');
end;
ZeitStop(Self);
edt_RefreshZeit.Text := IntToStr(LaufZeit);
Ausgabe_Edit_Felder(Self);
end;
end; |
Leider funktioniert das in dieser Form nicht. Ziehe ich das LAN raus, erscheint folgende Fehlermeldung:
Error der Klasse EcwbError, Meldung 'cwbDB_Fetch returned error code 6053'...
Hat jemand eine Idee??
Markus
