imagenes en XML desde fox

Gracias José


Saludos,

Ana
www.amby.net

"José G. Samper" escribió en el mensaje
news:

Hola Ana tambien tienes el de Victor espina

Parser para XML hecho en VFP v2.0

http://victorespina.coolfreepages.c...lang%3Desp

Saludos


________________________
José G. Samper C.
MCAD/MCSD/MCDBA
http://www.FoxyNet.Net
Caracas - Venezuela

"Ana María Bisbé York" escribió en el mensaje
news:
> Gracias LuisMa, a ver si se puede por aquí, y miraremos también en el
> libro
> que se muestra en el enlace Internet Applications with FoxPro 6.0
>
>
> Saludos,
>
> Ana
> www.amby.net
>
> "Luis María Guayán" escribió en el mensaje
> news:
>> Ana, mira si esta clase free de Rick Strahl te sirve (no recuerdo para
>> que
>> versión de VFP es)
>>
>> http://www.west-wind.com/wwXml.asp
>>
>>
>> Luis María Guayán
>> Tucumán, Argentina
>> ________________________________
>> SysOp de www.PortalFox.com
>> Microsoft Visual FoxPro MVP
>> ________________________________
>> La palabra imposible solo figura
>> en el diccionario de los tontos
>>
>>
>>
>> "Ana María Bisbé York" escribió en el

mensaje

>> news:OtJ8t%
>> > Hola José:
>> >
>> > Esta variante no vale, se trata de versión VFP 6.0, ¿tienes algo para
> llegar
>> > a un XML desde VFP 6.0?
>> >
>> >
>> > Saludos,
>> >
>> > Ana
>> > www.amby.net
>> >
>> > "José G. Samper" escribió en el mensaje
>> > news:%
>> >> 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,10

>> > 33),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> --
>> >>
>> >
>> >
>>
>>
>
>

hola de nuevo
He intentado con las formas siguiente, es decir , con lo que esta como
comentario y lo que esta

*!* - <!-- 20. Foto (la que el tasador considera más representativa, sólo
una, aunque en el informe haya más).

*!* pp=strconv(filetostr(Getfile('jpg')),2)
*!* lcValor = "RICARDO"
*!* for ind = 1 to len(alltrim(pp))
*!* lcValor = lcValor + substr(pp,ind,1)
*!* next


Create Cursor Cimage (Cpicture m)
lfile=Filetostr(Getfile('jpg'))
Insert Into Cimage (Cpicture) Values (lfile)



loelement1 = loxmldoc.createelement("Foto_20")
loelement1.nodetypedvalue =cImage.cPicture
loelement.appendchild(loelement1)

y lo me presenta en el XML es:

<Foto_20>ÿØÿà</Foto_20>

Estoy buscando ahora tambien si hay alguna forma de cambiar los atributos
del no d haber si por ahi hay solucion

Muchas gracias a todos



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola Ricardo:

Por lo que sé y leí, no podés poner el contenido de un archivo binario (BMP,
JPG o lo que sea) directamente en el XML. Primero tenés que convertirlo a un
string en base 64.

Saludos,

Fernando D. Bozzo
VFP6/SP5
Madrid/España

Recomendación:
Lea estos grupos de noticias con un cliente de newsgroup como Outlook
Express, este artículo lo guiará para configurarlo rápidamente:
http://www.panoramabox.com/GoPub.aspx?IdObj$47


"Ricardo" escribió en el mensaje
news:#

hola de nuevo
He intentado con las formas siguiente, es decir , con lo que esta como
comentario y lo que esta

*!* - <!-- 20. Foto (la que el tasador considera más representativa, sólo
una, aunque en el informe haya más).

*!* pp=strconv(filetostr(Getfile('jpg')),2)
*!* lcValor = "RICARDO"
*!* for ind = 1 to len(alltrim(pp))
*!* lcValor = lcValor + substr(pp,ind,1)
*!* next


Create Cursor Cimage (Cpicture m)
lfile=Filetostr(Getfile('jpg'))
Insert Into Cimage (Cpicture) Values (lfile)



loelement1 = loxmldoc.createelement("Foto_20")
loelement1.nodetypedvalue =cImage.cPicture
loelement.appendchild(loelement1)

y lo me presenta en el XML es:

<Foto_20>ÿØÿà</Foto_20>

Estoy buscando ahora tambien si hay alguna forma de cambiar los atributos
del no d haber si por ahi hay solucion

Muchas gracias a todos



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway