delphi idhttp如何使用？

[wanghp1230]

哪位大哥用过idhttp的？？主要怎么样向服务器端传输数据的，然后数据保存在数据库中方面的？谢谢

[sdycy]

我做过一个项目,客户端是用的DELPHI IDHTTP 后台是用的JAVA servlet. 实际上就是模拟hTTP post提交

[wintergoes]

procedure TForm1.Button1Click(Sender: TObject);
var
  slPost: TStringList;
begin
  slPost := TStringList.Create;
  try
    slPost.Add('username=abcd');
    slPost.Add('age=32');
    // .....
    IdHTTP1.Post('http://url.com', slPost);
  finally
    slpost.free;
  end;
end;

服务端可以ASP\ASP.NET\JSP等等接收数据

[啥都得学呀]

TempIdHttp := TIdHTTP.Create(nil);
with TempIdHttp do begin
//OnWorkBegin := IdHTTP1WorkBegin;
//OnWork := idHTTP1Work;
//OnWorkEnd := IdHTTP1WorkEnd;
//OnStatus := IdHTTP1Status;
TempIdHttp.ReadTimeOut := 15000;
//Name := 'http' + IntToStr(i);
TempIdHttp.HandleRedirects := False;
//TempIdHttp.OnRedirect := MyRedirect;
TempIdHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
TempIdHttp.Request.ContentType := 'application/x-www-form-urlencoded; Charset=UTF-8';
//TempIdHttp.Request.Host := 'member1.taobao.com';
TempIdHttp.Request.Connection := 'Keep-Alive';
TempIdHttp.Request.Accept := 'text/html, */*';
if OutValues = nil then
TempIdHttp.Request.ContentLength := 0
else
TempIdHttp.Request.ContentLength := Length(OutValues.Text);

try
try
TempIdHttp.post(URLList[i], OutValues, MyStream);
ReadBool := true;
break;
except
ReadBool := false;
end;
finally
FreeAndNil(TempIdHttp);
end;
end;

[啥都得学呀]

if ReadBool then
begin
//ShowMessage('ok');
MyStream.Position := 0;
MyStream.Size;
LoadResult.LoadFromStream(MyStream);
MyStream.Free;
FreeAndNil(URLList);
ExceptPro;
end
else
begin
MyStream.Free;
FreeAndNil(URLList);
ExceptPro;
//ShowMessage('Err');
end;

[啥都得学呀]

var
I: Integer;
MyStream: TMemoryStream;
ReadBool: BOOLEAN;
URLList: TstringList;
TempIdHttp: Tidhttp;

TempIdHttp.post(URLList[i], OutValues, MyStream);
参数1 POST的URL地址 OUTVALUES是要传输的数据如(a=1,多个可以用stringlist的add添加)
MyStream 数据传输后返回的结果

[like8115]

hh

[tonykk2008]

good~