欢迎来到传世资源网!
加载中...
正在加载,请耐心等待...

delphi 多参数post提交数据代码

procedure TForm1.Button1Click(Sender: TObject);
var
ss:TStringList ;
s:string;
begin
ss:=TStringList.Create;
if Length( Memo4.Text)< 20 then Memo5.Lines.Add('内容太短');
if Edit18.Text ='' then Edit18.Text:=Copy(Memo4.Text,1,30) ;

//ss.Add('secret=j');
ss.Add('post_author=admin');
ss.Add('post_category=69');
ss.Add('post_title=' AnsiToUTF8(Edit18.Text));
ss.Add('post_content=' AnsiToUTF8(Memo4.Text) '');
ss.Add('post_meta=69');
ss.Add('post_status=publish');

s:= gpost('https://www.5t6t.com/Locoy.php',ss);

ss.Free;
Memo5.Text:=UTF8ToAnsi(s);
end;

function TForm1.gpost(url:String;data:TStringList):String;
var
fhttpRequest: TIdHTTP;
PostData : TStringStream;
tmpStr,s : String;
i:integer;
begin

fhttpRequest := TIdHTTP.Create(nil);
fhttpRequest.HandleRedirects := True;//允许头转向
fhttpRequest.ReadTimeout := 5000;//请求超时设置
fhttpRequest.Request.ContentType := 'application/x-www-form-urlencoded';//设置内容类型为json
PostData := TStringStream.Create('');
PostData.Position := 0;//将流位置置为0
s:='';
for I := 0 to data.Count - 1 do begin
s:=s data[i] '

下载声明:

本站资源均有第三方用户自行上传分享推荐,非本站自制,仅供玩家做交流学习之用!切勿用于商业用途!游戏作品版权归原作者享有,如有版权问题,请附带版权证明至邮件,本平台将应您的要求删除。
相关推荐:

评论

发表评论必须先登陆, 您可以 登陆 或者 注册新账号 !


在线咨询: 问题反馈
客服QQ:174666394

有问题请留言,看到后及时答复