13 respuestas en este tema

[agag4]

Tengo una función que no me acuerdo donde la tome, a veces funciona y aveces no, por lo que no se en cual de las lineas de codigo este el problema, no se si alguien tenga otra funcion ya probada solo ocupo saber si X direccion IP esta encendida ó este en linea para posteriormente conectarme, les paso la función:

delphi

function TienePing(Host : string) : boolean;
var
 Handle : THandle;
 InAddr : IPAddr;
 DW     : DWORD;
 rep    : Array[1..128] of byte;
begin
 
  result := false;
  Handle := IcmpCreateFile;
 
  if Handle = INVALID_HANDLE_VALUE then
    Exit;
 
  TranslateStringToTInAddr(Host, InAddr);
 
  DW     := IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0);
  Result := (DW <> 0);
 
  IcmpCloseHandle(Handle);
 
end;

Agradezco cualquier información al respecto....

[enecumene]

Hola, ¿no te funcionarí­a de esta manera?:

http://delphiaccess....-tidicmpclient/

Saludos.

[escafandra]

¿Que tal esto o esto otro?

Saludos.

[agag4]

Alguien puede volver a subir el archivo .7z porfavor ????


http://www.delphiaccess.com/forum/utilerias/ping-!/


Me intereza mas usar una funcion sin indys....

[cHackAll]

Alguien puede volver a subir el archivo .7z porfavor ????...

El problema ha sido tratado en el hilo respectivo.
 

...Me intereza mas usar una funcion sin indys....

delphi

// . . .
 
uses 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';
 
procedure TForm1.Button1Click(Sender: TObject);
var
Reply: array [0..6] of Cardinal;
icmp: Cardinal;
begin
icmp := IcmpCreateFile;
if IcmpSendEcho(icmp, inet_addr('127.0.0.1'), nil, 0, nil, @Reply, SizeOf(Reply), 666) <> 0 then
  MessageBox(0, 'Ok', '', MB_ICONINFORMATION)
else
  MessageBox(0, 'No', nil, MB_ICONERROR);
CloseHandle(icmp);
end;
 
// . . .

[agag4]

Gracias cHackAll, voy a probarlo....

[agag4]

Tengo maquinas viejitas con win98 usando, al actualizar el .exe en esas maquinas marca el error:

El archivo MiPrograma.Exe esta vinculado  a un IPHLPAPI.DLL.DLL:IcmpSendEcho de una exportación que no existe.

Con winXP si jala, quise copiar dicho .dll que tengo en una pc con winxp a la maquina con win98 al \windows\system y me marca que no se puede copiar el .dll por que esta en uso.

Alguien sabe si de plano tengo que usar winxp a fuerzas ????

[cHackAll]

Tengo maquinas viejitas con win98 usando, al actualizar el .exe en esas maquinas marca el error:

El archivo MiPrograma.Exe esta vinculado  a un IPHLPAPI.DLL.DLL:IcmpSendEcho de una exportación que no existe.

Reemplaza "iphlpapi" por "icmp.dll"

...quise copiar dicho .dll que tengo en una pc con winxp a la maquina con win98 al \windows\system y me marca que no se puede copiar el .dll por que esta en uso.

Alguien sabe si de plano tengo que usar winxp a fuerzas ????

Esa no es una buena practica

[agag4]

Malas noticias, acabo de realizar una prueba con una IP publica, si entro al ms dos y le doy "ping Mi IP" si me regresa respuesta, pero si intento realizar la comprobación de la funcion me dice que no hay respuesta 

[agag4]

Solo jalan para IP's de redes locales ??

[cHackAll]

Malas noticias, acabo de realizar una prueba con una IP publica, si entro al ms dos y le doy "ping Mi IP" si me regresa respuesta, pero si intento realizar la comprobación de la funcion me dice que no hay respuesta 

Estoy confundido, estas haciendo referencia al codigo del otro hilo o al codigo que te deje en este hilo? porque el mensaje es del otro no?

PD; tendria que hacer una prueba en 9x a ver que cosilla se nos esta escapando.

[agag4]

Alguien puede volver a subir el archivo .7z porfavor ????...

El problema ha sido tratado en el hilo respectivo.

...Me intereza mas usar una funcion sin indys....

delphi

// . . .
 
uses 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';
 
procedure TForm1.Button1Click(Sender: TObject);
var
Reply: array [0..6] of Cardinal;
icmp: Cardinal;
begin
icmp := IcmpCreateFile;
if IcmpSendEcho(icmp, inet_addr('127.0.0.1'), nil, 0, nil, @Reply, SizeOf(Reply), 666) <> 0 then
  MessageBox(0, 'Ok', '', MB_ICONINFORMATION)
else
  MessageBox(0, 'No', nil, MB_ICONERROR);
CloseHandle(icmp);
end;
 
// . . .

Use el código de arriba ....

[escafandra]

Mira a ver si el programa adjunto te funciona, es el código que te puse en C++.

Saludos.

[escafandra]

Como explico en este hilo, la rutina la he corregido.

Coloco el nuevo enlace de descarga para la aplicación de ejemplo y el proyecto completo. 

Saludos.