Exportar para XML
Olá caros colegas Delphianos,
Através de um exemplo vou resumir a minha dúvida e orar a Deus pra que um de vcs possam me ajugar.
Tenho uma tabela com os campos, Nome, CPF, RG, DataNascimento, Comissao e Observacao, respectivamentes dos tipos: Texto, Texto, Texto, Data, Numeric e Memo.
Quando realizo uma determinada consulta, nesta tabela de aproximadamente 500 registros, ficarão em exibição aproximadamente 30 registros.
Eu os transfiro para uma tabela com a mesma especificação e dela preciso criar um arquivo XML pra enviar por e-mail para uma outra empresa. Feito isso eu apago todos os registros desta segunda tabela...
Tudo aí eu já sei como fazer, com exceção de como converter os 30 registros em XML.
Alguém aí pode me ajudar???
Neste sistema está sendo usado Delphi 7, Query e Paradox.
Certo da atenção e solidariedade de todos, agradeço em nome de Jesus.
Através de um exemplo vou resumir a minha dúvida e orar a Deus pra que um de vcs possam me ajugar.
Tenho uma tabela com os campos, Nome, CPF, RG, DataNascimento, Comissao e Observacao, respectivamentes dos tipos: Texto, Texto, Texto, Data, Numeric e Memo.
Quando realizo uma determinada consulta, nesta tabela de aproximadamente 500 registros, ficarão em exibição aproximadamente 30 registros.
Eu os transfiro para uma tabela com a mesma especificação e dela preciso criar um arquivo XML pra enviar por e-mail para uma outra empresa. Feito isso eu apago todos os registros desta segunda tabela...
Tudo aí eu já sei como fazer, com exceção de como converter os 30 registros em XML.
Alguém aí pode me ajudar???
Neste sistema está sendo usado Delphi 7, Query e Paradox.
Certo da atenção e solidariedade de todos, agradeço em nome de Jesus.
Pro-luck
Curtidas 0
Respostas
Marco Salles
10/05/2009
Sugiro o seguinte ( alem de ter outra maneira usando oXmlDociument)
1) Criar um ArquivoXML Puro e Vazio
não esqueça que é [b:0c0fa69fed]casesentive[/b:0c0fa69fed]
2)Usar o XML Mapper ( Para Obter o ToDp.xtr ToXml.xtr
PS) De todos os Artigos que ja li recomento a respeito desta transformaçã
a edição 100 da Clube delphi ( Pela simplicidade como o Autor faz
estas Transformações))) O Autor so não comenta que ,antes da
Transformar deve fazer , definir ou Redefinir os Tipos dos campos
Mas isto pode ser visto no Video do Ghinter ( Free se não me engano)
3)De posse do XmlPuro , ToDp.xtr e ToXml.xtr seus problemas
praticamente zeraram
coloque No form :
um Cds um XMLTransformProvider1
Faça as Ligaçoes devidas .. conforme o Arquivo DFM Abaixo :
Na Hora da execução :
Percorra cada um dos trinta registros Registros salvando no Cds
While enquanto nçao for fim da tabela
cds Recebe os dados
post
end;
e no final de um ApplayUpdates no cds
O ArqXml que estava Puro agora estara com os Trinta Registros
Acionados
Preste Atenção... Neste processo esta se obtendo [b:0c0fa69fed]Um Xml que
não é o Xml no Formato DataPacker[/b:0c0fa69fed] ( exclusivo do delphi)
Se tiver dificuldade em Obter o ToDp.xtr ToXml.xtr aproveite que
ainda esta na memoria do meu Pc .... dentro de poucos vai para
a lixeira. Ok
1) Criar um ArquivoXML Puro e Vazio
<?xml version=´1.0´ encoding=´UTF-8´?>
<TabelasDeQue>
<Tabela Nome=´´>
<Cpf></Cpf>
<Rg></Rg>
<DataNascimento></DataNascimento>
<Comissao></Comissao>
<Observacao></Observacao>
</Tabela>
</TabelasDeQue>
não esqueça que é [b:0c0fa69fed]casesentive[/b:0c0fa69fed]
2)Usar o XML Mapper ( Para Obter o ToDp.xtr ToXml.xtr
PS) De todos os Artigos que ja li recomento a respeito desta transformaçã
a edição 100 da Clube delphi ( Pela simplicidade como o Autor faz
estas Transformações))) O Autor so não comenta que ,antes da
Transformar deve fazer , definir ou Redefinir os Tipos dos campos
Mas isto pode ser visto no Video do Ghinter ( Free se não me engano)
3)De posse do XmlPuro , ToDp.xtr e ToXml.xtr seus problemas
praticamente zeraram
coloque No form :
um Cds um XMLTransformProvider1
Faça as Ligaçoes devidas .. conforme o Arquivo DFM Abaixo :
object cds: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = ´XMLTransformProvider1´
Left = 232
Top = 48
end
object XMLTransformProvider1: TXMLTransformProvider
TransformRead.TransformationFile = ´C:\zPodeApagar\zzzzzzzzAjuda_Pro_Look\Pro_LookToDp.xtr´
TransformWrite.TransformationFile = ´C:\zPodeApagar\zzzzzzzzAjuda_Pro_Look\Pro_LookToXml.xtr´
XMLDataFile = ´C:\zPodeApagar\zzzzzzzzAjuda_Pro_Look\xmpPuroProLuk.xml´
Left = 208
Top = 112
end
Na Hora da execução :
Percorra cada um dos trinta registros Registros salvando no Cds
While enquanto nçao for fim da tabela
cds Recebe os dados
post
end;
e no final de um ApplayUpdates no cds
O ArqXml que estava Puro agora estara com os Trinta Registros
Acionados
Preste Atenção... Neste processo esta se obtendo [b:0c0fa69fed]Um Xml que
não é o Xml no Formato DataPacker[/b:0c0fa69fed] ( exclusivo do delphi)
Se tiver dificuldade em Obter o ToDp.xtr ToXml.xtr aproveite que
ainda esta na memoria do meu Pc .... dentro de poucos vai para
a lixeira. Ok
GOSTEI 0
Pro-luck
10/05/2009
Olá parceiro,
Te peço que me envie o ToDp.xtr ToXml.xtr.
Obrigado!!!
Te peço que me envie o ToDp.xtr ToXml.xtr.
Obrigado!!!
GOSTEI 0