Socket error on connect how to raise with Friendly message

[Daniel Fagnan]

We received this message when I lost the connection on the server is off

Can`t Connect to MySQL on '192.168.1.141' (10061)
Socker Error on connect. WSAgetlastError return 10065($2751)

This message is raise with a beep ,I would like to intercept and show a
friendly messsagebox display and continue with the application and retry in 2 min.

[swierzbicki]

Just catch the exception on the myconnection onerror event handler.
See the faq for more details.

[Antaeus]

Another way to solve this problem is to add an OnError event handler to your TMyConnection object. It may look like this:

Code: Select all

uses
  MyCall;

....
procedure TForm1.MyConnectionError(Sender: TObject; E: EDAError;
  var Fail: Boolean);
begin
  if e.ErrorCode = CR_CONN_HOST_ERROR then begin
    ShowMessage('Cannot connect');
    Fail := False;
  end;
end;

[oldmanus]

retry, retry, retry......
connect abort? disconnect, kill connection? etc.?

please example....

[Antaeus]

retry, retry, retry......
connect abort? disconnect, kill connection? etc.? :?:

please example....

Please describe the problem in more detail. What example do you mean?

[Antaeus]

You may be interested in Disconnected Model and Local Failover functionality of MyDAC. See the "Working in an unstable network" topic in MyDAC Help for more information. The FailOver demo demonstrates how does this functionality work. This demo accompanies MyDAC, and is located in the MyDAC installation directory.