upload de arquivo usando Delphi CGI

Question

Alguém poderia dar um exemplo de trabalho de como fazer upload de um arquivo usando Delphi CGI.

Eu pesquisei mas até agora não tive nenhuma sorte.

Isto é o que eu tenho tentado, mas estou recebendo violações de acesso.

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

componentes Use idRunner que você pode encontrar em:

http://www.vclcomponents.com/Delphi/Winsock___Internet/idRunner -info.html

Eles são gratuitos e incluem código fonte para que você possa adaptá-los.

Answer 2

Eu usei o código a partir do seguinte link para fazer minhas coisas WebBroker fazer (multi-) o upload de arquivos.

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

O site tem um monte de informações sobre como fazer as coisas com a tecnologia WebBroker.