MONITEUR RÉSEAU

Commentaire de fg85 le 02/07/2006 02:03:19

Peut-tu ajouter un exe à ta source ? (ou alors tu le renomme en .exe.bak par exemple) merci beaucoup.

Commentaire de DelphiLAB_COM le 02/07/2006 14:18:55

salut john
jai vu cette source quelque part : les fonctions que tu utilise sont a peu pres similaires a une bonne vielle source NETMON que je me rappelle plus ou je lai telechargee (delphi.about.com je pense) mais bon c'est une refonte d'une source existante a part que je te felicite pour les graphes ! c'est pas magique mais c'est nouveau dans la categorie ! bon courage .

Commentaire de f0xi le 02/07/2006 17:32:27 administrateur CS

if DebitDownLoad>=(Progress_Download.Max+0.5) then

... hum hum ... alors john on fatigue ?

DebitDownLoad = cardinal
TProgressBar.max = Integer

j'ai du mal a croire que +0.5 passe vus que ce ne sont pas de flottant.
sinon il faudrait faire :

if extended(DebitDownload) >= (extended(Progress_Download.Max)+0.5) then

--------------

unité de convertion, on divise les bits selons les mêmes regles que les bytes ou les octets, soit par 1024. Logique vus qu'on travail toujours sur des multiplicateurs de 2 (4, 8, 16, 32, 64, 128, 256, 512, 1024), Pour les bits on utilise un "b" minuscule pour ne pas le confondre avec le "B" majuscule de Bytes, les unités sont bits, Kb, Mb, Gb, pour les bits par secondes c'est bps, Kbps, Mbps, Gbps ... Kilo, Mega et Giga sont toujours representé par une lettre majuscule K, M ou G; Octet est definit par la lettre "o" minuscule. On travail sur des valeurs Int64 pour eviter tout debordement au dela de 4Giga.
Enfin, on oublis pas de mettre au pluriel "bit" et "octet" car il n'y en a jamais qu'un. :

const
    DVGiga : int64 = 1024*1024*1024;
    DVMega : int64 = 1024*1024;
    DVKilo : int64 = 1024;

function Convertir_Bits(Valeur : int64):string;
var Divider : int64;
    Unity   : string;
    Prec    : integer;
begin
  Prec    := 3;
  if Valeur >= DVGiga then begin
     Divider := DVGiga;
     Unity   := ' Gbps';
  end else
  if Value >= DVMega then begin
     Divider := DVMega;
     Unity   := ' Mbps';
  end else
  if Valeur >= DVKilo then begin
     Divider := DVKilo
     Unity   := ' Kbps';
  end else begin
     Divider := 1;
     Unity   := ' bps';
     Prec    := 0;
  end;
  result := format('%.*f %s',[Prec, Valeur/Divider, Unity]);
end;

function Convertir_Octets(Valeur : int64; IndiquerUnites:boolean):string;
var Divider : int64;
    Unity   : string;
    Prec    : integer;
begin
  Prec := 3;
  if Valeur >= DVGiga then begin
     Divider := DVGiga;
     Unity   := ' Go';
  end else
  if Valeur >= DVMega then begin
     Divider := DVMega;
     Unity   := ' Mo';
  end else
  if Valeur >= DVKilo then begin
     Divider := DVKilo;
     Unity   := ' Ko';
  end else begin
     Divider := 1;
     Unity   := ' octets';
     Prec    := 0;
  end;
  if IndiquerUnites then
    Result := format('%.*f %s',[Prec, Valeur/Divider, Unity])
  else
    Result := format('%.*f',[Prec, Valeur/Divider]);
end;

Commentaire de DelphiLAB_COM le 02/07/2006 21:56:59

tenerve pas dogget
jai juste remarquer une similitude
mais en tout cas c'est du beau travail
des fois le reenhancement de sources existantes avec apport de nouvelles fonctionnalités est tres bien !!!!
mais je te crois la sur parole , d'ailleurs je ne vois pas pourquoi je ne te croirait pas ; et bon courage john ...

