Local loException,rdr,hnd
try

	rdr = CreateObject("MSXML2.SAXXMLReader.4.0")
	hnd = CreateObject("_XMLValidator")


	rdr.errorHandler = hnd
	
	* Valid XML
	rdr.parse("<catalog><book id='bk101'></book></catalog>")
	=MessageBox("Valid XML")

	* Invalid XML
	rdr.parse("<catalog><book id='bk101'></book></cataloge>")
	=MessageBox("Invalid XML. This message should never appear.")

Catch to loException
	=MessageBox(;
			Ltrim(Str(loException.ErrorNo))+;
			loException.Message+;
			Iif(IsNull(loException.Details),""," "+loException.Details))
Finally
EndTry

Define Class _XMLValidator as custom
	IMPLEMENTS IVBSAXErrorHandler IN {F5078F18-C551-11D3-89B9-0000F81FE221}# 4 . 0  
&&"c:\windows\system32\msxml4.dll"

**** IVBSAXErrorHandler
	PROCEDURE IVBSAXErrorHandler_error(;
             oLocator AS VARIANT, strErrorMessage AS STRING @, nErrorCode AS Number) AS VOID;
 	HELPSTRING "Receive notification of a recoverable error."
	* add user code here
		=MessageBox("Error")
	ENDPROC

	PROCEDURE IVBSAXErrorHandler_fatalError(;
             oLocator AS VARIANT, strErrorMessage AS STRING @, nErrorCode AS Number) AS VOID;
 	HELPSTRING "Receive notification of a non-recoverable error."
	* add user code here
		=MessageBox("Fatal Error")
	ENDPROC

	PROCEDURE IVBSAXErrorHandler_ignorableWarning(;
             oLocator AS VARIANT, strErrorMessage AS STRING @, nErrorCode AS Number) AS VOID;
             HELPSTRING "Receive notification of an ignorable warning."
	* add user code here
		=MessageBox("Ignorable Warning")
	ENDPROC
ENDDEFINE

rdr.parse("<catalog><book id='bk101'></book></cataloge>")

*****	hnd = CreateObject("_XMLValidator")
	hnd = CreateObject("MSXML2.MXXMLWriter.4.0")