delphi请求idhttp数据
2024-10-19 03:30:14
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;
}
最新文章
- ArrayList LinkedList源码解析
- Docker 学习之命令详解
- iOS--KVO的实现原理与具体应用
- ajax加载表格数据
- 资源Createwindow,对应标识符,绑定窗口
- R语言基础(二) 可视化基础
- Entity - 使用EF框架进行增删改查 - 模型先行
- 伪教练技术培训之殇-2013年9月江西IDC拓行榜与综述
- 享受release版本发布的好处的同时也应该警惕release可能给你引入一些莫名其妙的大bug
- 前端node.js npm i 报错Unexpected end of JSON input while parsing near
- edgedb 内部pg 数据存储的探索 (三) 源码包setup.py 文件
- Git的一些东西(后续补充)
- 20145331魏澍琛《网络对抗》Exp2 后门原理与实践
- sql: Oracle 11g create procedure
- DotNetOpenAuth实践之WCF资源服务器配置
- HTML DOM--基础概述
- c#根据ip获取城市地址
- 统计mysql库中每张表的行数据
- Java中实现MongoDB自增主键ID
- Java多线程与并发——进程与线程