Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da odredim brzinu internet konekcije!

[es] :: Pascal / Delphi / Kylix :: Kako da odredim brzinu internet konekcije!

[ Pregleda: 5589 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.ppp-bg.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Kako da odredim brzinu internet konekcije!27.02.2006. u 14:24 - pre 219 meseci
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!
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.



Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 16:29 - pre 219 meseci
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
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 16:55 - pre 219 meseci
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;


[Ovu poruku je menjao reiser dana 27.02.2006. u 17:56 GMT+1]
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.adsl.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 19:08 - pre 219 meseci
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!

[Ovu poruku je menjao IvanBeograd dana 27.02.2006. u 20:10 GMT+1]
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 19:27 - pre 219 meseci
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 ?
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 19:45 - pre 219 meseci
U uses dodaj WinSock, WinInet;
 
Odgovor na temu

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 85
*.com
Via: [es] mailing liste



Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 19:57 - pre 219 meseci
>

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

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 20:11 - pre 219 meseci
Nisam,iskreno ni ne znam sta je to,vidim da ima nesto u helpu,sad cu pogledam pa cu se javim!Hvala!
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 21:27 - pre 219 meseci
Nesto mi ne ide,nisam nasao nista u helpu,sto bi mi moglo pomoci!
U literaturi sam nasao samo perfomanse za baze podataka!
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 85
*.com
Via: [es] mailing liste



Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 22:07 - pre 219 meseci
>

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
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!27.02.2006. u 22:22 - pre 219 meseci
Hvala puno,sad cu pogledam!Poozzzz
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.adsl.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da odredim brzinu internet konekcije!28.02.2006. u 13:19 - pre 219 meseci
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!
SERVIA NOSTRUM REGNUM!
Prikačeni fajlovi
 
Odgovor na temu

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 85
*.com
Via: [es] mailing liste



Profil

icon Re: Kako da odredim brzinu internet konekcije!28.02.2006. u 13:46 - pre 219 meseci
>

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.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Kako da odredim brzinu internet konekcije!28.02.2006. u 14:03 - pre 219 meseci
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
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako da odredim brzinu internet konekcije!

[ Pregleda: 5589 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.