使用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

我使用了以下链接中的代码，让我的网站管理员做了（多）文件上传。

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

该网站有很多关于如何使用网络经纪人技术做事的信息。