cs_Forman
Messages postés600Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 6 avril 2010
-
8 avril 2004 à 14:02
kopierreko
Messages postés139Date d'inscriptionmercredi 12 mars 2008StatutMembreDernière intervention10 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.
kopierreko
Messages postés139Date d'inscriptionmercredi 12 mars 2008StatutMembreDernière intervention10 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és1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 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és1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 20 déc. 2004 à 13:27
Ces composants se trouvent très bien dans une version professionnelle.
legalpirate
Messages postés3Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention10 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 +
cs_Forman
Messages postés600Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 6 avril 20101 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?
1 janv. 2009 à 20:32
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 :)
20 déc. 2004 à 13:29
20 déc. 2004 à 13:27
9 avril 2004 à 02:39
Amicalement, http://www.legalpirate.tk
8 avril 2004 à 14:02
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!