ler N arquivos XML com delphi
11/07/2019
0
Boa tarde.
Consigo pegar UM arquivo XML utilizando " OpenDialog.FileName := edit1.text"; e salvo as informações do XML no banco de dados, até ai tudo bem.
Porém preciso pegar DIVERSOS arquivos XML para fazer o mesmo processo. Como ficaria um loop para ler todos os arquivos?
Abs!
Consigo pegar UM arquivo XML utilizando " OpenDialog.FileName := edit1.text"; e salvo as informações do XML no banco de dados, até ai tudo bem.
Porém preciso pegar DIVERSOS arquivos XML para fazer o mesmo processo. Como ficaria um loop para ler todos os arquivos?
Abs!
Gxf
Curtir tópico
+ 0
Responder
Post mais votado
12/07/2019
De uma olhada neste link https://www.devmedia.com.br/quick-tip-listar-arquivos-de-um-diretorio/15724
Basicamente você deve ler todos os arquivos da pasta e adicionar a um TStringList, TStrings, etc... (da forma que achar melhor, mas precisa ser uma lista)
depois percorre a Lista e vai salvando no seu banco de dados.
Basicamente você deve ler todos os arquivos da pasta e adicionar a um TStringList, TStrings, etc... (da forma que achar melhor, mas precisa ser uma lista)
depois percorre a Lista e vai salvando no seu banco de dados.
Rafael Bosco
Responder
Mais Posts
17/07/2019
Gxf
Consegui colocar os arquivos no memo utilizando:
Porém não consegui implementar 100% para ler a lista e inserir no banco, esta inserindo o mesmo item e ocorre "primary key"
for i:= 0 to opendialog1.Files.count-1 do Memo1.Lines.Add(ExtractFileName(OpenDialog1.Files.Strings[i]));
Porém não consegui implementar 100% para ler a lista e inserir no banco, esta inserindo o mesmo item e ocorre "primary key"
Responder
Clique aqui para fazer login e interagir na Comunidade :)