Télécharger le fichier en utilisant Delphi CGI

Question

Quelqu'un pourrait-il donner un exemple pratique de la façon de télécharger un fichier en utilisant Delphi CGI.

J'ai fait un googled mais jusqu'ici n'ai pas eu de chance.

C'est ce que j'ai essayé, mais je reçois des violations d'accès.

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

Utiliser des composants idRunner que vous pouvez trouver à:

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

Ils sont gratuits et incluent le code source afin que vous puissiez les adapter.

Answer 2

J'ai utilisé le code à partir du lien suivant pour que mon webbroker fasse des téléchargements de (multi-) fichiers.

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

Le site a beaucoup d'informations sur la façon de faire des choses avec la technologie WebBroker.