Detectar ip impresra de red

[Neftali [Germán.Estévez]]

Desactiva el firewall de forma temporal para descartar que sea problemas de permisos.

Por aquí hablan de que las llamadas a ICMP.DLL puedes necesitar permisos extra, a diferencia del PING.

[bitbow]

Tambien puedes validar la compatibilidad de aplicación con el solucionador de problemas, define esta como compatibilidad con windows 7 o windows XP (aunque parezca de chiste llega a funcionar).

Windows 8.1 y 10 vinieron a complicar algunos temas que ya estaba trabajados en los windows previos.

Saludos y suerte.

[oec2509]

Empezado por Neftali

Desactiva el firewall de forma temporal para descartar que sea problemas de permisos.

Por aquí hablan de que las llamadas a ICMP.DLL puedes necesitar permisos extra, a diferencia del PING.

Muchas gracias por responder.

desactive el firewall y no hay cambio alguno

Sigo en busca de una solución, gracias de todos modos.

[engranaje]

Lo normal en estos casos suele ser que entre la versión del so en la que el código funcionaba correctamente y la versión en la que ya no funciona haya habido algún cambio en la Api. En estos casos lo mejor es ir a msd y comprobarlo.
https://msdn.microsoft.com/es-es/lib...=vs.85%29.aspx

Por lo que veo el problema está en el último parámetro que pasas en

Código Delphi [-]
IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0)

Estás pasando como timeout un 0 y al parecer en las últimas versiones de IcmpSendEcho es necesario pasar como timeout un valor mayor que 0

[[escafandra]]

Te muestro una Unit simple para hacer ping por código. Te permite direcciones en formato IP o Web:

Código Delphi [-]
unit UPing;

interface

uses
  Windows, WinSock;

function IcmpCreateFile: Integer; stdcall external 'iphlpapi'
function IcmpSendEcho(Handle, Address: Integer; RequestData: PChar; RequestSize: Word; RequestOptions, ReplyBuffer: PChar; ReplySize, TimeOut: Cardinal): Cardinal; stdcall external 'iphlpapi';
function IcmpCloseHandle(IcmpHandle: Cardinal): boolean; stdcall external 'iphlpapi'
function Ping(Addr: PCHAR; Rep: integer = 3): boolean;

type
ICMP_OPTION_INFORMATION =  packed record
   Ttl:           u_char;
   Tos:           u_char;
   Flags:         u_char;
   OptionsSize:   u_char;
   OptionsData:   Pointer;
end;
PICMP_OPTION_INFORMATION=  ^ICMP_OPTION_INFORMATION;

ICMP_ECHO_REPLY = packed record
   Address:       Cardinal;
   Status:        Cardinal;
   RoundTripTime: Cardinal;
   DataSize:      Word;
   Reserved:      Word;
   Data:          Pointer;
   Options:       ICMP_OPTION_INFORMATION; 
end;
PICMPP_ECHO_REPLY = ^ICMP_ECHO_REPLY;

implementation

function Ping(Addr: PCHAR; Rep: integer = 3): boolean;
var
  WSA: TWSAData;
  hIcmpFile: Cardinal;
  Reply: ICMP_ECHO_REPLY;
  He: Phostent;
begin
  Result:= false;

  // Inicializar WinSock
  if WSAStartup(MAKEWORD(1, 1), WSA) <> 0 then exit;

  //Obtener IP de Addr
  He:= gethostbyname(Addr);
  if He = nil then exit;

  // Envia Ping
  hIcmpFile:= IcmpCreateFile;
  repeat
    Result:= IcmpSendEcho(hIcmpFile, PULONG(He.h_addr_list^)^, 0, 0, 0, PCHAR(@Reply), sizeof(ICMP_ECHO_REPLY), 1000) <> 0;
    Result:= Result and (Reply.Status = 0); // Error en Ping el Host no lo recibe....
    dec(Rep);
  until Result or (Rep = 0);

  // Cerrar...
  IcmpCloseHandle(hIcmpFile);
  WSACleanup;
end;

end.

Saludos.

[oec2509]

Empezado por engranaje

Lo normal en estos casos suele ser que entre la versión del so en la que el código funcionaba correctamente y la versión en la que ya no funciona haya habido algún cambio en la Api. En estos casos lo mejor es ir a msd y comprobarlo.
https://msdn.microsoft.com/es-es/lib...=vs.85%29.aspx

Por lo que veo el problema está en el último parámetro que pasas en
Código Delphi [-]IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0)


Estás pasando como timeout un 0 y al parecer en las últimas versiones de IcmpSendEcho es necesario pasar como timeout un valor mayor que 0

Buenas tardes, quiero agradacer a todos los que de una forma u otra trataron de ayudar con mi situación, de verdad gracias por invertir de su valioso tiempo para compartir con otros sus conocimientos.

La solución al problema presentado fue cambiar el valor de timeout de 0 a 5, porque 5? no se;pero fue el que funcionó.

Muchas gracias amigos de Club Dephi. Saludos desde Costa Rica.