[IDHTTP] TÉLÉCHARGEMENT DE FICHIER HTTP

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;  

Télécharger le zip

• LES THREADS EN DELPHI
• MODIFIER UN EXE ( INTÉGRER DES VARIABLES , MOT DE PASSE )
• CONVERTISSEUR BIN -> HEXA -> DEC -> ASCII
• IDHTTP , IDPOP3 ,IDSMTP EN GRANDE PARTIE EXPLIQUÉE
• [IDPOP3] INDY POP3 , RECEVOIR LES HEADRES ET LE NOMBRE DE MAILS

• CYBERCOMPTEUR
• UTILISATION DLL NETAPI32 POUR LISTER UTILISATEURS RESEAU ET GESTIONNAIRE DE SERVEUR DE FICHIERS
• TÉLÉCHARGEUR VIDÉO DAILY MOTION OU YOU TUBE
• PROXY SELECTOR - PRATIQUE SI VOUS UTILISEZ PLUS D'UN PROXY
• FTP/SFTP CLIENT WITH OLE LINK