Estou fazendo a integração de um sistema com um arquivo bancário, e estou tendo um problema no processo. Recebo da operadora de cartão de crédito um arquivo de texto puro com aproximadamente 1300Kb e cerca de 5.500 linhas.
Estou fazendo a leitura deste arquivo e armazenando em um ClientDataSet
, apenas em memória, não insiro no banco de dados em momento algum. No entanto estou achando que o processo de leitura está muito lento, uma vez que estou conseguindo gravar a uma taxa de cerca de apenas 13 linhas por segundo, não tenho muito experiência com ClientDataSet
e não sei se está taxa está aceitável.
Para ler o arquivo eu importo o arquivo de texto para uma StringList
, em seguida faço um loop com base na quantidade de linhas do arquivo, importando cada tipo de registro para o seu respectivo ClientDataSet
(Dentro do arquivo podem ter 9 tipos de registros diferentes, e cada um coloco em um ClientDataSet
diferente).
Loop no arquivo:
EnableDisableControls(False);
{ Percorre todas as linhas do arquivo verificando o tipo e executando uma rotina para cada tipo de registro. }
for I := 0 to (Extrato.Count - 1) do
begin
CurrentLine := I;
case StrToInt(Copy(Extrato.Strings[I], 01, 01)) of
0: LerHeader;
1: LerRegistroDetalheRO; //Resumo de Operação
2: LerRegistroDetalheCV; //Comprovante de Venda
3: LerRegistroDetalheIDROSA; //Informativo detalhe do RO do Saldo em Aberto
4: LerRegistroDetalheIBSA; //Informativo por bandeira do Saldo em Aberto
5: LerRegistroDetalheIOAR; //Informativo de Operação de Antecipação de Recebíveis
6: LerRegistroDetalheIRODA; //Informações de RO da data antecipada
7: LerRegistroDetalheIDRODA; //Informações de débitos de ROs da data antecipada
9: LerTrailer;
end;
end;
{ Reativar todos os controles após a inserção. }
EnableDisableControls(True);
Caso o registro seja do tipo 2, por exemplo, chamo a respectiva procedure de gravação no ClientDataSet
:
procedure ThreadProcessarExtrato.LerRegistroDetalheCV;
begin
with FrmExtratoEletronicoCielo, Extrato, DSDetalheCV.DataSet do
begin
Insert;
FieldByName('TIPO_REGISTRO').AsString := Copy(Strings[CurrentLine], 001, 1);
FieldByName('ESTAB_SUBMISSOR').AsString := Copy(Strings[CurrentLine], 002, 10);
FieldByName('NUMERO_RO').AsString := Copy(Strings[CurrentLine], 012, 7);
FieldByName('NUMERO_CARTAO').AsString := Copy(Strings[CurrentLine], 019, 19);
...
...
...
//Aqui existem muitos outros campos que são atribuídos, retirei para ficar menor...
...
...
...
Post;
Inc(TotalRegistrosCV);
end;
end;
Então, alguma idéia de como agilizar este processo? Ou uma maneira melhor de realizar este processo?
Append
ao invés deInsert
seja mais rápido. Você pode efetuar váriosAppend´s
e só darPost
no final. Ainda, fora isso, você pode tentar diminuir a quantidade de uso deFieldByName
.TextFile
eu acredito que seja mais rápido.