Information générale
Catégorie:
Codage, syntaxe et commandes
Hello all,
How can remove the latest error from the AERROR() function ?
What I actually try to do is the following :
In a COM Server method I Have in the Error method the following code :
******** Error Method on the server
LPARAMETERS nError, cMethod, nLine
Local lcRetVal
lcRetVal = ALLTRIM(STR(nError)) + ": " + MESSAGE() + ;
" on Line " + ALLTRIM(STR(nLine))
COMRETURNERROR(cMethod, lcRetVal)
******** on the client
OX=CREATEOBJECT('MYSERVER.SERVER')
ON ERROR lerror = .T.
OX.TESR
X=AERROR(my_array)
IF X>0
MESSAGEBOX('CALL ADMIN')
MESSAGEBOX('' + my_array(1,2), 'CALL ADMIN')
endif
ON ERROR
The problem is that the AERROR always have the latest error and cannot be refreshed unless I exit VFP
The is any way to catch the OLE errors and show my own messages ?
Thanks in advance
Petros
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement