[idhttp] téléchargement de fichier http

Télécharger le projet
Commenter

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 ...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Remixgame)