用Delphi CGI上传文件

Question

任何人都可以请提供如何用Delphi CGI上传文件的工作示例。

我用Google搜索，但到目前为止还没有任何运气。

这是我一直在努力，但我得到的访问冲突。

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  lFileName   : string;
  lFileStream : TFileStream;
begin
  lFileName   := Request.Files[0].FileName;
  lFileStream := TFileStream.Create(lFileName, fmCreate);
  try
    lFileStream.CopyFrom(Request.Files[0].Stream, Request.Files[0].Stream.Size);
  finally
    lFileStream.Free;
  end;
end;

Answer 1

使用idRunner组件，您可以找到：

http://www.vclcomponents.com/Delphi/Winsock___Internet/idRunner -info.html

它们都是免费的，包括源代码，这样就可以适应他们。

Answer 2

我使用的代码从以下链接让我WebBroker的东西做（多）文件上传。

http://exposureroom.com/members/skumar.aspx/tutorials /后/ 18

该网站有关于如何做的事情与WebBroker的技术大量的信息。