Cek Koneksi Internet dengan Delphi #131

Memainkan gitar bukan di tiup

Andry Fadrie K Desember 16, 2011

2 915 Less than a minute

andrypein.net : Walaupun berbahan edit text dan button saja namun lojik cek koneksi internet delphi dari aplikasi ini berguna jika ingin membuat apps yang lebih dewa.

Sebelumnya untuk membuat aplikasi ini rekan2 perlu menambahkan uses WinInet pada bagian usesnya.

cek koneksi internet dengan delphi — penampakan form

Untuk kode nya simak dibawah ini gan :

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function online : boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if online then
  edit1.Text:='status online'
 else
  edit1.Text:='status offline';
end;

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

end.

NB : tampilan uses yang ane jangan di ikutin,itu karena ane pake delphi XE2, jadi cukup tambahkan WinInet nya saja.