Ir al contenido


Foto

PING !


  • Por favor identifícate para responder
11 respuestas en este tema

#1 cHackAll

cHackAll

    Advanced Member

  • Administrador
  • 599 mensajes

Escrito 19 febrero 2009 - 04:16

En una temporada un cliente mío tenía problemas con su modem, para solucionarlo temporalmente optamos por detectar cuando el modem comenzaba a fallar y lo "reiniciábamos", entonces perdíamos la conexión con el ISP solo por unos pocos segundos. Para “detectar” el momento en que el modem fallaba lo único que teníamos que hacer era un “ping ip_dns –t”, y concentrarnos en el momento en que el DNS dejaba de responder por lapsos inaceptables.

Sin embargo tener una ventana de la consola abierta y tener que enfocarla cada cierto tiempo era una molestia, la solución a ambos problemas sería una ventana emergente o mejor aún un BallonTip sobre el SysTray usando la API IcmpSendEcho para realizar el éco.
 


delphi
  1. function GetIpErrorString(ErrorCode: Cardinal; Buffer: PWideChar; var Size: Integer): Cardinal; stdcall external 'iphlpapi';
  2. function MessageBoxTimeoutW(hWnd: Cardinal; lpText, lpCaption: PChar; uType, wLanguageId, dwMilliseconds: Cardinal): Cardinal; stdcall external 'user32';
  3. function _itoa(Value: Integer; lpBuffer: PChar; Radix: Integer): PChar; cdecl external 'ntdll';

El código adjuntado ha sido modificado para resolver el IP del foro y utiliza tres APIs que son bastante prácticas; la API GetIpErrorString facilita el manejo de mensajes de error, la API MessageBoxTimeoutW muestra un mensaje solo por un determinado tiempo y la API _itoa nos facilita realizar conversiones desde la base 10 a cualquier otra sin usar la unidad SysUtils o escribiendo código.

Enjoy!

Archivos adjuntos

  • Archivo adjunto  ping.rar   2,17KB   52 descargas

  • 0

#2 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 19 febrero 2009 - 07:26

Graciasl maestro por todos sus aportes.
Saludos


  • 0

#3 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 21 febrero 2009 - 08:17

Hola
No me canso de ver tu codigo amigo.
Se que no lo entenderé nunca pero es impresionante tu conocimiento.
Saludos
  • 0

#4 agag4

agag4

    Advanced Member

  • Miembros
  • PipPipPip
  • 298 mensajes
  • LocationMéxico

Escrito 23 junio 2009 - 08:37

Esta dañado el archivo .7z, ya instale el programa 7z, marca el siguiente mensaje al descomprimir:

No se puede abrir archivo.7z como un archivo comprimido.


  • 0

#5 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 23 junio 2009 - 08:46

Hola

Espero que alguno de los compañeros tenga ese archivo, por alguna razón se ha dañado.

Salud OS
  • 0

#6 cHackAll

cHackAll

    Advanced Member

  • Administrador
  • 599 mensajes

Escrito 24 junio 2009 - 07:56

Esta dañado el archivo .7z, ya instale el programa 7z, marca el siguiente mensaje al descomprimir:

No se puede abrir archivo.7z como un archivo comprimido.


Ya esta solucionado, intentalo una vez mas ;)
  • 0

#7 ewok

ewok

    Newbie

  • Miembros
  • Pip
  • 1 mensajes

Escrito 23 julio 2010 - 03:34

:cry: Es una lástima que el archivo no se pueda descomprimir. Si alguien lo tiene por favor si lo pueden subir a un sitio de  descargas o enviarmelo a mi correo se los agradeceria eternamente.
  • 0

#8 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 23 julio 2010 - 03:37

:cry: Es una lástima que el archivo no se pueda descomprimir. Si alguien lo tiene por favor si lo pueden subir a un sitio de  descargas o enviarmelo a mi correo se los agradeceria eternamente.


Hola ewok, bienvenido a DelphiAccess en cuanto llegue a casa veré si lo tengo para subirlo de nuevo, lo siento mucho.

Salud OS
  • 0

#9 pcicom

pcicom

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 267 mensajes
  • LocationMéxico

Escrito 23 julio 2010 - 11:53

Yo lo tengo....

ahi les va...
  • 0

#10 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 24 julio 2010 - 12:06

Gracias pcicom, (y)

Salud OS
  • 0

#11 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 26 julio 2010 - 08:58

Gracias axesys, (y)

Salud OS


Amigo te falla la vista :D
  • 0

#12 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 26 julio 2010 - 09:06

Amigo te falla la vista :D


Ah ca.....ray, jejejeje ya veo :p

Salud OS
  • 0




IP.Board spam blocked by CleanTalk.