delphi请求idhttp数据

idhttp

  ss : TStringStream;

begin

  ss := TStringStream.Create('', TEncoding.GetEncoding()); { 指定gb2312的中文代码页，或者54936（gb18030）更好些 utf8 对应 65001}

  try

    IdHTTP1.Get(CSURL, ss);

    IdHTTP1.Get(CSURL);

    Memo1.Text := ss.DataString;

  finally

    ss.Free;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

params:tstrings;

begin

idHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';

idHTTP1.Request.ContentType:='application/x-www-form-urlencoded; Charset=UTF-8';

idHTTP1.Request.Host:='my.qq.com';

idHTTP1.Request.Connection:='Keep-Alive';

idHTTP1.Request.Accept:='*/*';

idHTTP1.Request.SetHeaders;

idHTTP1.Request.CustomHeaders.Values['Cookie']:= edit4.text;

Params:=TStringList.Create;

params.Add('fp='+'loginerroralert');

params.Add('u='+edit1.Text);

params.Add('p='+edit2.Text);

params.Add('verifycode='+edit3.Text);

params.Add('u1='+'http://my.qq.com');

params.Add('aid='+'');

params.Add('dummy='+'');

params.Add('h='+'');

memo1.Text:=idhttp1.Post('http://ptlogin2.qq.com/login',params);

memo1.Text:=utf8toansi(memo1.Text);

end;

void __fastcall TForm6::Button1Click(TObject *Sender)

{

    TStringStream *stream;

    stream = new TStringStream();

    this->IdHTTP1->Get("http://www.beijing-time.org/time15.asp", stream);

    this->Caption = stream->Size;

    Memo1->Text = stream->DataString;

    delete stream;

}

// ---------------------------------------------------------------------------

void __fastcall TForm6::Button2Click(TObject *Sender)

{

    TStringStream *stream;

    stream = new TStringStream();

    this->NetHTTPClient1->Get("http://www.beijing-time.org/time15.asp", stream);

    this->Caption = stream->Size;

    Memo1->Text = stream->DataString;

    delete stream;

}