Bagaimana caranya ngambil atawa nge-list untuk network IP yang ada didalam LAN ?
Artikel ini emang agak lemot kalo dijalankan, tapi sebagai bahan dasar untuk pengembangan ... gak masalah ...
Artikel ini emang agak lemot kalo dijalankan, tapi sebagai bahan dasar untuk pengembangan ... gak masalah ...
Ini dibuat karena ada Delphier yang minta tolong carikan untuk bagaimana list IP address yang ada didalam jaringan ...
Ini berguna untuk IPv4 saja ... IPv6 ... au ah gelap
Berikut Cuplikan untuk functionnya...
Ini berguna untuk IPv4 saja ... IPv6 ... au ah gelap
Berikut Cuplikan untuk functionnya...
Uses Winsock; // <-- jangan lupa
procedure TForm2.getIP;
var
SAI: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
IP: String;
i: Integer;
begin
WSAStartup(1, WSAData);
for i := 0 to 255 do // maksimum 255 host
begin
IP := '192.168.1.' + inttostr(i); // jangan lupa titik ( . ) <-- ini juga format IPv4 xxx.xxx.xxx.xxx
SAI.sin_addr.s_addr := inet_addr(PChar(IP));
HostEnt := gethostbyaddr(@SAI.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Memo1.Lines.Add(IP + ' - ' + StrPas(Hostent^.h_name));
end;
end;
Random Articles
- Menampilkan nama bulan dalam bahasa Indonesia dalam fungsi "FormatDateTime"
- FPC version 3.2.0 has been released!
- Dynamic Menu based on MySQL Database Method I
- Mendeteksi drive baru /removable drive
- Trik untuk mengunci ALT+F4
- Check MySQL Service on Our PC
- Mengetahui semua printer yg ter-install
- protect/un-protect data FB/IB dari "gangguan" SYSDBA
- Buat Program aplikasi Trial dengan Registry
- Dynamic Menu based on MySQL Database Method II
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago