2 replies to this topic

[escafandra]

Como respuesta a una pregunta del foro y por no sobrecargar de C una pregunta hecha para delphi, publico aquí­ un ejemplo de como hacer un Ping desde código usando sólo la API. El parámetro recibido como IP debe ser eso, una dirección IP. Admite reperir el Ping n veces y devuelve el resultado como bool:
 

cpp

#pragma link "$(BCB)\\lib\\PSDK\\Wininet.lib"
#pragma link "icmp.lib"
 
#include <winsock2.h>
#include <iphlpapi.h>
#include "icmpapi.h"
 
 
//---------------------------------------------------------------------------
//  Hacer Ping y conocer el resultado
//  Entrada IP en formato 255.255.255.255
//  Devuelve true si tiene exito o false si hubo un error.
//------------------------------------------------------------------------------
bool Ping(char* Addr, int NVeces)
{
    //Formato de Addr NNN.NNN.NNN.NNN
 
    //Declarar e inicializar variables
    bool Result = true;
    HANDLE hIcmpFile;
    unsigned long ipaddr = INADDR_NONE;
    DWORD dwRetVal = 0;
    char SendData[] = "Data Buffer";
    LPVOID ReplyBuffer = NULL;
    DWORD ReplySize = 0;
 
    //Obtener IP de Addr
    ipaddr = inet_addr(Addr);
    if (ipaddr == INADDR_NONE){
      Result = false;
      return Result;
    }
 
    hIcmpFile = IcmpCreateFile();
    if (hIcmpFile == INVALID_HANDLE_VALUE) {
      Result = false;
      return Result;
    }
    ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData) + 64;
    ReplyBuffer = (VOID*) malloc(ReplySize);
    if (ReplyBuffer == NULL) {
      Result = false;  // No localizacion de memoria...
      return Result;
    }
 
    // Envia Ping
    Result = true;
    for(int n=0; n<NVeces; n++){
      Application->ProcessMessages();
      dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData),
          NULL, ReplyBuffer, ReplySize, 1000);
 
      if (dwRetVal != 0) {
        PICMP_ECHO_REPLY pEchoReply = (PICMP_ECHO_REPLY)ReplyBuffer;
        // Detectar Error en Ping (IP_STATUS)
        // ICMP_ECHO_REPLY Structure IP_STATUS code
        // [url]http://msdn2.microsoft.com/en-us/library/aa366053(VS.85).aspx[/url]
        if(pEchoReply->Status != 0){
            Result = false;  // Error en Ping el Host no lo recibe....
        }
      }else{
        Result = false;  // Error en IcmpSendEcho localizar con GetLastError()
      }
      if(Result) break;
      Sleep(1000);
    }
 
    free(ReplyBuffer);
    return Result;
}

Saludos.

PD. Me olvidaba comentar que icmp.lib es la librerí­a obtenida con IMPLIB de icmp.dll. También debemos enlazar Wininet.lib (de Wininet.dll)

Así­ mismo, el archivo cabecera icmpapi.h no viene en alguna versión de Builder, los dejo aquí­.

Subo todo el código y un ejemplo con fuentes y compilado.

Attached Files

•  Prueba Ping.rar   171.59KB   40 downloads

[escafandra]

Esta función Ping me ha dado muy buenos resultados durante mucho tiempo. La he usado, principalmente, para detectar que tengo conexión en Internet, para ello hago un Ping a www.google.com.

Después de mucho tiempo disfrutando de esta función me ha empezado a fallar. He comprobado que ahora falla con algunas webs (google.com, microsoft.com) y no con otras (delphiacces.com)

Así­ las cosas no he tenido mas remedio que revisar el fallo. Lo que me despistó es porqué falla ahora cuando antes no lo hací­a y además es fallo es intermitente. Pensé en algún cambio de alguna dll de las usadas por las APIs (IcmpSendEcho).

Lo he solucionado aumentando el tamaño del buffer de respuesta ReplyBuffer. Ahora vuelve a funcionar como antes.

En el primer mensaje, he editado el código con la corrección:

cpp

ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData) + 64;

También he añadido una aplicación de ejemplo, disponible como descarga.

Saludos.

[escafandra]

Tras contestar a mediazg en este hilo propongo otra versión del código que incorpora el ping a URLs e IPs:

cpp

bool Ping(char* Addr, int NVeces = 3)
{
  //Declarar e inicializar variables
  WSADATA wsaData;
  HANDLE hIcmpFile;
  ICMP_ECHO_REPLY Reply;
  hostent* He;
  bool Result = false;
 
  // Inicializar WinSock
  if(WSAStartup(MAKEWORD(1, 1), &wsaData)) return false;
 
  //Obtener IP de Addr
  He = gethostbyname(Addr);
  if(!He) return false;
 
  // Envia Ping
  hIcmpFile = IcmpCreateFile();
  for(int n=0; n<NVeces; n++){
    Application->ProcessMessages();
    Result = IcmpSendEcho(hIcmpFile, *(unsigned long*)(*He->h_addr_list), 0, 0, 0, &Reply, sizeof(ICMP_ECHO_REPLY), 1000);
    if(Result)
      Result = (Reply.Status == 0); // Error en Ping el Host no lo recibe....
    else break;
    Sleep(1000);
  }
 
  // Cerrar...
  IcmpCloseHandle(hIcmpFile);
  WSACleanup();
 
  return Result;
}

Y en delphi:

delphi

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;
    if Result then
      Result:= Reply.Status = 0; // Error en Ping el Host no lo recibe....
    dec(Rep);
    Sleep(1000);
  until Result or (Rep = 0);
 
  // Cerrar...
  IcmpCloseHandle(hIcmpFile);
  WSACleanup;
end;

Saludos.