upload de arquivo usando Delphi CGI
Pergunta
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;
Nenhuma solução correta
Outras dicas
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.
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.