[delphi] Get Upload/download Speed

[4e4en]

Hello,

i would like to know, how i can get actual upload/download speed, like DU Meter.

I searched in MSDN, but i didn't found anything, usefull. Can you provide some info, or atleast function names. The best variant would be with small example.

thanx.

[Locksmith]

look into the indy components - free and they have a class for throttling speeds, you should be able to get some ideas from the source

[4e4en]

I didn't found anything usefull ;(

[ChupaChu]

Try googling for socket commands.. socket.SendBuf, socket.SendLength, socket.ReceiveLength etc..

use timer to query these properties and you got what you need.. i hope.. in fact i have never tried

to code anything alike, so i might be wrong on this one.. hope it helps!

edit: i found two usefull units on my drive, they are attached (i dont know if its awaiable by default).

Look at function names and properties in ScktComp file, im sure you will figure it out quickly.

BR, ChupaChu!

socket_units.zip

Edited November 4, 2007 by ChupaChu

[4e4en]

i have one variant, where i should use global-hook for some functions, but i want to avoid that.

And i have seen this done(vithout hooking), in pure basic. I think that pure basic was used with auto it or something like that.

[human]

well somehow it must be aviable from performance counters. due you can see network device usage in process manager.

but even today dumeter uses ring0 drivers.

[Ufo-Pu55y]

  4e4en said:

i would like to know, how i can get actual upload/download speed, like DU Meter.

I dunno about Delphi, but here's a source in ASM without drivers or stuff:

http://asmsource.8k.com/NetLoad.html

And there are other good sources on that site !

[ChupaChu]

Ok i have looked up in a book and found some examples in Chapter 21 - Internet Programming: Sockets and Indy Components.

I think this will be useffull to you.

21_chapter_Examples_dealingwith_internetandsocketsstuff.ZIP

[4e4en]

Thanx Ufo-Pu55y. GetIfTable thats what i needed.

Now onlt i need to make it running

[Guest xavier]

  4e4en said:

Thanx Ufo-Pu55y. GetIfTable thats what i needed.

Now onlt i need to make it running

This is the sample source in Delphi 6.0 that i used for a app i made for myself.

I hope this will help you.

If still needed.

netmon.rar

[ChupaChu]

excelent sample, thanks for sharing!