ler N arquivos XML com delphi
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
Curtidas 0
Melhor post
Rafael Bosco
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.
GOSTEI 1
Mais Respostas
Gxf
11/07/2019
Algm poderia me ajudar?
GOSTEI 0
Gxf
11/07/2019
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"
GOSTEI 0