Kako da odredim brzinu internet konekcije!

Kako da odredim brzinu internet konekcije! 27.02.2006. u 15:24 · pre 251 mesec #1

Kako da odredim brzinu internet konekcije,ime konekcije,i broj koji je pozvan!
Neki link,hint,...,bilo sta!
Hvala puno na vasem utrosenom vremenu,poz!

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 17:29 · pre 251 mesec #2

Ako ti zatreba detekcija interneta, možeš ovako... Ispišeš funkciju:

Code:
FUNCTION Online : Boolean;
VAR
  dwFlags : DWORD;
BEGIN
  result := FALSE;
  If (InternetGetConnectedState(@dwFlags, 0)) and
     (dwFlags and 1 = 1) Then
    result := TRUE;
END;

Sad obradiš događaj npr. za Form1 - OnCreate i ubaciš jedan label (label1):

Code:
if Online then
   Label1.Caption:='Racunar je uspesno konektovan na internet!!!'
  else
   Label1.Caption:='Racunar nije uspesno konektovan na internet!!!'

Nije ono što tražiš al možda ti bude interesantno... Pozzzz

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 17:55 · pre 251 mesec #3

S' tim sto ova fja gore ne radi na svim racunarima (nece na nekim koji su u LAN-u itd), za razliku od ove : :)

Code:

function IsOnline : Boolean;
const
  FLAG_ICC_FORCE_CONNECTION = 1;
var
  WSAData                 : TWSAData;
begin
  result := FALSE;

  WSAStartup($101, WSAData);
  If inet_ntoa(PInAddr(GetHostByName(nil)^.h_addr_list^)^) <> '127.0.0.1' Then
    result := InternetCheckConnection('http://www.google.com', FLAG_ICC_FORCE_CONNECTION, 0);
  WSACleanup;
end;

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 20:08 · pre 251 mesec #4

Ja sam to resio ovako :

Code:

var
Conect : DWord;
begin
Conect:= INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@Conect, 0)
then ShowMessage('No')
else ShowMessage('Yes');
end;

Ceprkao sam po "WinInet"-u,po drugim sajtovima i nista, :(
Ne da mi se da otkrijem kolika mi je brz internet. :)
Najvise bi mi odgovaralo kad bi uspeo da pristupim svim tim opcijama,ime konekcije,brzina,broj koji se okrece(ako se okrece),...
Hvala,na odgovoru!

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 20:27 · pre 251 mesec #5

Reiser ova poslednja funkcija sto si napisao nece da radi nesto,el treba nesto u uses da ukljucim?Cak sam gledao u helpu nema nista o tipu podatka TWSAData,ima jos neke greske.
Koristim Delphi 7,mozda zbog toga ?

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 20:45 · pre 251 mesec #6

U uses dodaj WinSock, WinInet;

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 20:57 · pre 251 mesec #7

>

Jesi li probao preko performance monitora (tj performance counter-a)?
Doduse ogranicen si na XP i mozda 2000.

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 21:11 · pre 251 mesec #8

Nisam,iskreno ni ne znam sta je to,vidim da ima nesto u helpu,sad cu pogledam pa cu se javim!Hvala!

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 22:27 · pre 251 mesec #9

Nesto mi ne ide,nisam nasao nista u helpu,sto bi mi moglo pomoci!
U literaturi sam nasao samo perfomanse za baze podataka!

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 23:07 · pre 251 mesec #10

>

Nije tako jednostavno, ali ni ti nisi izabrao lak zadatak ;)

Kreni odavde:

http://msdn.microsoft.com/libr..._performance_extension_dll.asp

pa idi na torry i nadji

Performance Data Helper API & Performance Counter Header Files for Delphi

ili nadji u JEDI prevodima c header-a

Re: Kako da odredim brzinu internet konekcije! 27.02.2006. u 23:22 · pre 251 mesec #11

Hvala puno,sad cu pogledam!Poozzzz

Potpis

SERVIA NOSTRUM REGNUM!

Re: Kako da odredim brzinu internet konekcije! 28.02.2006. u 14:19 · pre 251 mesec #12

Pogledao sam to sto si postovao od linkova,i skinuo sam sa torry-a one pas fajlove.To je ok,ali nikako da nadjem kako da odredim brzinu konekcije!
@Nikola.j
Ako znas,nemoj jos da mi kazes,hocu da skontam sam! :)
Evo u postu jedna komponenta,sa kojom se odredjuje neke zanimljive stvari u vezi modema!Mozda ce nekome zatrebati!Pozzz!

Potpis

SERVIA NOSTRUM REGNUM!

rasmg111.zip25.47k

Re: Kako da odredim brzinu internet konekcije! 28.02.2006. u 14:46 · pre 251 mesec #13

>

Pazi. Ne znam ni ja napamet kako bi to islo. Predlozio sam ti preko performance
counter-a, zato sto mi se tako ucinilo najlogicnije. Sustina je da zapitkujes
sistem koliko podataka prolazi kroz mrezni adapter/modem, posto sistem vec za
sebe odbrojava kolicinu poslatih i primljenih podataka.

Re: Kako da odredim brzinu internet konekcije! 28.02.2006. u 15:03 · pre 251 mesec #14

Da, ali sta se desava ako u periodu dok program proverava protok ne prodje ni jedan bajt kroz modem ?
Pokusaj da nekako nadjes onaj broj koji se prikazuje u Connection Status dijalogu (recimo 48.0kbps itd).

A najlakse (mada i ne najpreciznije) ti je da proveris koliko podataka moze da prodje kroz modem u roku od n sekundi, pa da iz toga izvuces realnu brzinu konekcije.

poz

Forum kao aplikacija na telefonu

Srodne teme