Sprawdzenie dostępu do internetu

Jak sprawdzić czy dany komputer ma w obecnej chwili włączoną sieć? Szukałem na forum lecz nic konkretnego i w 100% sprawnego nie znalazłem.

co to znaczy włączoną sieć?

ma dostęp do internetu...

no to

wude napisał(a)

ma dostęp do internetu...
a

wude napisał(a)

ma w obecnej chwili włączoną sieć?
to trochę co innego, ale to tak na przyszłość.

Jedyna sprawdzona metoda to spróbować się z czymś połączyć. Ale

1. user może mieć dostęp tylko do http i ping (jak i cokolwiek innego na porcie innym niż 80) nie przejdzie
2. user może mieć dostęp tylko do wybranych serwerów i wtedy ping (czy cokolwiek innego) na strony z poza listy nie przejdzie
3. itd, itp

Chcę, aby użytkownikowi jeśli ma dostęp do internetu wyświetlił się obrazek pobrany z neta. Jeśli natomiast nie ma aby obrazek został pobrany z dysku. Przydałby się jakiś przykładowy kod.

Przecież taki program pisze się w 5 minut, przy czym znalezienie kodu od neta zajmuje na google 5 sekund.
Wątek napisałeś o 15, a już minęła 18 i do tej pory tego nie zrobiłeś? Magia liczb czy k* czy co? [rotfl]

po prostu

try
//próba pobrania obrazka z neta
except
//otwarcie obrazka z dysku
end;

http://4programmers.net/Delphi/try <- o try
http://4programmers.net/Delphi/Wyj%C4%85tki <- ogólnie o wyjątkach

Do uses dodaj WinInet i wypróbuj ten kod

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinInet;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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;
procedure TForm1.FormShow(Sender: TObject);
begin
If Connected = True then
  ShowMessage('Jest internet')
  else
  ShowMessage('Brak internetu');
end;

end.