Speed Internet

Hi, how to learn (find out) speed Internet and other information on connection.
powersulAsked:
Who is Participating?
 
intheCommented:
null
0
 
bryan7Commented:
listenning
0
 
intheCommented:
Hi
there is the tras component here:
http://www.magsys.co.uk/delphi/ 
that will tell you the number of bytes sent & received on a ras connection (if you started it from your app).
 
also look at Fnugry Netstat Components from www.torry.ru (use one of the mirrors from now as site is in updateing mode)and it is under the LAN section. It displays all TCP/IP data transfers like Netstat, using the SNMP API. And it is freeware with source, a demo is included

maybe also for nt this may help:
http://www.jgsoftware.com/files/perfmon.zip


some other code that may help:

 
Note: Timer1.Interval is 1000 to give KB per second
------------------------------------------------------------------
 
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
  StdCtrls, ExtCtrls,
  Registry;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ThruPutLbl: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    FLastReceived: LongInt;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Registry: TRegistry;
  ReceiveBuffer: array[0..3] of Byte;
  BytesReceived: LongInt;
  BytesSinceLast: Double;
begin
  Registry := TRegistry.Create;
  with Registry do
    begin
      RootKey := HKEY_DYN_DATA;
      if OpenKey('\PerfStats\StatData', False) then
        begin
          ReadBinaryData('Dial-Up Adapter\BytesRecvd',
ReceiveBuffer, 4);
          BytesReceived := LongInt(ReceiveBuffer);
          if BytesReceived < 0 then
            begin
              BytesReceived := 0;
              FLastReceived := 0;
            end
          else
            begin
              BytesSinceLast := (BytesReceived -
FLastReceived) / 1024;
              ThruPutLbl.Caption := Format('Kb per sec:
%5.3f', [BytesSinceLast]);
              FLastReceived := BytesReceived;
            end;
        end;
    end;
  Registry.Free;
  Registry := nil;
end;
 
end.


Regards Barry
0
 
doncovCommented:
1)Surf http://www.pbe.com/Kudzu/Articles/...
2)Download packet components WinShoes and look source WinShoePing.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.