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> --

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> --

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> --

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 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> --
>>
>
>