11 replies to this topic

[cHackAll]

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

function GetIpErrorString(ErrorCode: Cardinal; Buffer: PWideChar; var Size: Integer): Cardinal; stdcall external 'iphlpapi';
function MessageBoxTimeoutW(hWnd: Cardinal; lpText, lpCaption: PChar; uType, wLanguageId, dwMilliseconds: Cardinal): Cardinal; stdcall external 'user32';
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!

Attached Files

•  ping.rar   2.17KB   63 downloads

[Wilson]

Graciasl maestro por todos sus aportes.
Saludos

[Caral]

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

[agag4]

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.

[egostar]

Hola

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

Salud OS

[cHackAll]

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

[ewok]

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.

[egostar]

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

[pcicom]

Yo lo tengo....

ahi les va...

[egostar]

Gracias pcicom,

Salud OS

[enecumene]

Gracias axesys,

Salud OS

Amigo te falla la vista

[egostar]

Amigo te falla la vista

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

Salud OS