[delphi-br] função findfirst

Fri, 09 Apr 2010 11:25:58 -0700 

Bom dia nobres colegas.

 

Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no
banco firebird.

 

  if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then

  begin

    repeat

        DM.cds_TCM_A.Insert;

        dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name);

        //Incrementa número da página

        Inc(Pag);

        //Grava Número da página

        DM.cds_TCM_APAGINA.Text                 :=IntToStr(Pag);

        //Grava nome do arquivo

        DM.cds_TCM_ANOME_ARQUIVO.Text
:=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg';

        //Grava Caminho do Arquivo

        DM.cds_TCM_ACAMINHO.Text                :=Dir;

        //Grava sigla do documento

        DM.cds_TCM_ASIGLA_DOCUMENTO.Text
:=DM.cds_TCMSIGLA_DOCUMENTO.Text;

        //Grava Codigo entidade

        DM.cds_TCM_ACODIGO_ENTIDADE.Text
:=DM.cds_TCMCODIGO_ENTIDADE.Text;

        //Grava Cod. Unid. Administrativa

 
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA.
Text;

        //Grava Exercicio

        DM.cds_TCM_AEXERCICIO.Text              :=DM.cds_TCMEXERCICIO.Text;

        //Grava Unidade Gestora

        DM.cds_TCM_AUNIDADE_GESTORA.Text
:=DM.cds_TCMUNIDADE_GESTORA.Text;

        //Grava Nome Documento

        DM.cds_TCM_ANOME_DOCUMENTO.Text
:=DM.cds_TCMNOME_DOCUMENTO.Text;

        //Informa se arquivo foi digitalizado

        DM.cds_TCM_ADIGITAL.Text                :='1';

        //Informa o anexo do demonstrativo

        DM.cds_TCM_AANEXOS.Text
:=frmDigitalizaTCM.DBText5.Caption;

        DM.cds_TCM_A.Post;

        DM.cds_TCM_A.ApplyUpdates(0)

    until FindNext(Arq) <> 0;

          FindClose(Arq);

  end;

 

Porém, quando vou verificar a seqüência da pasta com a importação dos
arquivos no banco firebird, noto que alguns arquivos saem da ordem correta.

 

Será que a rotina acima está correta? Alguém poderia me dar uma dica?

 

Estou utilizando Firebird 2.1 e Delphi 7.

 

Abraços.

 

Ralp Alves

 

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a