delphi判断网络状态是否正常

delphi判断网络状态是否正常

 

如果网络正常才执行远程服务器Rest的CRUD( 增删改查等Put、Post、Get、Delete等请求):

private

    FNetErrored:Boolean; //如果网络正常才执行远程服务器Rest的CRUD( 增删改查等Put、Post、Get、Delete等请求)

    Procedure AProc;

//......

uses myFuc_UnifiedPlatForm;   //:我的客户端函数方法库  //:调用下面的:RestWebService

 

Procedure AProc;

begin

    FNetErrored:=(RestWebService.Trim).Contains('Net Error');

         //:默认访问超稳定的百度搜索首页以此来判断:客户端网络问题:
           //:所有Rest请求或delphi dataSnap客户端请求,
           //:先判断客户端网络状态再开始做       
    if FNetErrored then
    begin
      Lbl_TotalRecs.Text:='网络异常';exit;
    end;

    //  ......

end;

 

//  uses myFuc_UnifiedPlatForm;   

   //:我的客户端函数方法库  //:调用下面的:RestWebService :

 

function RestWebService(
  const ABaseUrl:string=