2 respuestas en este tema

[JoAnCa]

Hola a todos Pues sigo encontrando dificultades en mi soft de monitoreo de redes,

 

Una de ellas es en las funciones que usan PChar, el compilador me da el error de que PChar y PAnsiChar no son tipos compatibles y lo cambio por PAnsiChar, y no da mas el error, pero tampoco me devuelve nada la función.

 

Una de las situaciones es en el siguiente código para obtener el nombre de una PC dando la IP

delphi

function GetIp(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PChar(Host));
    if HostEnt <> nil then
      Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
    WSACleanup;
  end;
end;

Asi me da el error comentado, y si lo cambio por PAnsiChar HostEnt devuelve nulo

 

Alguna idea de lo que sucede?

 

Como podre solucionar esto, para q la funcion me devuelva el nombre de la PC como es de esperar

Editado por JoAnCa, 13 febrero 2017 - 10:03 .

[escafandra]

Desde que Delphi adoptó el UNICODE no ha hecho otra cosa que liar las cosas y confundir los tipos.

 

El compilador pasa a interpretar PCHAR como PWCHAR. y lo que debe ser un verdadero PCHAR debe explicitarse como PAnsiCHAR.

 

 

El código que muestras pasaría a ser así para compilar en Berlin, por ejemplo.

delphi

function GetIp(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PAnsiChar(AnsiString(Host)));
    if HostEnt <> nil then
      Result:= inet_ntoa(PInAddr(HostEnt.h_addr_list^)^);
    WSACleanup;
  end;
end;

Saludos.

[JoAnCa]

Desde que Delphi adoptó el UNICODE no ha hecho otra cosa que liar las cosas y confundir los tipos.

 

 

Y bien que si, que manera de complicarme por cuestion de los tipos. cosas que funcionaban antes ahora no

 

Pues cambiando el codigo como me dijiste, ahora funciona bien

delphi

//HostEnt:= gethostbyname(PChar(Host));
HostEnt:= gethostbyname(PAnsiChar(AnsiString(Host)));

Muchas gracias

 

Tema Resuelto