DOWNLOADER V0.0.0.1

cs_Forman
Messages postés
600
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
6 avril 2010
- 8 avril 2004 à 14:02
kopierreko
Messages postés
139
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
10 juillet 2010
- 1 janv. 2009 à 20:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/21751-downloader-v0-0-0-1

kopierreko
Messages postés
139
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
10 juillet 2010

1 janv. 2009 à 20:32
Je voudrais ajouter une chose qui me paraît importante car on voit % Bites sur % mais ça ne représente pas grand chose, sauf pleins de chiffres ^^
Comment calculer le % effectué:

Mathématiques: Tableau en croix: J'ai X bites sur Y bites, combien j'en aurais sur 100 bites ?
=> X*100/Y

Delphi: J'ai procédé comme ceci:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;const AWorkCount: Integer);
Var

A: Real;
B: Real;
C: Real;
D: string;
Format: String;
E: string;
begin
if AWorkMode = wmRead then
begin
{Le composant nous renvoit ici quand il travaille}

ProgressBar1.Position := AWorkCount ;

current.Text :=IntToStr(AWorkCount); // Je mets X dans un edit ( je fais tjr comme ça, dsl )
total.Text := inttostr(ProgressBar1.Max); // Pareil pour Y

A:= StrToFloat(current.Text);
B:= StrToFloat(total.Text);
C:= StrToFloat(cent.Text); // Vaut 100
D:= FloatToStr(A*C/B); // X*Y/100
Format := '0'; // Pour les chiffres après la virgule , ici, 0
E:=FormatFloat(format, StrToFloat(D)); // code de formattage
prcent.Caption:= E+'%'; // affichage qui donne x%

Merci beaucoup pour cette source que je cherche depuis bien longtemps. Bon boulot !
Bye
Bonne Prog

PS: Il y a beaucoup plus simple pour faire ce que j'ai fait ci-dessus :)
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
20 déc. 2004 à 13:29
J'oubliais, on peut aussi voir le code source des Top Membres de JulioDelphi. Il a d'autres techniques pour récupérer des pages web. Ca doit donc marcher avec des images...
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
20 déc. 2004 à 13:27
Ces composants se trouvent très bien dans une version professionnelle.
legalpirate
Messages postés
3
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
10 septembre 2005

9 avril 2004 à 02:39
c'est les composants standrats de la version Entreprise FASTNET / tu peux aussi utiliser les composants INDY ou autre, et voici ce qu'on peux faire avec delphi http://lastproject.free.fr - entierèment fait sous delphi 6 sans aucun composants de +

Amicalement, http://www.legalpirate.tk
cs_Forman
Messages postés
600
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
6 avril 2010
1
8 avril 2004 à 14:02
Salut,

cette source m'intéresse beaucoup, j'aurais besoin de qqchose qui permet de télécharger des fichiers dans une application. Le problème, c'est que je n'ai pas certains des composants nécessaires, qui sont apparemment inclus dans les unités Psock et NMHttp. Tu pourrais me dire où les trouver ou les inclure dans le ZIP?

Merci!