Witam.
Czy posoada ktoś z Was program, po uruchomieniu którego sprawdzałby on czy istnieje połączenie z netem (np ping lub sprawdzanie wywołania strony) i zapisywanie wyniku np. co 1 min. do pliku w takim formacie, że możnaby później np. wczytać go i łatwo przetworzyć przez PHP ...
Bardzo proszę o pomoc ...
Pozdrawiam
Rafał Kwaśniak
Grupa Savage 5
Jesteś nowy, więc podam link, ale kolejne pytania, na które odpowiedź jest na forum lub w FAQ będą kasowane.
http://4programmers.net/view_faq.php?id=151
Wrzuć na formę Timer i odpalaj co minutę powyższą funkcję.
tak sie sklada ze w moim przypadku ten sposob zawsze pokazuje ze jestem online (tzn. za czasow kiedy mialem modem, teraz to rzeczywiscie zawzze jestem;)), lepiej zrob jakis watek osobny (albo wlasnie TTimer) + sprawdzanie ip, z tym, ze jesli ktos ma LAN a nie ma internetu to jest problem...
type
TExe = class(TThread)
protected
procedure Execute; override;
end;
function LocalIP: String;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] nil do
begin
Result := inet_ntoa(pptr[I]);
Inc(I);
end;
WSACleanup;
end;
procedure TExe.Execute;
var
IP, Temp : string[255];
begin
IP := LocalIP;
if IP '127.0.0.1' then
ShowMessage('Jestes online.')
else
ShowMessage('Jestes offline');
repeat
Sleep(500);
Temp := LocalIP;
if Temp IP then
begin
if Temp = '127.0.0.1' then ShowMessage('Rozlaczyles sie!') else
ShowMessage('Polaczyles sie!');
IP := Temp;
end;
until false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TExe.Create(false);
end;
do usu dodaj jeszcze WinSock
Kurcze a to jest dzial C++ czy delphi co???
Wystarczy ściągnąć odpowiedni komponent(nie pamiętam nazwy) pod delphi albo bcb
Marooned: ten przsykład co podałeś jest napisany w delphi, jeśli ktoś szukał w C++ to by nie znalazł tutaj. Ten przykład jest stosunkowo prosty do przepisania, ale często dajecie odnośniki do odpowiedzi które są w delphi i naprawdę przepisanie ich na C+ nie dla kazdego jest łatwe. Nie żebym się czepiał.
A <font color="red">w ogóle</span> to przepisaałem to na C :
DWORD flaga;
flaga = INTERNET_CONNECTION_MODEM || INTERNET_CONNECTION_LAN ||
INTERNET_CONNECTION_PROXY || INTERNET_CONNECTION_MODEM_BUSY;
if(InternetGetConnectedState(&flaga,0)==1)
{
MessageBox("jest połączenie","");
}
else
{
MessageBox("nie","");
}
i przy budowanie exe (nie podczas kompilacji) stuka błąd :
"
PolaczenieDlg.obj : error LNK2001: unresolved external symbol __imp__InternetGetConnectedState@8
Debug/Polaczenie.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
"
aha mod€ł dodałem
pozdro