使用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的技術大量的信息。