デルファイ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技術で物事を行う方法についての情報をたくさん持っている。