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:

  • 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
  • Menghilangkan karakter dalam kata BEGINbefore:='12,000,000';StringReplace(before, ',', '',[rfReplaceAll, rfIgnoreCase]);//koma dihilangkanShowMessage(before);END; … Read More
  • Haruskah Sarjana Komputasi menjadi seorang Programmer? Dawson dalam bukunya Project in Computing and Information System menyebutkan bahwa landscape komputasi itu terbagi menjadi tiga bagian, yakni teori (seperti matematika, logika, metide formal, kecerdasan buatan) praktik b… Read More
  • Mencari Kutipan Literatur Bersama Mbah Google Coba cari kutipan-kutipan dari Google Books atau Google Scholars dengan kata kunci berbahasa inggris. Jika kesulitan dalam bahasa, layanan Mbah yakni Google Translate bisa dimanfaatkan. Contoh, untuk mengetahui tentang… 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

0 comments :

Posting Komentar

Terima kasih atas kunjungan dan komentarnya