delphi客户端自动重连功能

1 procedure Tf_login.Timer1Timer(Sender: TObject); 2 function TestConnected: Boolean; 3 var 4 aCon: TADOConnection; 5 begin 6 Result := False; 7 aCon
posted @ 2019-11-22 11:09  江渔湖  阅读(283)  评论(0)  编辑  收藏  举报