FiveTech Support Forums

estoy intentando usar un prg que me facilito theFull para convertir de utf8
a ANSI el cual baje de este link

http://kevincarmody.com/misc/unicodeconvert.prg

cData := U8ToUni( cTextUTF8, 1 ) / Convertimos UTF-8 a ANSI /

Y al reves;
UNITOU8( cTextAnsi )

este prg usa una función ASCPOS()
que no la tiene el unicodeconvert.prg
donde la puedo conseguir ?.

Gracias por la colaboración prestada.

mag071 wrote:estoy intentando usar un prg que me facilito theFull para convertir de utf8
a ANSI el cual baje de este link
http://kevincarmody.com/misc/unicodeconvert.prg

cData := U8ToUni( cTextUTF8, 1 ) /* Convertimos UTF-8 a ANSI */

Y al reves;
UNITOU8( cTextAnsi )

este prg usa una función ASCPOS()
que no la tiene el unicodeconvert.prg
donde la puedo conseguir ?.

Gracias por la colaboración prestada.

Creo que es una funcion de las CTTOOLS.
Enlaza la libreria CT de Harbour, y ya esta.

Holas,

alguien tiene funcionando esto con xharbour

saludos

Marcelo

Marcelo

prueba con las funciones hb_utf8tostr() y hb_strtoutf8()

Gracias Daniel,

casi casi, hay algun caracter que se queda al inicio del archivo, pero eso se puede solucionar, gracias

saludos

Marcelo

Daniel Garcia-Gil wrote:Marcelo

prueba con las funciones hb_utf8tostr() y hb_strtoutf8()

Hola

Tengo un problema con la letra Ñ, al generar un XML con este caracter y enviarlo al webservice me devuelve la respuesta de que ha encontrado un caracter invalido, pero si ese mismo xml, lo envio por SOAPUI lo valida bien y me devuelve la respuesta que necesito.,

//aca genera el xml
cXmlbody2:=GXML1(td,x_nnro,ts_token)
if .not.cxmlbody2
return .f.
endif
mtipo:='Z'
cFxml=cpsve1+'\'+mtipo+strzero(x_nnro,6)+'.XML'
cText:=memoread(cFxml)
//verifica si esta activo el servidor
ohttp:=tipclienthttp():new(ts_servidor)
if .not. ohttp:open()
msgstop('Servidor Web '+ts_servidor,'Fuera de Servicio')
return .f.
endif
?ctext
//aca ya esta generado el xml que tambien envio por SOAPUI y este lo valida bien


doc = CreateObject( "MSXML2.DOMDocument" )
ohttp = CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "POST" , ts_servidor , .F. )
ohttp:SetRequestHeader( "SOAPAction" , "visarDocumento" )
ohttp:SetRequestHeader( "Content-Type" , "text/xml" )
doc:LoadXML( ctext )
ohttp:Send( doc:xml )
response = ohttp:responseText

//aca me responde lo siguiente

//XMLStreamException: ERROR at line:31 col:45 got character[0] expected a valid XML character

?response