imagenes en XML desde fox

Hola como estas, espero te sirva

Local lfile,limage
Create Cursor Cimage (Cpicture m)
lfile=Strconv(Filetostr(Getfile('jpg')),13)
Insert Into Cimage (Cpicture) Values (lfile)
oXMLAdapter=Createobject('xmladapter')
With oXMLAdapter
.ReleaseXML(.T.)
.UTF8Encoded = .F.
.IsDiffGram = .F.
llIncludeBefore = .F.
llChangesOnly = .F.
llIsFile = .T.
lcSchemaLocation = ""
lcAlias='Cimage'
.AddTableSchema(lcAlias,.F.,Strconv(lcAlias,12,1033),Strconv("FoxData",12,1033),Strconv("",12,1034)) .ToXML("c:\demo.xml",lcSchemaLocation,llIsFile,llIncludeBefore,llChangesOnly)EndwithUse In CimageLocal lc_xml As Xmladapterlc_xml=Createobject('xmladapter')lc_xml.LoadXML("c:\demo.xml",.T.)lc_xml.Tables.Item(1).ToCursor()Select CimageStrtofile(Strconv(Cimage.Cpicture,14),'c:\imagexml.jpg')Use In CimageSaludos--________________________José G. Samper C.MCAD/MCSD/MCDBAhttp://www.FoxyNet.NetCaracas - Venezuela"Ricardo" escribió en el mensajenews: Hola a todos.> Estoy intentando montar un XML desde fox 6.0 para lo que estoy usando>> loxmldoc =CREATEOBJECT("msxml2.domdocument")>> loroot = loxmldoc.createelement("TITULO")> loxmldoc.documentElement = loroot>> loelement = loxmldoc.createelement("subtitulo")> loroot.appendchild(loelement)>> loelement1 = loxmldoc.createelement("tag...")> loelement1.nodetypedvalue = lcValor> loelement.appendchild(loelement1)>> Hasta aqui todo correcto, el problema viene cuando quiero inserta una> imagen (.JPG), y no se como montar el tag para que me monte la foto.>> Me ha comentado que debe estar en binario, eso tampoco lo he conseguido,> ya que al abrir el jpg con fOpen los caracteres no son recopnocidos o al> menos tambien me da un problema con las funciones que me baje desde aqui>> Si alguien pude ayudarme>> Muchas gracias de antamano>>> --> PortalFox :: Nada corre como un zorro> http://www.portalfox.com>> PortalFox - NNTP Forum Gateway> --