delphi请求idhttp数据

idhttp

  ss : TStringStream;
begin
  ss := TStringStream.Create('', TEncoding.GetEncoding(936)); { 指定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='+'8000203');
params.Add('dummy='+'1');
params.Add('h='+'1');
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;
}

 

转载于:https://www.cnblogs.com/cb168/p/4793687.html