[BCB] Jak pobrać własne IP?

Jak w temacie.

---

Jesli masz Indy9 to uzyj TIdIPWatch...

IdIPWatch1->LocalIP;

Używam gniazd TClient/ServerSocket

var  p:PHostEnt;  s:array[0..128] of char;  p2:pchar; begin GetHostName(@s, 128); p := GetHostByName(@s); ShowMessage(' Twój host: '+(p^.h_Name)+' ]'); p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); ShowMessage(' [Twój adres: '+p2+' ]'); end;

Przetlumacz na sobie na BCB... ^_^
Użytkownik Kajetanek edytował ten post 03 maj 2005, 13:02

---

W BCB nie ma funkcji GetHostName() i pewnie GetHostByName() też :P

http://forum.ks-eksp...showtopic=42590 Moze tu cos bedzie... ^_^


W BCB nie ma funkcji GetHostName() i pewnie GetHostByName() też :P
Dodaj WinSock do include ;)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl