Delphi CGIを使用してファイルをアップロード

Question

Delphi CGIを使用してファイルをアップロードする方法の実例を教えてください。

私はグーグルではありましたが、これまでのところ幸運はありませんでした。

これは私が試してきたものですが、アクセス違反が発生しています。

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

サイトはのWebBroker技術で物事を行う方法についての情報をたくさん持っています。