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

Detektovanje konekcije, kako?

[es] :: Pascal / Delphi / Kylix :: Detektovanje konekcije, kako?

[ Pregleda: 4067 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.smin.sezampro.yu.



Profil

icon Detektovanje konekcije, kako?05.11.2005. u 00:07 - pre 224 meseci
koristio sam pretragu i naso ovaj kod:
Code:

FUNCTION Online : Boolean;
VAR
  dwFlags : DWORD;
BEGIN
  result := FALSE;
  If (InternetGetConnectedState(@dwFlags, 0)) and
     (dwFlags and 1 = 1) Then
    result := TRUE;
END;
Ali kod mene nesto nece da ferca.
Prijavi mi neku gresku na "InternetGetConnectedState".
Kako da detektujem da li je racunar na vezi ili nije (zanima me za modem). tj ako je na vezi ispise mi u label1 :="connect" ukoliko nije label1 :="no connect"
Unapred hvala!
GYGY
 
Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
*.27.EUnet.yu.

ICQ: 156892888


+1 Profil

icon Re: Detektovanje konekcije, kako?05.11.2005. u 00:14 - pre 224 meseci
Kod koji si nasao je OK, samo u USES klauzuli dodaj Wininet.
Marcha
-----------------------------------
Pretpostavka je majka zajeba.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Detektovanje konekcije, kako?05.11.2005. u 01:03 - pre 224 meseci
Najjednostavnije ti je da stavis If InternetGetConnectedState(nil, 0) Then <online> else <nije online>. Medjutim ovo radi samo na dialup konekcijama, ne na wire i ostalim.

Solucija za ovo je da pingas google ili proveravas da li je IP kompjuter <> 127.0.0.1. Ima jos nekoliko nacina, ali ova dva su najlaksa.



[Ovu poruku je menjao reiser dana 05.11.2005. u 02:04 GMT+1]
 
Odgovor na temu

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.smin.sezampro.yu.



Profil

icon Re: Detektovanje konekcije, kako?05.11.2005. u 11:29 - pre 224 meseci
hvala marcha sredjeno sa onim kodom, samo u USES sam dodo Wininet.
hvala reiser radi i to.
e jos da sredim slanje fajla.
treba iz foldera gde se nalazi program da posalje bazu katalog.xml
Code:

NMSMTP1.Host := '64.157.4.78';
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'tvoj_username';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := '[email protected]';
NMSMTP1.PostMessage.FromName := 'Yahoo!';
NMSMTP1.PostMessage.ToAddress.Text := 'moj e [email protected]';//
NMSMTP1.PostMessage.Body.Text := 'TekstPoruke';
NMSMTP1.PostMessage.Subject := 'Subject';
NMSMTP1.PostMessage.Attachments.Add('katalog.xml');
NMSMTP1.SubType := mtHtml; //može, a i ne mora
NMSMTP1.SendMail; 

samo sto mi izbacuje gresku
Connect failed
ima li nekakav drugi kod, ili ovde treba nesto da se izmeni da bi radilo
GYGY
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Detektovanje konekcije, kako?05.11.2005. u 13:00 - pre 224 meseci
ovo me podseca na kod koji sam ja pisao za slanje preko SMTP servera... zbog ovog moze a i ne mora :) anywayz, verovatno se IP adresa SMTP servera (to je Yahoo! bio) promenila, ali to nije bitno... nasao sam bolji nacin za slanje maila... bez smtp servera... pogledaj attachment...

imas u attachmentu i primer...

obrati paznju na komentare, posebno na ovaj:
Citat:
- You have to remove "$DEFINE Debug" from all units if you want to run it in GUI mode.


[Ovu poruku je menjao JaHvram dana 05.11.2005. u 14:10 GMT+1]
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
 
Odgovor na temu

Brkic

Član broj: 55360
Poruke: 1222
217.24.27.*



Profil

icon Re: Detektovanje konekcije, kako?05.11.2005. u 17:29 - pre 224 meseci
Da li je nekako moguce napraviti da se pri detektovanju konekcije moze i videti koja je konekcija tj koji je provajder ,koji je broj telefona pozvan ??
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Detektovanje konekcije, kako?07.11.2005. u 18:18 - pre 224 meseci
ako malo potrazis po forumu videces da sam ja to vec trazio, ali bezuspeshno
ako ipak nadjes to, javi mi!
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Detektovanje konekcije, kako?07.11.2005. u 20:39 - pre 224 meseci
Modem uvek cuva poslednji broj koji je pozvan. Samo mu posalji ATDL? i on ce ti vratiti broj telefona (neki modemi vracaju samo broj dok neki vracaju celu komandu za pozivanje broja... npr. ATD123456)... to je jedini nacin koji znam.
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Detektovanje konekcije, kako?08.11.2005. u 21:43 - pre 224 meseci
ajde srki pojasni... kako modemu da posaljemo to... kako to najelegantnije da se odradi iz DELPHIja?
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina


+7 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 01:55 - pre 224 meseci
Citat:
Brkic: Da li je nekako moguce napraviti da se pri detektovanju konekcije moze i videti koja je konekcija tj koji je provajder ,koji je broj telefona pozvan ??

Jeste. Funkcijom RasEnumConnections dobijas listu svih uspostavljenih veza, a zatim sa RasGetEntryProperties dobijas detalje o vezama. Citaj MSDN, ako se ne snadjes, vici, pisacemo kod...
 
Odgovor na temu

vujke
Ivan Vujić
Network administrator
Astra Telekom
Mladenovac

Član broj: 366
Poruke: 249
195.252.117.*



+1 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 11:04 - pre 224 meseci
Cuva se u log fajlu modema. Iscitaj ga i videces zadnji birani broj, ostvarenu brzinu i vreme na vezi.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 12:00 - pre 224 meseci
Kad malo bolje razmislim, obucina je upravu. Najlaksi nacin je da se koristi RasGetEntryProperties funkcija. RASENTRY podaci koji su vraceni sadrze sve sto moze biti bitno... od uredjaja koji je uspoastavio vezu, broja telefona... do vrste enkripcije, protokola i drugih opcija.

Ako te interesuje koji je broj modem poslednji okrenuo jednostavno na com port (skini neku kontrolu za rad sa portovima) posalji "ATDL?" i modem ce vratiti broj.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 16:57 - pre 224 meseci

C:\>echo ATDL? > com3
The process cannot access the file because it is being used by another process.


? :)
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 17:32 - pre 224 meseci
to sam i ja probao juce i nije uspelo istu poruku dobijam
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 18:18 - pre 224 meseci
Probao bih to i objasnio vam korak po korak, ali vec vise od 2 godine nemam modem.
 
Odgovor na temu

Brkic

Član broj: 55360
Poruke: 1222
217.24.27.*



Profil

icon Re: Detektovanje konekcije, kako?09.11.2005. u 22:17 - pre 224 meseci
Obucina moze li nesto koda, bio sam trazio po helpu ali nista.
 
Odgovor na temu

Brkic

Član broj: 55360
Poruke: 1222
217.24.27.*



Profil

icon Re: Detektovanje konekcije, kako?11.11.2005. u 17:24 - pre 224 meseci
Nasao sam 'RasDial' gde ima sve sto sam trazio i jos po neki clanovi ali ja nisam uspeo da to razdvojim po opcijama,pa ako neko hoce da pokusa razdvajanje opcija.

'gygy' je prikazao kod detektovanja konekcije modema pa bi sada iz koda RasDial trebalo izvuci koji je broj zvan,provajder pri detektovanju konekcije.
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Detektovanje konekcije, kako?

[ Pregleda: 4067 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

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