Detektovanje konekcije, kako?

Detektovanje konekcije, kako? 05.11.2005. u 00:07 · pre 255 meseci #1

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!

Potpis

GYGY

Re: Detektovanje konekcije, kako? 05.11.2005. u 00:14 · pre 255 meseci #2

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

Potpis

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Re: Detektovanje konekcije, kako? 05.11.2005. u 01:03 · pre 255 meseci #3

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

Re: Detektovanje konekcije, kako? 05.11.2005. u 11:29 · pre 255 meseci #4

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

Potpis

GYGY

Re: Detektovanje konekcije, kako? 05.11.2005. u 13:00 · pre 255 meseci #5

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

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

smtp engine.zip19.04k

Re: Detektovanje konekcije, kako? 05.11.2005. u 17:29 · pre 255 meseci #6

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

Re: Detektovanje konekcije, kako? 07.11.2005. u 18:18 · pre 255 meseci #7

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

ako ipak nadjes to, javi mi!

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: Detektovanje konekcije, kako? 07.11.2005. u 20:39 · pre 255 meseci #8

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.

Potpis

Play Store

Re: Detektovanje konekcije, kako? 08.11.2005. u 21:43 · pre 255 meseci #9

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

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: Detektovanje konekcije, kako? 09.11.2005. u 01:55 · pre 255 meseci #10

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

Re: Detektovanje konekcije, kako? 09.11.2005. u 11:04 · pre 255 meseci #11

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

Re: Detektovanje konekcije, kako? 09.11.2005. u 12:00 · pre 255 meseci #12

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.

Potpis

Play Store

Re: Detektovanje konekcije, kako? 09.11.2005. u 16:57 · pre 255 meseci #13

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

? :)

Re: Detektovanje konekcije, kako? 09.11.2005. u 17:32 · pre 255 meseci #14

to sam i ja probao juce i nije uspelo

istu poruku dobijam

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: Detektovanje konekcije, kako? 09.11.2005. u 18:18 · pre 255 meseci #15

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

Potpis

Play Store

Re: Detektovanje konekcije, kako? 09.11.2005. u 22:17 · pre 255 meseci #16

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

Re: Detektovanje konekcije, kako? 11.11.2005. u 17:24 · pre 255 meseci #17

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.

rasdial.zip168.75k

Srodne teme