[idhttp] téléchargement de fichier http

Soyez le premier à donner votre avis sur cette source.

Vue 13 232 fois - Téléchargée 1 613 fois

Description

Ayant remarquer le faible nombre de source sur
les magnifiques composants INDY
je me lance est montre le premier exemple de
téléchargement HTTP sur INDY

j'ai rajouté l'authentification HTTP 1.1 Comme ca , ca complète ...

Source très simple comme tout les composants Indy ;-)

Source / Exemple :


procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;const AWorkCountMax: Integer);
begin
 if AWorkMode = wmRead then
 begin
 {On aligne la progress bar avec la variable fourni de IDHTTP}
   ProgressBar1.Max := AWorkCountMax ;
   ProgressBar1.Position := 0 ;
 end;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;const AWorkCount: Integer);
begin
 if AWorkMode = wmRead then
 begin
 {Le composant nous renvoit ici quand il travaille}
   ProgressBar1.Position := AWorkCount ;
   Label1.Caption := IntToStr(AWorkCount) + 'Bytes de :' + inttostr(ProgressBar1.Max) ;
 end;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
{Fin du boulot de IDhttp1}
 if AWorkMode = wmRead then
   Label1.Caption := 'Completed';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 F: TFileStream;
begin
{On crée un fichier }
 F := TFileStream.Create(edit2.text, fmCreate);
 try
 {On récupére des donnés et on les mets dans F soit Edit2.text}
   IdHTTP1.Get(edit1.text,F);
 finally
   F.Free;
 end;
end;

Conclusion :


Maj à 22H53 le 03

Bon coding ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_stailer
Messages postés
511
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
1 -
Merci pour ces codes sources, je vais pouvoir mieux découvrir et utiliser les composants Indy
Remixgame
Messages postés
57
Date d'inscription
mardi 12 février 2002
Statut
Membre
Dernière intervention
2 août 2007
-
Bien en faîte j'ai chercher indy , sur ce site et à part des serveur SMTP qui ne marche pas j'ai rien trouvé donc voila ;-)
Je me lance
hisoka2501
Messages postés
266
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2009
-
merci pck sans ca mwa j'y arrivais pas:
mon soft faisai un freez 10/10 :D
hisoka2501
Messages postés
266
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2009
-
ben apprament ca freez tjr, cela viendrais il du compasan lui meme ?
BingoWFC
Messages postés
1
Date d'inscription
dimanche 5 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2004
-
Bonjour

Je souhaite récupérer un fichier via HTTP et je pense que votre test correspond à mes besoins
Existe t'il un acces ou on peut tester le fonctionnement
Login ?
MotdePasse ?
Host ?

Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.