Buenas en delphi 7 estaba usando una función que consegui en delphi al limite para ver la ip local y ahora en delphi xe8 me da error aqui le dejo la funcion
Código Delphi
[-]function MiIp: String;
var
p: PHostEnt;
s: array[0..128] of char;
p2: pchar;
wVersionRequested: WORD;
wsaData: TWSAData;
begin
wVersionRequested := MAKEWORD( 1, 1 );
WSAStartup( wVersionRequested, wsaData );
GetHostName( @s, 128 );
p := GetHostByName( @s );
p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );
Result := Result + p2;
WSACleanup;
end;
el error esta en esta linea
Código Delphi
[-] p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );
error
[dcc32 Error] Unit1.pas(54): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'