DcXml Encoding options

[PedroAlex]

Roger,

DcXml it is a great tool and I use it very often.

sometimes I need to change the encoding.
however the function DC_XmlNode:WriteXML is predefined to use "windows-1252".

I sugest this improvement for this Method (if you agree):

Code: Select all

METHOD DC_XmlNode:WriteXML( cFileName, lCanon, lSuppressIndent, nOption )

LOCAL nHandle
nHandle := FCreate(cFileName)
IF nHandle <= 0
  RETURN .F.
ENDIF
IF nOption == 1
    FWrite(nHandle,'<?xml version="1.0" encoding="UTF-8"?>'+CRLF)
ELSE
	FWrite(nHandle,'<?xml version="1.0" encoding="windows-1252"?>'+CRLF)
ENDIF
::writeNode( nHandle,lCanon,lSuppressIndent)
FClose(nHandle)

RETURN .T.

Or you have another solution?

Thanks..

[rdonnay]

Yes, I agree.

I made the change to my source code.

BTW - The original code WAS UTF-8.

[messaoudlazhar]

I suggest function to this :

Code: Select all

METHOD DC_XmlNode:WriteXML( cFileName, lCanon, lSuppressIndent, cEncodage )

LOCAL nHandle
DEFAULT cEncodage TO 'UTF-8'
nHandle := FCreate(cFileName)
IF nHandle <= 0
  RETURN .F.
ENDIF
FWrite(nHandle,'<?xml version="1.0" encoding="'+cEncodage+'"?>'+CRLF)
::writeNode( nHandle,lCanon,lSuppressIndent)
FClose(nHandle)

RETURN .T.

[rdonnay]

That's better.