Cita:
Empezado por maeyanes
Hola...
¿Podrías especificar cual es el error que te muestra? Por que así como preguntas, pues como que no das mucha información.
Saludos...
|
Este es el Error que me marca, usando Delphi 7 / Sobre Windows Server 2016 Version 1607 (Compilacion de SO 14393.0)
Access violation at address 004764C1 in module 'Project1.exe'. Read of address 0000000C
CODIGO:
Código Delphi
[-]
function ObtenerIp :string; var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
begin
try
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);
Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); WSACleanUP;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;