jak sprawdzic czy komputer jest podłączony do netu?

0

jak sprawdzic czy komputer jest podłączony do netu?
jakie komponenty sa do tego potrzebne i jaka procedura??

0

Gdzies na tej stronie jest komponent inetdetector. Jak go zainstalujesz to juz bedziesz wiedzial czy komp jest podlaczony z netem :-) Nie jestem pewnien ale jest chyba nawet artykol jak napisac taki komponent to wykrywania polaczenia :-) --pozdrawiam PEDROS {hello}
PROPAGANDA: Uzywajcie irca i badzcie na kanale 4programmers.net
Delphi6

0

Ave!

Oto ten artykul...

http://www.4programmers.net/delphi/compontn.html--take care,

Wodzu

0

no dobrze czy ktoś ściągał ten komponent i go instalował ???????????
bo ja mam spore problemy z instalacją moim zdaniem komponent jest niekompletny....

0

NIekompletny komponent napisany przez Adama Boducha?
Czy to w ogóle mozliwe? ;)

Moze po prostu nie potrafisz zainstalowac tego komponentu?
Sprawdzilem go dla Ciebie i u mnie dziala bezproblemowo.

Zrob tak:

  1. Wklej ponizszy kod do notatnika

unit IsConnected;

interface

uses
Windows, Classes;

type
TIsConnected = class(TComponent)
private
FTrue, FFalse : TNotifyEvent;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
function Connected : Boolean; * sprawdza, czy jest polaczenie z netem
procedure ShowAbout; * wyswietla informacje o autorze...
published
property OnTrue : TNotifyEvent read FTrue write FTrue;
property OnFalse : TNotifyEvent read FFalse write FFalse;
end;

procedure Register;

implementation

uses WinInet;

procedure Register;
begin
RegisterComponents('Standard', [TIsConnected]);
end;

procedure TIsConnected.ShowAbout;
begin
{ wyswietl informacje o autorze }
MessageBox(0, 'TIsConnected' + #13#13+
'Copyright (c) 2001 by Adam Boduch ' + #13+
'http://programowanie.of.pl'+#13+
'boduch@poland.com', '', MB_OK);
end;

function TIsConnected.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.
if Result then
begin
{ jezeli procedura OnTrue jest wygenerowana uruchom ja }
if Assigned(FTrue) then OnTrue(Self);
end else if Assigned(FFalse) then OnFalse(Self);
end;

constructor TIsConnected.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;

destructor TIsConnected.Destroy;
begin
inherited Destroy;
end;

end.

  1. Zapisz go jako IsConnected.pas

3.Odpal Delphi i w menu Componnent wybierz Install Componnent

4.Podaj sciezke do pliku isConnected.pas

5.Skompliuj paczke

  1. Jesli chcesz sprawdzic czy komponent dziala( o ile skompliowalo sie bezproblemowo) to utworz nowa aplikacje.

  2. Poloz komponent na formie.

  3. Z menu Events formy wybierz OnActivate

  4. W procedurze OnActivate wpisz - IsConnected1.Connected

10.W Events komponentu uzupelnij zdarzenia OnFalse i OnTrue.

  1. Uruchom aplikacje.

W zaleznosci od tego czy jestes polaczony z Internetem zostanie wygenerowane dane zdarzenie.

Pozdrawiam:)--take care,

Wodzu

0

no dobrze :) wielkie dzięki
ale jak np wyświetlić aktualny status połączenia w komponencie Tlabel?

0

Odpowiem jak skoncze ogladac mecz poslki z brazylia;)--take care,

Wodzu

0

W OnTrue wpisz Label1.Caption:='Podlaczony do netu'
A w OnFalse Label1.Caption:='NIe Podlaczony do netu'--take care,

Wodzu

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.