Question

我正在使用主表单上的TIdHTTPServer和CommandGet过程的IdHTTPServer制作Delphi XE5 VCL表单应用程序：

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;

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

Answer 1

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

将数据发送到Delphi服务器

1 个答案: