Einzelnen Beitrag anzeigen

G G

Registriert seit: 17. Jun 2004
192 Beiträge
 
#1

Problem bei code umformung für netzwerk auslastung

  Alt 18. Jul 2004, 09:57
Hi, ich habe in dem forum folgenden code gefunden, um die download geschwindigkeit zu errechnen. Nur jetzt bin ich absolut nicht in der lage diesen code so umzuformen dass er den upload speed anzeigt. Ich habe probiert einfach alle "MibRow.dwInOctets" in "MibRow.dwoutOctets" umzuschrieben, aber nun zeigt er so gut wie immer 0 an.
Dieser code benötigt noch bestimmte IP Headers "http://www.delphipraxis.net/internal_redirect.php?t=4548&highlight=mibrow+dwou toctets"

nun der code in der download form, kann mir da jemand tipps geben wie ich das richtig mache?

Delphi-Quellcode:
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Winsock,
  IpExport,
  IpHlpApi,
  IpTypes,
  IpIfConst,
  IpRtrMib, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);


  private
    { Private declarations } 
  public
    { Public declarations } 
  end;

var
  Form1: TForm1;
  old: integer;

implementation

{$R *.dfm} 

procedure TForm1.Timer1Timer(Sender: TObject);
var MibRow: TMibIfRow;
IntfTable: PMibIfTable;
Size: DWORD;
I: Integer;
wert:integer;
begin
Size := 0;
if GetIfTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit;
  IntfTable := AllocMem(Size);
  try
    if GetIfTable(IntfTable, Size, True) = NO_ERROR then
    begin
      for I := 0 to IntfTable^.dwNumEntries - 1 do
      begin
     {$R-}MibRow := IntfTable.Table[I];{$R+} 
        if MibRow.dwType <> MIB_IF_TYPE_ETHERNET then Continue; // oder MIB_IF_TYPE_PPP
       if i = 1 then begin // Welche Verbindung
       wert := MibRow.dwInOctets - old;


                      label1.caption := floattostr(round(Wert /1024 *100)/100) + ' KB/s';
                     old := MibRow.dwInOctets

                     end;
  end;
    end;


    finally
    FreeMem(IntfTable);
  end;

end;


end.
  Mit Zitat antworten Zitat