Pregunta
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;
No hay solución correcta
Otros consejos
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.
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.