XMLHTTPRequest、IDHTTP、SQLConnection访问DataSnap/Restful接口服务演示程序

虽然本Demo是用Delphi写的，但是因为XMLHTTPRequest是一种通用技术，故同样适合其他常见的程序语言和脚本语言，如Java、js、php、C#、ASP.NET、ASP、Perl等等。

先看DEMO运行效果：

一、通过XMLHTTPRequest方式调用接口服务：

后台数据库对应的数据：

本操作的单击事件代码为：

procedure TTestForm.ExecServerMethodByXMLHttp(const useGet: Boolean);
var
  url,UsrPwd_Base64: string;
  myXMLHTTP:IXMLHTTPRequest;
  JsonParamStr:string;
begin
  Memo1.Clear;
  Memo1.Lines.Add('XMLHTTPRequest '+RadioGroup1.Items[RadioGroup1.ItemIndex]+'方式：');
  Memo1.Lines.Add('执行状态：');
  Memo2.Clear;
  Memo2.Lines.Add('XMLHTTPRequest '+RadioGroup1.Items[RadioGroup1.ItemIndex]+'方式：');
  Memo2.Lines.Add('返回结果：');

  myXMLHTTP := CoXMLHTTP.Create;//早期版本如Delhp7中则为 myXMLHTTP := CoXMLHTTPRequest.Create;
  //两种提交请求的方式：Get和Post,Get是通过URL地址传递参数如果是中文需要转码，需要添加时间戳 Post不需要添加时间戳
  //get url := 'http://localhost:5269/api/webmemberapi/NewMemberRegister?timestamp='+inttostr(Windows.GetTickCount);    
  //DELPHI生成的Restful服务无法添加时间戳，但可以禁用缓存功能，像这样：myXMLHTTP.setRequestHeader('If-Modified-Since', '0'); //禁用缓存功能

  url := GetSrvUrl;//把edt_Url.Text和edt_Key.Text中的参数进行了分析和拼接处理

  if useGet then
  begin
    //http get
    if chk_Pwd.Checked then
      //myXMLHTTP.open('Get',url,True,edt_User.Text,edt_Pwd.Text) //请不要在此放入验证用户和密码，会出错！
      myXMLHTTP.open('Get',url,False,EmptyParam,EmptyParam)
    else
      myXMLHTTP.open('Get',url,False,EmptyParam,EmptyParam);
  end else
  begin
    //http post 如用post方法实际上是调用updateGetRoomInfo_ByRoom，post方式会在函数名前加上update前缀
    myXMLHTTP.open('Post', url, False, EmptyParam, EmptyParam);
  end;

    if chk_Pwd.Checked then //如果服务器需要验证用户，请把验证信息放入Header中。
    begin
      begin
        UsrPwd_Base64 := edt_User.Text+':'+edt_Pwd.Text;
        UsrPwd_Base64 := 'Basic '+EncodeString(UsrPwd_Base64);//'Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ=='
        myXMLHTTP.setRequestHeader('Authorization', UsrPwd_Base64);
      end;
    end;
  //myXMLHTTP.setRequestHeader('Accept', 'application/x-www-form-urlencoded');
  //myXMLHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');

  myXMLHTTP.setRequestHeader('If-Modified-Since', '0'); //禁用缓存功能，相当于添加了时间戳
  myXMLHTTP.setRequestHeader('Accept', 'application/json');
  myXMLHTTP.setRequestHeader('Content-Type', 'application/json');
  myXMLHTTP.setRequestHeader('Charset', 'utf-8');
  //请求主体
  try
    if useGet then
    begin
      //http get 如果url中已包含了参数，则无需在此再次传递参数
      myXMLHTTP.send(EmptyStr);
    end else
    begin
      //http post
      JsonParamStr := GetParamStr_Json;//GetParamStr;//
      myXMLHTTP.send(JsonParamStr);
    end;


    Memo1.Lines.Add(Format('XMLHTTPRequest.status:%d',[myXMLHTTP.status]));
    Memo1.Lines.Add(Format('XMLHTTPRequest.statusText:%s',[myXMLHTTP.statusText]));
    Memo2.Lines.Add(myXMLHTTP.responseText);
  except
     on Ex:Exception do
        Memo1.Lines.Add(Ex.Message);
  end;
end;

二、通用SOCKET方式调用接口服务执行结果：

仍然是查询前面提到的后台数据库中的记录。

因SQLConnection既支持SOCKET工作方式，同时又支持HTTP工作方式，下面的代码为对这两种工作方式分别进行了处理：

procedure TTestForm.ExecServerMethodBySocket(const useTcp_Ip: Boolean);
var
  SQLConnection1:TSQLConnection;
  vobj:TServerMethodsClient;
begin
  SQLConnection1 := TSQLConnection.Create(nil);
  Memo1.Clear;
  if useTcp_Ip then
    Memo1.Lines.Add('Socket TCP/IP 方式：') //SOCKET工作方式
  else
    Memo1.Lines.Add('Socket HTTP 方式：');
  Memo1.Lines.Add('执行状态：');

  Memo2.Clear;
  if useTcp_Ip then
    Memo2.Lines.Add('Socket TCP/IP 方式：')
  else
    Memo2.Lines.Add('Socket HTTP 方式：');
  Memo2.Lines.Add('返回结果：');

  try
    SQLConnection1.Close;
    SQLConnection1.LoginPrompt := False;
    SQLConnection1.DriverName := 'DataSnap';
    SQLConnection1.Params.Values['HostName'] := GetSrvHost;
    SQLConnection1.Params.Values['DatasnapContext'] := 'peci';

    if chk_Pwd.Checked then  //如果服务器网站需要安全验证，填入验证所需的信息。
    begin
      SQLConnection1.Params.Values['DSAuthenticationUser'] := edt_User.Text;
      SQLConnection1.Params.Values['DSAuthenticationPassWord'] := edt_Pwd.Text;
      SQLConnection1.Params.Values['UserName'] := edt_User.Text;
      SQLConnection1.Params.Values['PassWord'] := edt_Pwd.Text;
    end else
    begin
      SQLConnection1.Params.Values['DSAuthenticationUser'] := '';
      SQLConnection1.Params.Values['DSAuthenticationPassWord'] := '';
      SQLConnection1.Params.Values['UserName'] := '';
      SQLConnection1.Params.Values['PassWord'] := '';
    end;

    if useTcp_Ip then //使用SOCKET工作方式
    begin
      //如果使用tcp/ip协议，则使用下面的语句
      SQLConnection1.Params.Values['CommunicationProtocol'] := 'tcp/ip';
      SQLConnection1.Params.Values['Port'] := edt_Tcp_Port.Text;
    end else
    begin
      //如果使用http协议，则使用下面的语句
      SQLConnection1.Params.Values['CommunicationProtocol'] := 'http';
      SQLConnection1.Params.Values['Port'] := GetSrvPort;//GetSrvPort函数会从URL中解析出所需的端口号信息
    end;
    try
      if not SQLConnection1.Connected then
        SQLConnection1.Connected := True;

      vobj := TServerMethodsClient.Create(SQLConnection1.DBXConnection);
      Memo2.Lines.Add(vobj.ExecSrvMethod(GetSrvMethodName,GetParamStr));
      Memo1.Lines.Add('OK');
    except
      on e:Exception do
        Memo1.Lines.Add(e.Message);
    end;
  finally
    FreeAndNil(vobj);
    FreeAndNil(SQLConnection1);
  end;
end;

本Demo程序下载： http://download.csdn.net/detail/xieyunc/9879261