Mengambil Tanggal Dan Waktu Dari NTP Server Delphi

Imgae Source www.timetools.co.uk

Time NTP Server - Seperti kita tau NTP Server adalah suatu jenis protokol untuk singkronisasi waktu lokal dan mencocokan ke waktu global,

dalam contoh singkronisasi waktu dari lokal komputer dan mengambil waktu dari internet dengan transaksi data paket switched antara komputer dan server NTP itu sendiri, jaringan Protokal NTP server merupakan salah satu jenis protokol internet yang tertua.

Time NTP server Dimaksudkan untuk menyinkronkan waktu dari komputer dengan waktu global atapun dari sebuah program ke waktu global, Tidak bisa di tinggalkan kadang-kadang Anda membutuhkan akses ini pada program yang Anda buat misal dalam fungsi sebuah kode yang terkandung dalam program mengharuskan membaca waktu yang tepat dan akurat.

Dalam contoh suatu kode pada program yang bersifat shareware atau masa trial percobaan yang mengacu pada sebuah pengkodean waktu yang di jadikan sistem perhitungan expired date atau berahirnya masa percobaan, Juga dalam program berbasis databse yang mengharuskan perhitungan waktu secara real time sistem denda, bunga hutang dan masih banyak lagi,

Tentunya sebuah komputer harus terkoneksi internet jika Anda menerapkan sistem ini ppada program yang Anda buat, Kekurangan dari fungsi ini adalah jika akses internet lambat pada komputer pengguna program memakan cukup waktu karna harus mengambil source waktu dari internet.

Mungkin cukup di pahami penjelasan singkat ini

Baca Juga Menampilkan Text Memo Fast Report Dari Memo Edit Delphi

Nah sekarang saya berbagi sedikit tutorial bagai mana mengambil waktu dari internet dengan delphi.Turorial kali ini saya memanfatkan komponen TIdTime pada Pallete Indy Clients bawaan deplhi, Tapi saya tidak menggunakan komponennya melainkan hanya fungsinya saja,

Silahkan Sobat buka aplikasi delphi kesayangan sobat buat sebuah VCL Form baru dengan :

1. 1 Buah Button Berinama : GetTime
2. 2 Buah Labele berinama : Lbl_WaktuLocal dan Lbl_WaktuGlobal
3. Cukup segitu saja karna contoh simpel saja :)

Sebelum menerapkan kode tambahkan kode dibawah ini pada klausa uses

[
IdBaseComponent, IdTCPClient, IdTime, IdGlobalProtocols;
]

Dan tambahkan kode function di bawah pada Public declarations

[
function GetInternetTime:TDateTime;
]

Jika sudah sobat tinggal implementasikan function di atas letakan kode dibawah di area implementation

[
function TForm1.GetInternetTime: TDateTime;
var
IdTime: TIdTime;
TimeInSeconds: LongWord;
begin
Result := 0;
IdTime := TIdTime.Create(nil);
try
idTime.Host := 'time-a.nist.gov';
TimeInSeconds := idTime.DateTimeCard;
if TimeInSeconds <> 0 then
Result := ( ((TimeInSeconds + (idTime.RoundTripDelay div 1000))/ (24 * 60 * 60) ) + Int(idTime.BaseDate)) -TimeZoneBias;
finally
FreeAndNil(idTime);
end;
end;
]

Setelah itu klik dua kali pada form lalu masukan kode di bawah ini pada FormCreate

[
var
DT:TDateTime;
begin
DT:=Now;
Lbl_WaktuLocal.Caption :='Waktu Lokal : ' +DateTimeToStr(DT);
]

Ingat pada bagian variable juga di ikut sertakan posisi tepat diatas begin, Selanjutnya klik dua kali pada Button lalu masukan kode dibawah ini

[
Lbl_WaktuGlobal.Caption:='Waktu Global : '+DateTimeToStr(GetInternetTime);
]

Nah nah sekarang klik run dan tinggal di tes deh, ini contohnya

Get Internet Time Delphi

Oke Sobat mungkin cukup sekian dulu untuk tutorialnya semoga bisa bermanfaat buat Sobat yang sedang belajar bagai mana cara Mengambil Tanggal Dan Waktu Dari internet dengan Delphi semoga bisa di kembangkan dan terus berkarya salam blogger :) Jangan lupa komenya sobat blogger