idHttp 中GET POST应用

 1 procedure GetDemo; 2 var 3 ??IdHttp : TIdHTTP; 4 ??Url : string;//请求地址 5 ??ResponseStream : TStringStream; //返回信息 6 ??ResponseStr : string; 7 begin 8 ??//创建IDHTTP控件 9 ??IdHttp := TIdHTTP.Create(nil);10 ??//TStringStream对象用于保存响应信息11 ??ResponseStream := TStringStream.Create(‘‘);12 ??try13 ????//请求地址14 ????Url := ‘http://dict.youdao.com/‘;15 ????try16 ??????IdHttp.Get(Url,ResponseStream);17 ????except18 ??????on e : Exception do19 ??????begin20 ????????ShowMessage(e.Message);21 ??????end;22 ????end;23 ????//获取网页返回的信息24 ????ResponseStr := ResponseStream.DataString;25 ????//网页中的存在中文时，需要进行UTF8解码26 ????ResponseStr := UTF8Decode(ResponseStr);27 ??finally28 ????IdHttp.Free;29 ????ResponseStream.Free;30 ??end; ??31 end;

 1 procedure PostDemo; 2 var 3 ??IdHttp : TIdHTTP; 4 ??Url : string;//请求地址 5 ??ResponseStream : TStringStream; //返回信息 6 ??ResponseStr : string; 7 ?8 ??RequestList : TStringList; ????//请求信息 9 ??RequestStream : TStringStream;10 begin11 ??//创建IDHTTP控件12 ??IdHttp := TIdHTTP.Create(nil);13 ??//TStringStream对象用于保存响应信息14 ??ResponseStream := TStringStream.Create(‘‘);15 16 ??RequestStream := TStringStream.Create(‘‘);17 ??RequestList := TStringList.Create;18 ??try19 ????Url := ‘http://f.youdao.com/?path=fanyi&vendor=fanyiinput‘;20 ????try21 ??????//以列表的方式提交参数22 ??????RequestList.Add(‘text=love‘);23 ??????IdHttp.Post(Url,RequestList,ResponseStream);24 25 ??????//以流的方式提交参数26 ??????RequestStream.WriteString(‘text=love‘);27 ??????IdHttp.Post(Url,RequestStream,ResponseStream);28 ????except29 ??????on e : Exception do30 ??????begin31 ????????ShowMessage(e.Message);32 ??????end;33 ????end;34 ????//获取网页返回的信息35 ????ResponseStr := ResponseStream.DataString;36 ????//网页中的存在中文时，需要进行UTF8解码37 ????ResponseStr := UTF8Decode(ResponseStr);38 ??finally39 ????IdHttp.Free;40 ????RequestList.Free;41 ????RequestStream.Free;42 ????ResponseStream.Free;43 ??end;44 end;