以下是在Delphi中的代码,在其他的语言或脚本如C# / JavaScript / ASP.NET / ASP / PHP中也是一样的,XMLHTTPRequest的使用是通用的。
网上说可以直接这样:
httpReq.open('Get',url,True,edt_User.Text,edt_Pwd.Text) //请不要在此放入验证用户和密码,会出错!这个在连接Restful服务中出错!发送Header信息就没有问题,EncodeString()是Delphi中进行Base64编码的函数,编码前的格式为:username:password
UsrPwd_Base64 := edt_User.Text+':'+edt_Pwd.Text; UsrPwd_Base64 := 'Basic '+EncodeString(UsrPwd_Base64);//'Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==' HttpReq.setRequestHeader('Authorization', UsrPwd_Base64);
完整代码如下:
procedure TTestForm.ExecServerMethodByXMLHttp(const useGet: Boolean); var url,UsrPwd_Base64: string; HttpReq:IXMLHTTPRequest; JsonParamStr:string; begin Memo1.Lines.Clear; Memo1.Lines.Add('XMLHTTPRequest '+RadioGroup1.Items[RadioGroup1.ItemIndex]+'方式:'); Memo1.Lines.Add('===================================='); HttpReq := CoXMLHTTP.Create;//早期版本如Delhp7中则为 HttpReq := CoXMLHTTPRequest.Create; //两种提交请求的方式:Get和Post,Get是通过URL地址传递参数如果是中文需要转码,需要添加时间戳 Post不需要添加时间戳 //get url := 'http://localhost:5269/api/webmemberapi/NewMemberRegister?timestamp='+inttostr(Windows.GetTickCount); url := edt_SrvIp.Text+':'+edt_Port.Text+'/peci/rest/TServerMethods/GetRoomInfo_ByRoom/'; url := url+GetParamStr_Delphi; if useGet then begin //http get if chk_Pwd.Checked then //httpReq.open('Get',url,True,edt_User.Text,edt_Pwd.Text) //请不要在此放入验证用户和密码,会出错! httpReq.open('Get',url,False,EmptyParam,EmptyParam) else httpReq.open('Get',url,False,EmptyParam,EmptyParam); end else begin //http post 如用post方法实际上是调用updateGetRoomInfo_ByRoom,post方式会在函数名前加上update前缀 httpReq.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==' HttpReq.setRequestHeader('Authorization', UsrPwd_Base64); end; end; //HttpReq.setRequestHeader('Accept', 'application/x-www-form-urlencoded'); //HttpReq.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded'); HttpReq.setRequestHeader('If-Modified-Since', '0'); HttpReq.setRequestHeader('Accept', 'application/json'); HttpReq.setRequestHeader('Content-Type', 'application/json'); HttpReq.setRequestHeader('Charset', 'utf-8'); //请求主体 try if useGet then begin //http get 如果url中已包含了参数,则无需在此再次传递参数 HttpReq.send(EmptyStr); end else begin //http post JsonParamStr := GetParamStr_Json;//GetParamStr_Delphi;// HttpReq.send(JsonParamStr); end; Memo1.Lines.Add(HttpReq.responseText); except on Ex:Exception do Memo1.Lines.Add(Ex.Message); end; end;