windows socket error(10061) |
答題得分者是:P.D.
|
jimmywu
一般會員 發表:41 回覆:37 積分:15 註冊:2006-12-12 發送簡訊給我 |
//=============================================================
當找不到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. |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
jimmywu
一般會員 發表:41 回覆:37 積分:15 註冊:2006-12-12 發送簡訊給我 |
===================引 用 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! 果然可以! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |