Delphi上传图片HTTP服务器

Question

在我的 VCL 应用程序中，我有一个 http 服务器。我正在尝试从浏览器上传图像。下面是 commandGet 过程的代码：

procedure TForm6.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  imageStream: TMemoryStream;
begin
  if Pos('command=addImage', ARequestInfo.UnparsedParams) > 0 then
  begin
    AResponseInfo.ContentText := UploadImageForm;
  end
  else if Pos('command=saveImage', ARequestInfo.UnparsedParams) > 0 then
  begin
    imageStream := TMemoryStream.Create;

    try
      ARequestInfo.PostStream.Seek(0, soFromBeginning);
      imageStream.LoadFromStream(ARequestInfo.PostStream);
      imageStream.SaveToFile('picture.jpeg');
    finally
      imageStream.Free;
    end;
  end;
end;

UploadImageForm的代码如下：

 function UploadImageForm: string;
 var
   uploadImageHTMLForm: TStringBuilder;
 begin
   uploadImageHTMLForm := TStringBuilder.Create;

   try
     // by default enctype is application/x-www-form-urlencoded
     // uploadImageHTMLForm.AppendLine('<form action="/?command=saveImage" method="post">');
     // EDIT
     uploadImageHTMLForm.AppendLine('<form action="/?command=saveImage" method="post" enctype="multipart/form-data">');
     uploadImageHTMLForm.AppendLine('<input type="file" name="uploadField">');
     uploadImageHTMLForm.AppendLine('<input type="submit">');
     uploadImageHTMLForm.AppendLine('</form>');
     Result := uploadImageHTMLForm.ToString;
   finally
     uploadImageHTMLForm.Free;
   end;
 end;

问题是，当我选择一个 .jpeg 文件并单击提交时，ARequestInfo.PostStream 为空（我在 CreatePostStream 上创建它）。知道如何解决它。

Answer 1

带有type=file 的HTML 表单<input> 元素应使用enctype="multipart/form-data"（参见https://stackoverflow.com/a/2436725/80901）。

但是，TIdHTTPServer 不支持 multipart/form-data - 请参阅 TIdHTTPServer file upload

需要额外的代码才能从请求正文中提取文件内容。 （之前在 Embarcadero 和 Indy 论坛上已经发布过这样的例子。）