Télécharger le fichier en utilisant Delphi CGI
Question
Quelqu'un pourrait-il s'il vous plaît donner un exemple concret de la façon de télécharger un fichier en utilisant CGI Delphi.
Je l'ai googlé mais jusqu'à présent ne l'ai pas eu de chance.
Voici 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;
Pas de solution correcte
Autres conseils
Utiliser des composants idRunner que vous pouvez trouver à:
http://www.vclcomponents.com/Delphi/Winsock___Internet/idRunner -info.html
Ils sont libres et comprennent le code source afin que vous puissiez les adapter.
Je l'ai utilisé le code du lien suivant pour faire mes affaires CourtierWeb ne (multi) téléversements de 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.