Cek Koneksi Internet dengan Delphi #131

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.

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.

Allrite done untuk full source code cek koneksi internet dengan delphi nya bisa di unduh disini gan :

Download

*AFK