delphi 命令行 循环 http post

delphi 命令行 循环 http post

在 Delphi 命令行应用程序中循环执行 HTTP POST 请求，你可以使用 TIdHTTP 组件。TIdHTTP 组件是一个 Indy 组件库中的 HTTP 客户端组件，它允许你发送 HTTP 请求并接收 HTTP 响应。

以下是一个简单的例子，演示了如何使用 TIdHTTP 组件发送 HTTP POST 请求：

program LoopHttpPost;

{$APPTYPE CONSOLE}

uses
 SysUtils, Classes, IdHTTP;

const
 URL = 'https://www.example.com/post';

var
 IdHTTP: TIdHTTP;
 Params: TStringList;
 Response: string;
 I: Integer;

begin
 IdHTTP := TIdHTTP.Create(nil);
 Params := TStringList.Create;
 try
   IdHTTP.HandleRedirects := True;
   for I := 1 to 10 do
   begin
     Params.Clear;
     Params.Add('key1=value1');
     Params.Add('key2=value2');
     Response := IdHTTP.Post(URL, Params);
     WriteLn('Response: ', Response);
     Sleep(1000);
   end;
 finally
   Params.Free;
   IdHTTP.Free;
 end;
end.

在这个例子中，我们首先创建了一个 TIdHTTP 对象和一个 TStringList 对象。TStringList 对象用于存储 HTTP POST 请求的参数。

然后，我们设置了 HandleRedirects 属性为 True，这将允许 TIdHTTP 组件自动处理 HTTP 重定向。

在循环中，我们清空 Params 对象并添加 HTTP POST 请求的参数。然后我们调用 IdHTTP.Post() 方法发送 HTTP POST 请求，并将响应存储在 Response 变量中。最后，我们打印出响应，并使用 Sleep() 函数延迟 1 秒。

请注意，在使用 TIdHTTP 组件之前，你需要在项目中添加 IdHTTP 单元。此外，你还需要将 Indy 组件库添加到项目中，并在 uses 命令后添加 IdHTTP 单元。