Ĺadny brzuch
Jak sprawdzić czy komputer ma połączenie z internetem?? (dodam że to z 4programmers nie wiem jak zrobić, błąd przy kompilacji)
Jaki blad?
btw wczoraj uzylem kodu i wsio bylo ok :huh:
mam taki błąd:
http://img223.images...234/aaaa7ai.jpg
Deklaracje masz w złym miejscu :P
to gdzie mam to wstawić?? robie przecież wg instrukcji...
W sekcji Public :blink:
albo ciśnienie dziś niskie albo senny już jestem bo wstawiłem do public i dalej błąd:
http://img148.images...2974/bbb8vi.jpg
Kompilator domaga deklaracji tej procedury w kodzie. Hmmmm.....i jeszcze wyskakuje błąd z niezgodnością parametrów... nic wysiadam... ale zastanowie sie...
uff doszedłem....
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
to trzeba wstawić pod napisem implementation
uff doszedłem....
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
to trzeba wstawić pod napisem implementation
powyzej tez powinno sie dac :) Tak, ale nie przed uses, jak to on miał na screenie ;)
Tak, ale nie przed uses, jak to on miał na screenie ;)
Tak, ale nie przed uses, jak to on miał na screenie ;)
Tez mialem kiedys problem z tym... pamietaj, ze zwykle komputer pokazuje dostepnosc internetu, opierajac sie na istnieniu karty sieciowej...
Tak to ja uzywam...
1. do usesow (tak, tych o ktorych byla mowa ;)) dodaj
WinSock, WinInet;
2. umiesc takie oto funkcje
function net1: Boolean; //kod Beldzia var Flags: DWORD; begin Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY; Result := InternetGetConnectedState(@Flags, 0); end; function net2:boolean; //kod Cyrkla var wd:wsadata; begin WSAStartup($101,wd); result := gethostbyname('www.nasa.gov')<>nil; { gdzie "www.nasa.gov" moze byc zastapiona dowolna strona internetowa, o ktorej masz pewnosc, ze istnieje;) } WSACleanup; end;
3. w uzyciu...
if ((net1=true) and (net2=true)) then showMessage('Jest iNet') else showMessage('brak polaczenia');
4. Dla bezpieczenstwa dzialania funkcji, na sam koniec pliku z kodami, dodaj:
initialization begin //ladowanie biblioteki WinSock VER := MAKEWORD(1, 0); WSAStartup(VER, Data); end; finalization WSACleanup; // zwalniamy ja;) end.
^_^
Użytkownik DJ_ProG edytował ten post 18 marzec 2006, 19:33
Hmmmm, sposób Kajetanka jest raczej lepszy :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jaki blad?
btw wczoraj uzylem kodu i wsio bylo ok :huh:
mam taki błąd:
http://img223.images...234/aaaa7ai.jpg
Deklaracje masz w złym miejscu :P
to gdzie mam to wstawić?? robie przecież wg instrukcji...
W sekcji Public :blink:
albo ciśnienie dziś niskie albo senny już jestem bo wstawiłem do public i dalej błąd:
http://img148.images...2974/bbb8vi.jpg
Kompilator domaga deklaracji tej procedury w kodzie. Hmmmm.....i jeszcze wyskakuje błąd z niezgodnością parametrów... nic wysiadam... ale zastanowie sie...
uff doszedłem....
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
to trzeba wstawić pod napisem implementation
uff doszedłem....
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
to trzeba wstawić pod napisem implementation
powyzej tez powinno sie dac :) Tak, ale nie przed uses, jak to on miał na screenie ;)
Tak, ale nie przed uses, jak to on miał na screenie ;)
Tak, ale nie przed uses, jak to on miał na screenie ;)
Tez mialem kiedys problem z tym... pamietaj, ze zwykle komputer pokazuje dostepnosc internetu, opierajac sie na istnieniu karty sieciowej...
Tak to ja uzywam...
1. do usesow (tak, tych o ktorych byla mowa ;)) dodaj
WinSock, WinInet;
2. umiesc takie oto funkcje
function net1: Boolean; //kod Beldzia var Flags: DWORD; begin Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY; Result := InternetGetConnectedState(@Flags, 0); end; function net2:boolean; //kod Cyrkla var wd:wsadata; begin WSAStartup($101,wd); result := gethostbyname('www.nasa.gov')<>nil; { gdzie "www.nasa.gov" moze byc zastapiona dowolna strona internetowa, o ktorej masz pewnosc, ze istnieje;) } WSACleanup; end;
3. w uzyciu...
if ((net1=true) and (net2=true)) then showMessage('Jest iNet') else showMessage('brak polaczenia');
4. Dla bezpieczenstwa dzialania funkcji, na sam koniec pliku z kodami, dodaj:
initialization begin //ladowanie biblioteki WinSock VER := MAKEWORD(1, 0); WSAStartup(VER, Data); end; finalization WSACleanup; // zwalniamy ja;) end.
^_^
Użytkownik DJ_ProG edytował ten post 18 marzec 2006, 19:33
Hmmmm, sposób Kajetanka jest raczej lepszy :P