TInterMeter is a visual component, which can display graphically information about throughinput/throughoutput during internet session. You may adjust its appearance using following published properties:

Active - True if internal timer with interval 1sec activated;
Align - as usual for panels;
BevelOuter - try and see;
Cursor - as usual;
DesignActive - set True if You want it to work in designing mode (slow!!!);
DisplayColor - color of diagram background (default is clButtonFace);
Height
HelpContext
Hint
InColor - color for representation of 'bytes received' (default is clGreen);
Left
Name
OutColor - color for representing of 'bytes transferred(sent)' (default is clRed);
Tag
TimeOut - time in seconds to determine Stable situation if during that time no bytes received (and also no bytes sent if property UseSentToDetermineStable is set to True)
Top
UseSentToDetermineStable - default: False (look above);
Visible
Width

With read only run-time properties Sent, Received and Speed it is possible to get know about number of bytes sent and received from the start of last connection and connection speed.
Creating event handlers for events OnConnect, OnDisconnect, OnStable and OnScan it is possible to add special behaviour for Your application.

TInternetInfo is a poor pascal object, which incapsulates the main functionality of this package. With function GetConnectInfo( var Speed, Received, Sent : Integer):Boolean it provides Your application with information about current connection status. And it does not use graphics, timers and so on. You may use it along to create small modem statistics and monitoring applications.

REGISTRATION

Since the object TInternetInfo was separated from the package, source of TInterMeter component is not more a secret. To purchase the source of TInternetInfo object (for *$20*), You may use on-line registration service. And do not forget to visit my home page to get more from Bonanzas!

TInterMeter component and TInternetInfo object

TInterMeter component and TInternetInfo object