捕捉TZConnection断线异常

捕捉TZConnection断线异常

?

1 2 3 4 5 6 7 8 9 10

try   qry.Close;   qry.open; except   on e: exception do     if (e is EZSQLException) and (e.message = 'DBError : [20006] : Write to the server failed')  then     begin       ZConnection1.Reconnect;     end; end;