Dosen adalah pendidik profesional dan ilmuwan dengan tugas utama mentransformasikan, mengembangkan, dan menyebarluaskan ilmu pengetahuan, teknologi melalui pendidikan, penelitian, dan pengabdian kepada masyarakat (Permendikbud 49/2014 Pasal 1:14)

Senin, 08 Agustus 2011

Mengkonversi IP address ke Hostname

Menggunakan winsock



function IPAddrToName(IPAddr: string): string;

var SockAddrIn:TSockAddrIn;HostEnt:PHostEnt;WSAData:TWSAData;

begin

WSAStartup($101,WSAData);

SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));

HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr,4,AF_INET);

if HostEnt<>nil then Rresult:=StrPas(Hostent^.h_name)

else Result:='';

end;


Related Posts:

  • Enkripsi dan Deskripsi Password unit uEncrypt; interface function Decrypt(const S: AnsiString; Key: Word): AnsiString; function Encrypt(const S: AnsiString; Key: Word): AnsiString; implementation const C1 = 52845; C2 = 22719; function D… Read More
  • Mengatur angka di belakang koma Perintahnya :Format('%8.2f'[]) 2 menunjukan jumlah angka di belakang komanya, yakni 2. diganti dengan angka floatnyaFungsi di atas menghasilkan keluaran bertipe string. … Read More
  • Menghilangkan karakter dalam kata BEGINbefore:='12,000,000';StringReplace(before, ',', '',[rfReplaceAll, rfIgnoreCase]);//koma dihilangkanShowMessage(before);END; … Read More
  • Menyimpan jpg ke database Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan uses DB, jpeg; Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adala… Read More
  • Format uang pada komponen Edit var sRupiah: string; iRupiah: Currency; begin //ribuan --> currency ( menyesuaikan setting windows ) sRupiah := Edit1.Text; sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); // hilangkan char k… Read More

0 comments :

Posting Komentar

Terima kasih atas kunjungan dan komentarnya