Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Cek Koneksi Internet dengan Delphi #131

Memainkan gitar bukan di tiup

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.

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

Download

*AFK

Related Articles

2 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button