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;
uj5u.com熱心網友回復：
地址發出來，我幫你postuj5u.com熱心網友回復：
kirm.add('param1=value1‘）
krim.add('param2=value2')
uj5u.com熱心網友回復：
http.post 干嘛要字串拼接 ,sl.add (XXX);
sl.add (XXXX);
這樣多方便呢
http.get 沒有辦法才拼接字符
uj5u.com熱心網友回復：
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);
uj5u.com熱心網友回復：
http.post 干嘛要字串拼接 ,sl.add (XXX);
sl.add (XXXX);
這樣多方便呢
http.get 沒有辦法才拼接字符
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/41263.html
標籤：網絡通信/分布式開發