Al cambiar un codigo de delphi7 a delphi XE en ves de obtener la ip 192.168.1.6 me da como resultado 5.2.12.26. , el hostname si lo regresa correctamente.
Alguien tiene alguna idea?
Este es el codigo que tengo:
Cita:
procedure TfrmLogin.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TfrmLogin.FormShow(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pAnsichar;
begin
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
hostname1:=p^.h_Name;
{Get the IpAddress}
p2 :=iNet_ntoa(PInAddr(p^.h_addr_list^)^);
ipaddress:=p2;
end;
|