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;
Senin, 08 Agustus 2011
Mengkonversi IP address ke Hostname
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