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://gm.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] '
下载声明:
1、本站所有资源、仅供学习交流,不得商业运营资源,不确保资源完整性,图片和资源仅供参考, 不提供任何技术服务。
2、本站资源均有第三方用户自行上传分享推荐,非本站自制,仅供玩家做交流学习之用!切勿用于商业用途!游戏作品版权
归原作者享有,如有版权问题,请附带版权证明至邮件,本平台将应您的要求删除。举报邮箱 :859840003@qq.com
评论