使用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/post/18

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