Cek Koneksi Internet Dengan Delphi (Online or Offline)

Pada kesempatan kali ini saya akan posting tentak "cara cek koneksi internet dengan Delphi".
Sebenarnya mudah sekali untuk diterapkan karena tidak banyak menggunakan kode, tapi kita dituntut untuk membuat satu function online dan memasukkan WinInet pada uses.
Oke, langsung saja beranjak ke materi.

Langkah pertama adalah memasukkan komponen, diantaranya :
1. Label, kita rubah property capationnya dengan 'Status' sedangkan property nama tidak perlu dirubah.
2. Timer, kita rubah intervalnya menjadi '1', atau terserah anda. tapi di sina saya memasukkan value 1.

Langkah kedua adalah memsaukkan kode, seperti berikut :
1. Masukkan "WinInet" di uses. seperti contoh di bawah
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, WinInet;

2. Memasukkan "function online: Boolean;" di Private Declaration
    type
    TForm2 = class(TForm)
      Label1: TLabel;
      Timer1: TTimer;
    private
      { Private declarations }
function online: Boolean;
public
{ Public declarations }
end;

3. Mamasukkan "function online: Boolean;" di implementation.
function TForm1.online;
begin
result := (InternetGetConnectedState(nil, 0))
end;
seperti contoh di bawah
var
Form2: TForm2;

implementation

{$R *.dfm}

function TForm1.online;
begin
result := (InternetGetConnectedState(nil, 0))
end;

end.
kode di atas harus disimpan di bawah implementation.

4. Memasukkan kode di Timer.
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if online then
Label1.Caption := 'Online.'
else
Label1.Caption := 'Offline.';
end;

5, Run program, dan lihat hasilnya.

Sekian materi dari saya, semoga bermanfaat.
Saya tunggu komentarnya.