Autor Tema: PING !  (Leído 2013 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado cHackAll

  • Administrador
  • ******
  • Gracias
  • -Dados: 2
  • -Recibidos: 71
  • Mensajes: 487
  • Calificaciones: +75/-666
  • Sexo: Masculino
  • Baneado?
PING !
« en: 19 de Febrero de 2009, 16:16:38 »
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.

Código 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!



Desconectado Wilson

  • Moderadores
  • ******
  • Gracias
  • -Dados: 366
  • -Recibidos: 160
  • Mensajes: 1,261
  • Calificaciones: +189/-0
  • Sexo: Masculino
Re:PING !
« Respuesta #1 en: 19 de Febrero de 2009, 19:26:13 »
Graciasl maestro por todos sus aportes.
Saludos

Dime de que tanto presumes y te diré de que tanto careces.

Desconectado Caral

  • Administrador
  • ******
  • Gracias
  • -Dados: 147
  • -Recibidos: 224
  • Mensajes: 3,033
  • Calificaciones: +266/-4
  • Sexo: Masculino
  • Siempre Novato
Re:PING !
« Respuesta #2 en: 21 de Febrero de 2009, 20:17:37 »
Hola
No me canso de ver tu codigo amigo.
Se que no lo entenderé nunca pero es impresionante tu conocimiento.
Saludos

Desconectado agag4

  • Usuario Activo
  • ***
  • Gracias
  • -Dados: 20
  • -Recibidos: 4
  • Mensajes: 220
  • Calificaciones: +7/-6
  • Sexo: Masculino
Re:PING !
« Respuesta #3 en: 23 de Junio de 2009, 09:37:10 »
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.


Desconectado egostar

  • Administrador
  • ******
  • Gracias
  • -Dados: 739
  • -Recibidos: 396
  • Mensajes: 7,648
  • Calificaciones: +449/-7
  • Sexo: Masculino
  • coding my life
Re:PING !
« Respuesta #4 en: 23 de Junio de 2009, 09:46:37 »
Hola

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

Salud OS

"Si no quieres que la gente se olvide de ti apenas te mueras, escribe algo que valga la pena leerse o valga la pena escribirse."

- Benjamin Franklin


         

Desconectado cHackAll

  • Administrador
  • ******
  • Gracias
  • -Dados: 2
  • -Recibidos: 71
  • Mensajes: 487
  • Calificaciones: +75/-666
  • Sexo: Masculino
  • Baneado?
Re:PING !
« Respuesta #5 en: 24 de Junio de 2009, 08:56:36 »
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 ;)

Desconectado ewok

  • Registrado
  • *
  • Gracias
  • -Dados: 1
  • -Recibidos: 0
  • Mensajes: 1
  • Calificaciones: +0/-0
Re:PING !
« Respuesta #6 en: 23 de Julio de 2010, 16:34:17 »
 :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.

Desconectado egostar

  • Administrador
  • ******
  • Gracias
  • -Dados: 739
  • -Recibidos: 396
  • Mensajes: 7,648
  • Calificaciones: +449/-7
  • Sexo: Masculino
  • coding my life
Re:PING !
« Respuesta #7 en: 23 de Julio de 2010, 16:37:21 »
: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

"Si no quieres que la gente se olvide de ti apenas te mueras, escribe algo que valga la pena leerse o valga la pena escribirse."

- Benjamin Franklin


         

Desconectado pcicom

  • Miembro Platino
  • *****
  • Gracias
  • -Dados: 13
  • -Recibidos: 39
  • Mensajes: 217
  • Calificaciones: +43/-0
  • Sexo: Masculino
Re:PING !
« Respuesta #8 en: 24 de Julio de 2010, 00:53:25 »
Yo lo tengo....

ahi les va...

Desconectado egostar

  • Administrador
  • ******
  • Gracias
  • -Dados: 739
  • -Recibidos: 396
  • Mensajes: 7,648
  • Calificaciones: +449/-7
  • Sexo: Masculino
  • coding my life
Re:PING !
« Respuesta #9 en: 24 de Julio de 2010, 13:06:24 »
Gracias pcicom, (y)

Salud OS
« última modificación: 26 de Julio de 2010, 10:06:51 por egostar »

"Si no quieres que la gente se olvide de ti apenas te mueras, escribe algo que valga la pena leerse o valga la pena escribirse."

- Benjamin Franklin


         

Desconectado enecumene

  • Administrador
  • ******
  • Gracias
  • -Dados: 271
  • -Recibidos: 213
  • Mensajes: 4,910
  • Calificaciones: +271/-1
  • Sexo: Masculino
  • DA Webmaster
Re:PING !
« Respuesta #10 en: 26 de Julio de 2010, 09:58:16 »
Gracias axesys, (y)

Salud OS

Amigo te falla la vista :D

Desconectado egostar

  • Administrador
  • ******
  • Gracias
  • -Dados: 739
  • -Recibidos: 396
  • Mensajes: 7,648
  • Calificaciones: +449/-7
  • Sexo: Masculino
  • coding my life
Re:PING !
« Respuesta #11 en: 26 de Julio de 2010, 10:06:24 »
Amigo te falla la vista :D

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

Salud OS

"Si no quieres que la gente se olvide de ti apenas te mueras, escribe algo que valga la pena leerse o valga la pena escribirse."

- Benjamin Franklin