Delphi 写一个 接收 post 请求的代码

Delphi可以通过TIdHTTP组件来实现接收POST请求的功能。以下是一个简单的示例：

首先，在uses部分添加IdHTTP单元：

uses IdHTTP;

然后，在需要接收POST请求的代码部分，创建一个TIdHTTP对象并设置其OnCommandGet事件处理程序。在OnCommandGet事件中，可以获取POST请求中的参数并进行相应的处理。

var
  IdHTTPServer: TIdHTTPServer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTPServer := TIdHTTPServer.Create(nil);
  IdHTTPServer.DefaultPort := 8080;
  IdHTTPServer.OnCommandGet := IdHTTPServerCommandGet;
  IdHTTPServer.Active := True;
end;

procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.Command = 'POST' then
  begin
    // 获取POST请求中的参数
    Memo1.Lines.Add('Name: ' + ARequestInfo.Params.Values['name']);
    Memo1.Lines.Add('Age: ' + ARequestInfo.Params.Values['age']);

    // 进行相应的处理
    AResponseInfo.ResponseNo := 200;
    AResponseInfo.ResponseText := 'OK';
  end;
end;

以上代码创建了一个TIdHTTPServer对象，并设置其默认端口为8080。在OnCommandGet事件处理程序中，判断请求方式是否为POST，如果是，就获取POST请求中的参数并进行相应的处理。

需要注意的是，以上代码只是一个简单的示例，实际应用中可能需要进行更多的参数验证和异常处理。