html - 将数据发送到Delphi服务器

我正在制作一个Delphi XE5 VCL表单应用程序，主表单上有一个TIdHTTPServer，过程中有一个CommandGet：

procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var pageContent: TStringList;
begin
if pos('&command=add', ARequestInfo.UnparsedParams) > 0 then
   begin
      pageContent:= TStringList.Create;
      try
         pageContent.Add('<html>');
         pageContent.Add('<head>');
         pageContent.Add('<title>Profile</title>');
         pageContent.Add('</head>');
         pageContent.Add('<body>');
         pageContent.Add('<input id="subjects" type="text"/>');
         pageContent.Add('<input id="Add" type="button" onclick="sendData()"/>');
         pageContent.Add('</body>');
         pageContent.Add('</html>');
         AResponseInfo.ContentText := pageContent.Text;
      finally
         pageContent.Free;
      end;
  end;
end;

我的问题是当用户单击“添加”按钮时，如何将用户输入发送到服务器。

最佳答案

使用此HTML，客户端（web浏览器）不会发送任何数据，因为不存在HTML表单元素。

PageContent

html - 将数据发送到Delphi服务器