Sube archivo usando Delphi CGI

Question

Podría alguien por favor, dar un ejemplo práctico de cómo cargar un archivo usando Delphi CGI.

He buscado en Google, pero hasta ahora no he tenido suerte.

Esto es lo que he estado tratando, pero me estoy haciendo violaciónes de acceso.

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

Los componentes Uso idRunner que se puede encontrar en:

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

Son gratuitos e incluyen el código fuente para que pueda adaptarlos.

Answer 2

He utilizado el código desde el siguiente enlace para hacer mis cosas webbroker hacer (multi) la carga de archivos.

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

El sitio tiene una gran cantidad de información sobre cómo hacer las cosas con la tecnología webbroker.