Código: Selecionar todos
C:\xHWGUI\XHARBOUR\bin\harbour.exe -iinclude;C:\xHWGUI\XHARBOUR\include -n -q0 -w -es2 -gc0 source\errorsys.prg -oobj\b32\errorsys.c
source\errorsys.prg(80) Warning W0001 Ambiguous reference: 'CLOGFILE'
source\errorsys.prg(82) Warning W0001 Ambiguous reference: 'CLOGFILE'
source\errorsys.prg(84) Warning W0001 Ambiguous reference: 'CLOGFILE'
source\errorsys.prg(186) Warning W0001 Ambiguous reference: 'ODLGHABLA'
source\errorsys.prg(189) Warning W0001 Ambiguous reference: 'AFILES'
source\errorsys.prg(190) Warning W0001 Ambiguous reference: 'AFILES'
Olá Marcos,marcos.gurupi escreveu:Leonardo ao tentar compilar com xhb 1.0 hwgui 2.17 ocorreu os seguintes erros:
Olá Asimões,asimoes escreveu:Verificando o arquivo errorsys.prg que você anexou focaram faltando algumas funções:
MyExitProc2()
inetestaconectada()
Fim_Run()
MsgRun()
Código: Selecionar todos
*********************
FUNCTION MsgRun(cMsg)
*********************
PRIVATE oTimHabla
if cMsg=Nil
cMsg:="Aguarde em processamento...."
endif
INIT DIALOG oDlgHabla TITLE "Processando..." NOEXIT NOEXITESC;
AT 0,0 SIZE 485,80 ;
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU;
COLOR Rgb(255, 255, 255)
@ 45,20 SAY oTimHabla CAPTION cMsg SIZE 465,20;
FONT HFont():Add( "Arial", 0 ,-15,550,255 );
BACKCOLOR Rgb(255, 255, 255)
ACTIVATE DIALOG oDlgHabla NOMODAL
Return Nil
****************
Function Fim_Run
****************
IF oDlgHabla#NIL
oDlgHabla:CLOSE()
ENDIF
Return Nil
Código: Selecionar todos
#include "common.ch"
#include "error.ch"
#include "windows.ch"
#include "guilib.ch"
STATIC LogInitialPath := ""
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
PROCEDURE ErrorSys
ErrorBlock( { | oError | DefError( oError ) } )
LogInitialPath := "\" + CurDir() + IIf( Empty( CurDir() ), "", "\" )
RETURN
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION DefError( oError )
LOCAL cDOSError
LOCAL n
PRIVATE cMESSAGE, cNOME:=DTOS(DATE())+StrTran( TIME(), ":", "_")+".log"
IF oError:genCode == EG_ZERODIV
RETURN 0
ENDIF
IF oError:genCode == EG_OPEN .AND. ;
oError:osCode == 32 .AND. ;
oError:canDefault
NetErr( .T. )
RETURN .F.
ENDIF
IF oError:genCode == EG_APPENDLOCK .AND. ;
oError:canDefault
NetErr( .T. )
RETURN .F.
ENDIF
cMessage := ErrorMessage( oError )
IF ! Empty( oError:osCode )
cDOSError := "(DOS Error " + LTrim( Str( oError:osCode ) ) + ")"
ENDIF
IF ! Empty( oError:osCode )
cMessage += " " + cDOSError
ENDIF
n := 2
WHILE ! Empty( ProcName( n ) )
#ifdef __XHARBOUR__
cMessage += Chr( 13 ) + Chr( 10 ) + "Called from " + ProcFile( n ) + "->" + ProcName( n ) + "(" + AllTrim( Str( ProcLine( n ++ ) ) ) + ")"
#else
cMessage += Chr( 13 ) + Chr( 10 ) + "Called from " + ProcName( n ) + "(" + AllTrim( Str( ProcLine( n ++ ) ) ) + ")"
#endif
ENDDO
cMessage += Chr( 13 ) + Chr( 10 )
cMessage += Chr( 13 ) + Chr( 10 ) + 'Data e Hora........: ' + dtoc( date() ) + " - " + time()
cMessage += Chr( 13 ) + Chr( 10 ) + 'Empresa............: ' + "empresa"
cMessage += Chr( 13 ) + Chr( 10 ) + 'Sistema/Atualizacao: ' + "sistema"
cMessage += Chr( 13 ) + Chr( 10 ) + 'Usuario do Sistema.: ' + netname(.t.)
cMessage += Chr( 13 ) + Chr( 10 ) + 'Nome do Executavel.: ' + hb_cmdargargv()
cMessage += Chr( 13 ) + Chr( 10 ) + 'Nome do Micro......: ' + netname() + " - Nome Usuario.: "+ netname(.t.)
cMessage += Chr( 13 ) + Chr( 10 ) + 'Memoria Disponivel.: ' + alltrim(str( Memory(0) )) + ' - Espaço em Disco....: ' + alltrim(str( DiskSpace() ))
cMessage += Chr( 13 ) + Chr( 10 ) + 'Pasta de Diretorio.: ' + curdir()
cMessage += Chr( 13 ) + Chr( 10 ) + 'Sistema Operacional: ' + os()
cMessage += Chr( 13 ) + Chr( 10 ) + 'Versão xHarbour..: ' + hwg_version( 1 )
IF MSGYESNO([Encontrado erro no sistema, Voce deseja encerrar o programa],[Por favor Atenção])
MemoWrit( LogInitialPath + cNOME, cMessage )
ErrorPreview( cMessage )
EndWindow()
ENVIA_ERRO( cNOME )
QUIT
ELSE
MemoWrit( LogInitialPath + cNOME, cMessage )
ErrorPreview( cMessage )
EndWindow()
PostQuitMessage( 0 )
ENVIA_ERRO( cNOME )
ENDIF
RETURN .F.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION ErrorMessage( oError )
cMessage := IIf( oError:severity > ES_WARNING, "Error", "Warning" ) + " "
IF ISCHARACTER( oError:subsystem )
cMessage += oError:subsystem()
ELSE
cMessage += "???"
ENDIF
IF ISNUMBER( oError:subCode )
cMessage += "/" + LTrim( Str( oError:subCode ) )
ELSE
cMessage += "/???"
ENDIF
IF ISCHARACTER( oError:description )
cMessage += " " + oError:description
ENDIF
DO CASE
CASE ! Empty( oError:filename )
cMessage += ": " + oError:filename
CASE ! Empty( oError:operation )
cMessage += ": " + oError:operation
ENDCASE
RETURN cMessage
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION hwg_WriteLog( cText, fname )
LOCAL nHand
fname := LogInitialPath + IIf( fname == Nil, "a.log", fname )
IF ! File( fname )
nHand := FCreate( fname )
ELSE
nHand := FOpen( fname, 1 )
ENDIF
FSeek( nHand, 0, 2 )
FWrite( nHand, cText + Chr( 10 ) )
FClose( nHand )
RETURN nil
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION ErrorPreview( cMess )
LOCAL oDlg, oEdit
INIT DIALOG oDlg TITLE "Erro No Sistema " ;
ICON HIcon():AddResource(1004) ;
AT 0,0 SIZE 500,500 ;
FONT HFont():Add( '',0,-13,400,,,) CLIPPER NOEXIT ;
STYLE DS_CENTER +WS_SYSMENU+WS_VISIBLE
@ 10, 10 EDITBOX oEdit CAPTION cMess SIZE 480, 400 STYLE WS_VSCROLL + WS_HSCROLL + ES_MULTILINE + ES_READONLY ;
COLOR 255 FONT HFont():Add( '',0,-11,400,,,) ;
ON GETFOCUS { || SendMessage( oEdit:handle, EM_SETSEL, 0, 0 ) }
@ 390,420 BUTTONEX "Fechar" ON CLICK { || enddialog() } SIZE 100, 38 ;
BITMAP (HBitmap():AddResource(1005)):handle ;
TOOLTIP 'Clique aqui para Fechar'
oDlg:Activate()
RETURN Nil
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Function ENVIA_ERRO()
LOCAL oSmtp, oEMail
LOCAL cSmtpUrl
LOCAL cSubject, cFrom, cTo, cBody, cFile
cSmtpUrl := "smtp://meuemail:senha@smtp.mail.yahoo.com.br"
cFrom := "meuemail@yahoo.com.br"
cTo := "meuemail@ymail.com"
cSubject := [Envio de erro]
cFile := cNOME
cBody := [Envio de erro]
oEMail := TIpMail():new()
oEMail:setHeader( cSubject, cFrom, cTo )
oEMail:setBody( cBody )
oEMail:attachFile( cFile )
oEMail:hHeaders[ "Disposition-Notification-To" ] := cFrom
oSmtp := TIpClientSmtp():new( cSmtpUrl )
IF oSmtp:open()
oSmtp:sendMail( oEMail )
oSmtp:close()
MSGINFO( [E-Mail enviado] )
ELSE
MSGINFO( "Erro:", oSmtp:lastErrorMessage() )
ENDIF
RETURN Nil
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
)