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.
Mantep bener gan,, ane susah banget nyari tutorial ini,, Thanks.
sama2 gan,senang bisa berbagi