Commentaire de elguevel le 03/07/2006 08:26:52

Déja merci pour cette publication, tu as tenu parole (voir forum).

Pour le moment je n'arrive pas executer ton projet correctement car je ne possède qu'une version Personel de delphi là, et donc pas possibilité de voir le travail que tu as fait avec tes graphs.

Si çà peut t'aidé, j'avais fait deux codes utilisant les même API que toi :

http://www.delphifr.com/codes/GESTION-TABLE-ROUTAGE-WINDOWS_38131.aspx
http://www.delphifr.com/codes/GESTION-CACHE-ARP-WINDOWS-IPHLPAPI-DLL_36352.aspx

C'est codé un peu à la sale peut etre, car la MSDN, et je te comprend sur ce point, est assez dur à décoder. Surtout quand tu as plusieurs imbrication de structures et que le code n'existe nul par ailleur.

Sinon pour convertir des tailles de fichiers au format String j'ai fait çà, et çà supporte le Téra (inutile pour le moment mais bon) :

function SizeToStr( Size : Int64 ) : string;
begin
    if Size >= $EE6B280000 then
      Result := Format('%.2f', [Size / $EE6B280000]) + ' To'
    else
    if Size >= $3D090000 then
      Result := Format('%.2f', [Size / $3D090000]) + ' Go'
    else
    if Size >= $FA000 then
      Result := Format('%.2f', [Size / $FA000]) + ' Mo'
    else
    if Size < 1024 then
      Result := IntToStr(Size) + ' oc.'
    else
      Result := Format('%.2f', [Size / 1024]) + ' Ko';
end;

Je reviendrai sur cette source peut etre plus tard.

++

Commentaire de elguevel le 05/07/2006 21:32:00

Ah merci c'est gentil, par contre çà pas l'air d'emballer du monde, pas de commentaires et pas de notes. A mon avis beaucoup ne doivent rien piger au réseau c'est pour çà.

Là je vais essayer de préparer un truc sur les DLL Injéctés, on verra ce que çà donnera :-)

Aller Bon Coding et @+

Commentaire de jfs59 le 06/08/2006 11:35:57

interessant .. mais j'ai aussi le bug
il est reproductible en changeant d'interface et en arretant le curseur sans cliquer sur la combo

j'ai ajouté un mémo
voila les valeurs et le code que j'ai modifié


U 888900717 * 3406070582
D 310824465 * 3984211625
U 889504261 * 3405469266
D 310824465 * 3989750611

try
  if DebitDownLoad>=(Progress_Download.Max + 0.5) then
    Progress_Download.Max:=DebitDownload;
  Progress_Download.Position:=DebitDownload;
  if DebitUpload>=(Progress_Upload.Max + 0.5) then
    Progress_Upload.Max:=DebitUpload;
  Progress_Upload.Position:=DebitUpload;
  except
  memo1.lines.add('U ' + inttostr(Progress_Upload.Max) + ' * ' + inttostr(DebitUpload));
  memo1.lines.add('D ' +inttostr(Progress_Download.Max) + ' * ' + inttostr(DebitDownload));
  end;


on voit bien dans les deux cas un dépassement du range Download pourquoi ??
je sais pas trop ... mais ca doit pouvoir se trouver :o)

Commentaire de John Dogget le 06/08/2006 11:46:44

"il est reproductible en changeant d'interface et en arretant le curseur sans cliquer sur la combo
"

Exactement :/

Commentaire de soa118 le 17/11/2007 20:29:00

Merci pour l'application!

Mais j'aurais un petit problème. Il n'est pas compatible avec Windows (Home) Server 2003.
Tu aurais une idée, comment je pourrais résoudrea ca?

Merci

Commentaire de soa118 le 18/11/2007 10:40:25

Pas que je sache.

En tout cas ce qui est bizarre c'est que sous Win 2003 je me retrouve avec 2 "MS TCP Loopback interface" dans la combobox.

D'après msdn Win 2003 supporte ces fonctions.
Bizarre bizarre