delphi post key value

最新推荐文章于 2024-04-07 06:36:38 发布

missingzlp

最新推荐文章于 2024-04-07 06:36:38 发布

阅读量404

点赞数 9

CC 4.0 BY-SA版权

文章标签：前端

本文链接：https://blog.youkuaiyun.com/missingzlp/article/details/135902630

该篇文章详细描述了一个用VBA编写的函数，通过TIdHTTP库执行HTTPPOST请求，处理URL、输入数据和错误处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function httpPost(URL:string;Input:string;var Back:string):Boolean;
var
  path:string;
  str:string;
  postStream: TStringStream;
  AEnctryRespose: string;
  i:Integer;
  list:THashedStringList;
begin
  try
    Result:= False;
    list:= THashedStringList.Create;
    path:= GetCurrentDir;


    Gv_Log.Addlog('url:'+ url);
    Gv_Log.Addlog('input:'+ input);

    IdHTTP1 := TIdHTTP.Create(nil);
//    IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
//    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
    IdHTTP1.HandleRedirects := True;


    IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    list.CommaText:= input;
    for i:=0 to list.Count -1 do
    begin
      str:=str+ list[i]+'&';
    end;
    str:= Copy(str,1,Length(str)-1);
    postStream:=TStringStream.Create(ansitoUTF8(str));

    try

      AEnctryRespose := IdHTTP1.Post(url, postStream);

      Back:= Utf8ToAnsi(AEnctryRespose);

      gv_log.Addlog('工商返回：'+ Back);

      Result:= True;

    except
      on e:Exception do
      begin
        gv_log.Addlog('post异常'+ e.Message);
      end;
    end;
  finally
    IdHTTP1.Free;
    list.Free;
    postStream.Free;
  end;

end;```