Le téléchargement d'un fichier en Delphi

Une recherche sur google montre quelques exemples sur la façon de télécharger un fichier en Delphi, mais la plupart sont de buggy et de la moitié du temps à ne pas travailler dans mon expérience.

Je suis à la recherche d'une simple solution robuste qui me permettra de télécharger un seul fichier exe (pour la mise à jour de mon application) et tiendra l'exécution de la mise à jour de thread jusqu'à ce que le téléchargement est terminé ou des erreurs. Le processus est déjà enfilée de sorte que le code de téléchargement devrait tenir l'exécution jusqu'à ce qu'il fait (je l'espère).

Voici deux implémentations, les deux semblent très compliqué
1. http://www.scalabium.com/faq/dct0116.htm
2. http://delphi.about.com/od/internetintranet/a/get_file_net.htm

OriginalL'auteur Daisetsu | 2010-08-17

  1. 13

    La deuxième approche est la façon standard de l'utilisation des ressources de l'Internet à l'aide de WinINet, une partie de l'API de Windows. Je l'ai utilisé beaucoup, et il a toujours bien fonctionné. La première approche, je n'ai jamais essayé. (Ni est "très compliqué". Il y aura toujours quelques étapes supplémentaires lors de l'utilisation de l'API de Windows.)

    Si vous voulez une méthode très simple, il vous suffit d'appeler UrlMon.URLDownloadToFile. Vous n'obtiendrez pas une amende de contrôle (du tout!) à propos de le télécharger, mais c'est très simple.

    Exemple:

    URLDownloadToFile(nil,
                  'http://www.rejbrand.se',
                  PChar(ExtractFilePath(Application.ExeName) + 'download.htm'),
                  0,
                  nil);
    Astuce: remplacer Application.ExeName avec ParamStr(0) pour supprimer la dépendance sur la Forms unité.
    Vrai. Mais dans le code de production, vous ne voulez pas enregistrer les fichiers dans le répertoire de l'application, de toute façon, qui est en lecture seule (Program Files), à moins que le programme est portable (fonctionne sur une clé USB par exemple).
    Merci pour la réponse Andreas. Je suis allé avec la deuxième approche que j'ai posté depuis vous a dit que c'était la norme, espérons-le, il s'avère être fiable. Merci pour votre effort.
    Merci @AndreasRejbrand ! C'est exatcly ce que je cherchais!

    OriginalL'auteur Andreas Rejbrand

  2. 16

    Pourquoi ne pas faire usage de d'indy. Si vous utilisez le TIdHTTP sa simple 

    procedure DownloadFile;    
var
  IdHTTP1: TIdHTTP;
  Stream: TMemoryStream;
  Url, FileName: String;
begin    
  Url := 'http://www.rejbrand.se';
  Filename := 'download.htm';

  IdHTTP1 := TIdHTTP.Create(Self);
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get(Url, Stream);
    Stream.SaveToFile(FileName);
  finally
    Stream.Free;
    IdHTTP1.Free;
  end;
end;

    Vous pouvez même ajouter une barre de progression à l'aide de la OnWork et OnWorkBegin Événements

    procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;AWorkCountMax: Int64);
begin
  ProgressBar.Max := AWorkCountMax;
  ProgressBar.Position := 0;
end;

procedure IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
  ProgressBar.Position := AWorkCount;
end;

    Je ne suis pas sûr si ces cas d'incendie dans le contexte du thread principal, de sorte que toute les mises à jour effectuées à des composants VCL peut être fait en utilisant le tidnotify composant pour éviter problèmes de threading. Peut-être quelqu'un d'autre peut le vérifier.

    Si le fichier est volumineux, vous pouvez utiliser un fichier de flux plutôt que d'un flux de mémoire.
    Si votre application de réseau uniquement pour la procédure de mise à jour - les ensuite à l'aide d'Indy va augmenter .taille de fichier exe.

    OriginalL'auteur Michael Taylor

  3. -2

    Aide De URLMon.

    errcode := URLMon.URLDownloadToFile(nil,
                      PChar('http://www.vbforums.com/showthread.php?345726-DELPHI-Download-Files'),
PChar( 'a:\download.htm'),
      0,
      nil);
if errcode > 0 then
      showmessage('Error while downloading: ' + inttostr(errcode));
    N'est-ce pas en fait une copie de mes huit-année-vieille réponse? 🙂
    Je ne le pense pas.

    OriginalL'auteur user1141649