//=============================================================
當找不到Ap server時,系統會出現錯誤訊息:

=====> windows socket error :無法連線,因為目標電腦拒絕連線 。(10061) ,on API 'connect'

請教,這個錯誤訊息可以抓到嗎?
//=============================================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,DB, DBClient,SqlExpr, Provider, DbxDatasnap,DBXMsSQL;
type
EsocketError =class(Exception);
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender: TObject);
Var
dbcnz :Tsqlconnection;
SqlServerMethodz :TSqlServerMethod;
DataSetProviderz :TDataSetProvider;
ClientDataSetz :TClientDataSet;
DataSourcez :TDataSource;
Begin
//==========================================
dbcnz :=TSqlconnection.Create(self);
SqlServerMethodz :=TSqlServerMethod.Create(self);
DataSetProviderz :=TDataSetProvider.Create(self);
ClientDataSetz :=TClientDataSet.Create(self);
DataSourcez :=TDataSource.Create(self);
//==========================================
DataSourcez.DataSet :=ClientDataSetz;
DataSetProviderz.Name :='DataSetProviderz';
ClientDataSetz.ProviderName :=DataSetProviderz.Name ;
DataSetProviderz.DataSet :=SqlServerMethodz;
//==========================================
SqlServerMethodz.Params.CreateParam(ftDataSet,'GetApsvrDataSet',ptResult);
SqlServerMethodz.ServerMethodName :='TDSServerModule1.GetMac';
SqlServerMethodz.SQLConnection :=dbcnz;
dbcnz.ConnectionName :='dbcnz';
dbcnz.DriverName :='Datasnap';
dbcnz.LoginPrompt :=false;
ClientDataSetz.Active :=False;
//===========================================
Try
ClientDataSetz.Active := True;
Except on EsocketError do <=============這個錯誤訊息可以抓到嗎?
begin
raise Esocketerror.Create('找不到應用伺服器!') ;
application.Terminate;
end;
End;
//=============================================
End;
End.

Try red line! 

Try
ClientDataSetz.Active := True;
Except
on E:Exception do begin
Application.MessageBox(pChar(E.Message #13 '找不到應用伺服器!'),'錯誤',MB_OK);
application.Terminate;
end;
End;

===================引 用 P.D. 文 章===================
Try red line!

Try
ClientDataSetz.Active := True;
Except
on E:Exception do begin
Application.MessageBox(pChar(E.Message #13 '找不到應用伺服器!'),'錯誤',MB_OK);
application.Terminate;
end;
End;

Thanks! 果然可以!