ďťż

Ładny brzuch

Próbuję zrobić program w Delphi odpowiedzialny za liczenie, ile minut się siedziało na internecie. Ale mam problem: nie znam kodu odpowiedzialnego za wykrywanie, kiedy komputer jest łaczy się z internetem. Czy możecie mi pomóc?


hmmmm nie jestem pewien, ale informacja o tym czy połączenie Dial-up jest aktywne musi być gdzieś zapisywana...

Pozdrawiam,
Sid
<< MOBO na VIA KT133 | AMD Duron 1,1Ghz | 320MB SDRAM(133mhz, 2x128MB, 1x64MB) | Riva TNT2 M64 PRO 32MB | 2xHDD: Barracuda 80GB & Samsung 10GB | CDROM: Samsung 48x | CD-RW: Philips 1610A [16x/10x/40x] | Sieciówka: Planet na Realtek 8139 | Dziwięk AC'97 | FDD NoName >>

Sid Twój podpis jest dłuższy od postu który napisałes możesz go skrócić?

Redaktor CompZone
gg: 4384950

Istnieje dużo sposobów i niekiedy u ciebie będzie działał tylko jeden;)
[bold]1)[/bold]
if TCP.LocalIP = 0.0.0.0 then ShowMessage('Nie jesteś połączony');

[bold]2)[/bold]
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;

[bold]3)[/bold]
function InetIsOffline(Flag: Integer): Boolean; stdcall;
external 'URL.DLL';

---------------------------------
..::NeVeS::.. www.neves.prv.pl
---------------------------------
Życie to śmierć, śmierć to życie.


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); // sprawdz polaczenie.
end;

Do sekcji uses należy dodać moduł WinInet. Funkcja zwraca True jeżeli jest połączenie, a False jeżeli go nie ma.
------------------------------------

Sprawdzenie IP

-----------------------------------------------

Użycie komponentów

-----------------------
Bełdzio
Delphi Rules:)
www : beldzio.prv.pl
mail: beldzio@sciaga.net

Oferty pracy, współpracy, oferty matrymonialne, albo jak chcesz Gadu-Gadu 3183960

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •