Harbour Exception
Posted: Fri Apr 25, 2008 1:23 pm
Estoy usando harbour con fwh 0710 para envio de mail
Cuando lo he cambiado de un server con w2000 a un server con w2003
estoy teniendo errores de harbour exception de forma aleatoria
No he llegado a saber por que se producen
He observado que mientras no responda al mensaje el programa sigue funcionando y cuando respondo termina
Alguien sabe como lo puedo quitar estos mensajes ???
No se si la imagen esta bien puesta
[img]http://c:\harbour_exception.jpg[/img]
Este es parte del programa
El error lo da en ACTIVATE WINDOW oWnd ICONIZED
//----------------------------------------------------------------------------//
// FiveWin - Windows MAPI (mail services) support demonstration
//----------------------------------------------------------------------------//
#include "FiveWin.ch"
#include "Mail.ch"
//----------------------------------------------------------------------------//
FUNCTION Main()
SET DATE BRITISH
ERRORBLOCK()
DEFINE WINDOW oWnd TITLE "Correo AS/400"
DEFINE TIMER oTmr INTERVAL 30000 ACTION VeSiMail() OF oWnd
@ 0, 0 BITMAP FILENAME "MAIL400.BMP" SIZE 550, 300 OF oWnd
SET MESSAGE OF oWnd TO "(c) J.M.A. 18/04/2008"
ACTIVATE TIMER oTmr
SYSWAIT(2)
ACTIVATE WINDOW oWnd ICONIZED
SYSWAIT(5)
RETURN nil
//----------------------------------------------------------------------------//
Saludos y gracias
Cuando lo he cambiado de un server con w2000 a un server con w2003
estoy teniendo errores de harbour exception de forma aleatoria
No he llegado a saber por que se producen
He observado que mientras no responda al mensaje el programa sigue funcionando y cuando respondo termina
Alguien sabe como lo puedo quitar estos mensajes ???
No se si la imagen esta bien puesta
[img]http://c:\harbour_exception.jpg[/img]
Este es parte del programa
El error lo da en ACTIVATE WINDOW oWnd ICONIZED
//----------------------------------------------------------------------------//
// FiveWin - Windows MAPI (mail services) support demonstration
//----------------------------------------------------------------------------//
#include "FiveWin.ch"
#include "Mail.ch"
//----------------------------------------------------------------------------//
FUNCTION Main()
SET DATE BRITISH
ERRORBLOCK()
DEFINE WINDOW oWnd TITLE "Correo AS/400"
DEFINE TIMER oTmr INTERVAL 30000 ACTION VeSiMail() OF oWnd
@ 0, 0 BITMAP FILENAME "MAIL400.BMP" SIZE 550, 300 OF oWnd
SET MESSAGE OF oWnd TO "(c) J.M.A. 18/04/2008"
ACTIVATE TIMER oTmr
SYSWAIT(2)
ACTIVATE WINDOW oWnd ICONIZED
SYSWAIT(5)
RETURN nil
//----------------------------------------------------------------------------//
Saludos y gracias