Search  
Thursday, May 24, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Win32 API  Verificare cone...
 Verificare conexiune la intenet
 
 9/7/2005 1:31:40 AM
User is offlineLAU
240 posts
www.zof.ro
4th


Verificare conexiune la intenet
 (N/A)
Doresc sa vad daca am legatura cu un anumit IP public inainte sa fac interogarea unei baze de date.
Exista o solutie mai simpla ?
 9/7/2005 12:26:50 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: Verificare conexiune la intenet
 (Romania)		 
Local ;
	loWinsck As MSWinsock.Winsock, ;
	llComputerConnected As Boolean

loWinsck = CreateObject("MSWinsock.Winsock")
With loWinsck
	.RemoteHost = "www.microsoft.com"
	.RemotePort = 80
	.Connect()
	Do While .State < 7
	EndDo
	If .State = 7 && m-am conectat la calculator
		llComputerConnected = .T.
	EndIf
	.Close()
	? "Computer connected: " + Transform(llComputerConnected)
EndWith
Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 9/7/2005 12:41:31 PM
User is offlineLAU
240 posts
www.zof.ro
4th


Re: Verificare conexiune la intenet
 (N/A)
Va salut

La rulare primesc mesajul 'Must be a variable or aray' la prima linie
 9/7/2005 12:53:15 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: Verificare conexiune la intenet
 (Romania)
Depinde de versiunea de VFP pe care o folosesti. Scoate As -urile si ce urmeaza dupa ele; lasa numai LOCAL aia si ailalta. Eventual poti sa scoti linia LOCAL cu totul, man....
Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 9/7/2005 5:05:01 PM
User is offlineLAU
240 posts
www.zof.ro
4th


Re: Verificare conexiune la intenet
 (N/A)
Multumesc mult de tot !

Sa ne traiti !
 9/7/2005 5:23:38 PM
User is offlineLAU
240 posts
www.zof.ro
4th


Re: Verificare conexiune la intenet
 (N/A)
Ping la IP.

DECLARE INTEGER GetRTTAndHopCount IN Iphlpapi;
INTEGER DestIpAddress, LONG @HopCount,;
INTEGER MaxHops, LONG @RTT

DECLARE INTEGER inet_addr IN ws2_32 STRING cp

LOCAL nDst, nHop, nRTT
nDst = inet_addr('82.79.123.253') && google.com
STORE 0 TO nHop, nRTT

IF GetRTTAndHopCount(nDst, @nHop, 50, @nRTT) <> 0
? 'Hop count to the destination:', nHop
? 'Round-trip time, in milliseconds:', nRTT
ELSE
? 'Error'
ENDIF

http://fox.wikis.com/wc.dll?Wiki~HowtoPingRemoteSite~VFP pentru detalii
-De la NUTZ-
 9/8/2005 10:28:59 AM
User is offlineDorin Vasilescu
1366 posts
1st




Re: Verificare conexiune la intenet
 (Romania)
Am si io una

    FUNCTION checkInternetConnection
    LPARAMETERS tcWebAddress
    DECLARE Integer InternetCheckConnection;
     IN WININET.DLL;
     String Url, Long dwFlags, Long Reserved
    IF InternetCheckConnection(tcWebAddress,1,0)<>0
       RETURN .T.
    ELSE
       RETURN .F.
    ENDIF
 6/14/2007 4:17:03 PM
User is offlineLuk
8 posts


Re: Verificare conexiune la intenet
 (N/A) Modified By Luk on 6/14/2007 4:19:49 PM)
Local ;
loWinsck As MSWinsock.Winsock, ;
llComputerConnected As Boolean

loWinsck = CreateObject("MSWinsock.Winsock")
With loWinsck
.RemoteHost = "www.microsoft.com"
.RemotePort = 80
.Connect()
Do While .State < 7
EndDo
If .State = 7 && m-am conectat la calculator
llComputerConnected = .T.
EndIf
.Close()
? "Computer connected: " + Transform(llComputerConnected)
EndWith

Am incercat in loc de www.microsoft.com sa pun adresa de ip a celuilalt calculator conectat 192.168.0.101 dar raspunsul e Computer connected: .F. desi calculatorul se vede in retea (si poate fi accesat din network places), si nici nu am un firewall activat. Am incercat si cu alt port. Ce pot sa fac?
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Win32 API  Verificare cone...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement