Detektovanje konekcije, kako?

[ gygy @ 05.11.2005. 00:07 ] @

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!

[ marcha @ 05.11.2005. 00:14 ] @

Kod koji si nasao je OK, samo u USES klauzuli dodaj Wininet.

[ reiser @ 05.11.2005. 01:03 ] @

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]}

[ gygy @ 05.11.2005. 11:29 ] @

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

[ Nemanja Avramović @ 05.11.2005. 13:00 ] @

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]}

[ Brkic @ 05.11.2005. 17:29 ] @

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 ??

[ Nemanja Avramović @ 07.11.2005. 18:18 ] @

ako malo potrazis po forumu videces da sam ja to vec trazio, ali bezuspeshno

ako ipak nadjes to, javi mi!

[ Srki_82 @ 07.11.2005. 20:39 ] @

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.

[ Nemanja Avramović @ 08.11.2005. 21:43 ] @

ajde srki pojasni... kako modemu da posaljemo to... kako to najelegantnije da se odradi iz DELPHIja?

[ obucina @ 09.11.2005. 01:55 ] @

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...

[ vujke @ 09.11.2005. 11:04 ] @

Cuva se u log fajlu modema. Iscitaj ga i videces zadnji birani broj, ostvarenu brzinu i vreme na vezi.

[ Srki_82 @ 09.11.2005. 12:00 ] @

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.

[ reiser @ 09.11.2005. 16:57 ] @

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

? :)

[ Nemanja Avramović @ 09.11.2005. 17:32 ] @

to sam i ja probao juce i nije uspelo

istu poruku dobijam

[ Srki_82 @ 09.11.2005. 18:18 ] @

Probao bih to i objasnio vam korak po korak, ali vec vise od 2 godine nemam modem.

[ Brkic @ 09.11.2005. 22:17 ] @

Obucina moze li nesto koda, bio sam trazio po helpu ali nista.

[ Brkic @ 11.11.2005. 17:24 ] @

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.