jak sprawdzic czy komputer jest podłączony do netu?
jakie komponenty sa do tego potrzebne i jaka procedura??
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
no dobrze czy ktoś ściągał ten komponent i go instalował ???????????
bo ja mam spore problemy z instalacją moim zdaniem komponent jest niekompletny....
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:
- 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.
- 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
-
Jesli chcesz sprawdzic czy komponent dziala( o ile skompliowalo sie bezproblemowo) to utworz nowa aplikacje.
-
Poloz komponent na formie.
-
Z menu Events formy wybierz OnActivate
-
W procedurze OnActivate wpisz - IsConnected1.Connected
10.W Events komponentu uzupelnij zdarzenia OnFalse i OnTrue.
- Uruchom aplikacje.
W zaleznosci od tego czy jestes polaczony z Internetem zostanie wygenerowane dane zdarzenie.
Pozdrawiam:)--take care,
Wodzu
no dobrze :) wielkie dzięki
ale jak np wyświetlić aktualny status połączenia w komponencie Tlabel?
Odpowiem jak skoncze ogladac mecz poslki z brazylia;)--take care,
Wodzu
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.