Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error in executable gcErrMsg is not found
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01144854
Message ID:
01144895
Vues:
10
I now have a bigger problem. My task was to enhance the Error reporting of the application. From IDE I receive nice long reports, from WE I receive one line
* Batch Services (C:\MMVisCollect) Errors:


Here is some code in Error method. Do you see what could be wrong?
lparameters nError, cMethod, nLine
local lcError, lcPicFile, lcMessage, loApplication
local laError[1]

thisform.IsError = .t.
lcPicFile = sys(5) + curdir() + "\graphics\Alert.gif"
if file(m.lcPicFile) and type('thisform.Image1') = "O"
	thisform.Image1.picture = m.lcPicFile
endif
if type('Thisform.cntProcess.cmdStop')= "O"
	thisform.cntProcess.cmdStop.click()
endif

lcError = "*  Batch Services (" + alltrim(thisform.cPath) + ") Errors: " 

if vartype(m.gcErrMsg) = "C"
	if empty(m.gcErrMsg)
		gcErrMsg = message()
	endif
	lcMessage = m.gcErrMsg
else
	lcMessage = message()
endif

=aerror(laError)
lcError = m.lcError + chr(13) + thisform.cProcessInfo + chr(13) + ;
	" Method : " + m.cMethod + chr(13) + ;
	" Line : " + alltrim(str(m.nLine)) + chr(13) + ;
	" Error : " + chr(13) + alltrim(m.lcMessage) + chr(13) + ;
	[ Error from aError: ] + alltrim(str(laError[1])) + ", " + ;
	[ aError Message: ] + alltrim(laError[2]) + chr(13) 	
>Did you check error handler memory dump?
>
>>I have an application that has a main program and a form. In the Init of the form several global variables defined (this is not my application, BTW) including gcErrMsg. The application works fine if called from main program or from IDE, but bombs out with an error "variable gcErrMsg is not found" if called from Windows Explorer.
>>
>>I'm not sure how can I find our why it bombs since it works in IDE.
>>
>>Any ideas?
>>
>>Thanks in advance.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform