Połączenie i odpowiedź

0

mam problem z dostawcą ... żeby nie musieć pisać na kartce kiedy nie było neta żeby wyjudzić mniejszy rachunek wpadłem na pomysł że napiszę progsa, który sam co dany czas będzie sprawdzał czy może się połączyć z internetem, a jeśli nie bedzie to możliwe to będzie pobierał datę i godzinę z zegarka systemowego i zapisywał to do wybranego pliku.

Problem twki w tym że nie wiem jak pobrać datę i czs z zegarka systemowego i jak sprawdzić czy jest możliwe połączenie z netem ( nie chodzi tu o to czy użytkownik jest podłączony pod kabel tylko czy można się połączyć np. z www.wp.pl ) ???

Gdyby ktoś znał odpowiedź byłbym wdzięczny

Z góry Dzięki !

0

Ad1.
Datetostr(now) Dla daty
Timetostr(now) Dla czasu

Ad2
Co do tego pobierz sobie OnLine-IP z działu DOWNLAOD z 4P

0

Przy pomocy ShellExecute (jest w helpie)
[code]ping www.wp.pl>> c:\log.txt[/code]
i sprawdzić co się w pliku pojawi :))

PS> metoda najgłupsza, lecz najprostsza (standard jak na mnie:) )
PS> lub użyj komponenty TClientSocket i spróbuj się połączyć na port 80 www.wp.pl (też standardowa moja odpowiedź)

0

wszystko wiadomo

// true jeźeli jest połączenie z net-em
function Connected: Boolean;
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;

nawet działa, sprawdzałem :D

0

taaa ... to ma sens tylko gdzie ja mam dać to function connected ???
czy to ma być pod client socket czy zadeklarować funkcję nową?

1 użytkowników online, w tym zalogowanych: 0, gości: 1