idhttp POST 数据完，memo中返回不了正常数据

2017-06-25 03:01:01 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32CubeMX+Keil5实战：手把手教你用STM32F103C8T6开发扫地机器人（附完整代码）本文详细介绍了如何使用STM32F103C8T6开发智能扫地机器人，从STM32CubeMX配置到Keil5代码实现的全过程。涵盖硬件选型、时钟树配置、GPIO外设设置、电机驱动、超声波测距及自动避障算法等核心内容，并提供完整代码示例，助力开发者快速掌握智能硬件开发技巧。阅读详情

idhttp POST 数据完，memo中返回不了正常数据，求大神看看

procedure TForm3.Button1Click(Sender: TObject);
var
kirim: TStrings;
hasil: String;
text:string;
begin
IdHttp1.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:53.0) Gecko/20100101 Firefox/53.0';
Idhttp1.Request.Accept :='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Idhttp1.Request.ContentLanguage :='zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3';
IdHttp1.Request.AcceptEncoding:='gzip, deflate';
Idhttp1.Request.ContentType :='application/x-www-form-urlencoded';
IdHttp1.Request.Connection := 'keep-alive';
Kirim := TstringList.Create;
try
kirim.Add('siteid'+'='+'1'+'&'+'modelid'+'='+'2'+'&'+'username'+'='+GetRandStr(8)+'&'+'password'+'='+'1qaz998998'
+'&'+'pwdconfirm'+'='+'1qaz998998'+'&'+'email='+GetRandStr(8)+'@'+'163'+'.'+'com'+'&'+'nickname'+'='+'hellko'
+'&'+'dosubmit'+'='+'1'+'&'+'protocol'+'='+'&'+'info'+'['+'content'+']'+'='+'<'+'img'+' '+'src'+'='+edit1.text+'?'+'.'+'php'+'#'+'.'+'jpg'+'>');
hasil := IdHttp1.POST('http://'+edit2.Text+'/index.php?m=member&c=index&a=register&siteid=1',kirim);
memo1.Lines.Add(hasil);
finally
end;
Kirim.Free;
end;

...全文

RT-Thread网络编程：基于STM32F407的TCP客户端实现（含完整代码解析）本文详细介绍了在STM32F407平台上，基于RT-Thread操作系统和LWIP协议栈实现工业级可靠TCP客户端的完整过程。内容涵盖底层ETH驱动配置、Socket编程、连接保活与断线重连机制、数据收发协议设计以及资源管理，提供了可应用于实际项目的健壮代码框架与调试技巧。阅读详情

mang2227

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

cohye 2018-05-18

打赏
举报

http.post 干嘛要字符串拼接 , sl.add (XXX); sl.add (XXXX); 这样多方便呢 http.get 没有办法才拼接字符

cqs6616 2018-05-14

打赏
举报

kirim.add(m=member); kirim.add(c=index); kirim.add(a=register); kirim.add(siteid=1); kirim****; hasil := IdHttp1.POST('http://'+edit2.Text+'/index.php,kirim);

cqs6616 2018-05-14

打赏
举报

http.post 干嘛要字符串拼接 , sl.add (XXX); sl.add (XXXX); 这样多方便呢 http.get 没有办法才拼接字符

bants 2018-05-07

打赏
举报

引用楼主 mang2227 的回复:

idhttp POST 数据完，memo中返回不了正常数据，求大神看看 procedure TForm3.Button1Click(Sender: TObject); var kirim: TStrings; hasil: String; text:string; begin IdHttp1.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:53.0) Gecko/20100101 Firefox/53.0'; Idhttp1.Request.Accept :='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'; Idhttp1.Request.ContentLanguage :='zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3'; IdHttp1.Request.AcceptEncoding:='gzip, deflate'; Idhttp1.Request.ContentType :='application/x-www-form-urlencoded'; IdHttp1.Request.Connection := 'keep-alive'; Kirim := TstringList.Create; try kirim.Add('siteid'+'='+'1'+'&'+'modelid'+'='+'2'+'&'+'username'+'='+GetRandStr(8)+'&'+'password'+'='+'1qaz998998' +'&'+'pwdconfirm'+'='+'1qaz998998'+'&'+'email='+GetRandStr(8)+'@'+'163'+'.'+'com'+'&'+'nickname'+'='+'hellko' +'&'+'dosubmit'+'='+'1'+'&'+'protocol'+'='+'&'+'info'+'['+'content'+']'+'='+'<'+'img'+' '+'src'+'='+edit1.text+'?'+'.'+'php'+'#'+'.'+'jpg'+'>'); hasil := IdHttp1.POST('http://'+edit2.Text+'/index.php?m=member&c=index&a=register&siteid=1',kirim); memo1.Lines.Add(hasil); finally end; Kirim.Free; end;

kirm.add('param1=value1‘） krim.add('param2=value2')

大肚肥肥 2017-06-28

打赏
举报

地址发出来，我帮你post

idhttp POST 数据完，memo中返回不了正常数据

相关推荐