Invalid pointer operation ao salvar arquivo grande

Delphi

26/03/2012

Nobres colegas, já pesquisei e tentei de tudo, porém, ainda não consegui resolver meu problema.

Tenho esta rotina para importar um arquivo PDF para ser salvo em meu banco Firebird 2.5/com delphi 7.

A primeira ve ele salva o arquivo corretamente, mais a partir da segunda vez que tento importar outro arquivo da o erro de Invalid pointer operation

procedure TfrmTCEMA.AdvGlowButton4Click(Sender: TObject);
var
  LPDFDocument: TgtPDFDocument;
  LFileList: TStringList;
  i: Integer;
begin
  DelArq(*.pdf, C:\Merge);
  if (FolderDialog1.execute) then
  begin
    try
      LPDFDocument := TgtPDFDocument.Create(nil);
      LFileList := TStringList.Create;
      for i := 0 to FolderDialog1.Files.Count - 1 do
      begin
        LFileList.Add(FolderDialog1.Files[i]);
      end;

      if FolderDialog1.Files.Count > 1 then
      begin
        LPDFDocument.Mergedocs(LFileList);
        LPDFDocument.SaveToFile(C:\Merge\ + dm.cds_A1M1_2CODIGO_MA.Text + .pdf);
        Screen.Cursor := crSqlWait;
        DM.cds_A1M1_2.Edit;
        DM.cds_A1M1_2PDF.LoadFromFile(C:\Merge\ + dm.cds_A1M1_2CODIGO_MA.Text + .pdf);
        //Informa que processo recebeu as imagens na importação
        DM.cds_A1M1_2IMPORTADO.Text := 1;
        DM.cds_A1M1_2.Post;
        DM.cds_A1M1_2.ApplyUpdates(0);
      end else
      begin
        Screen.Cursor := crSqlWait;
        DM.cds_A1M1_2.Edit;
        DM.cds_A1M1_2PDF.LoadFromFile(FolderDialog1.FileName);
        DM.cds_A1M1_2IMPORTADO.Text := 1;
        DM.cds_A1M1_2.Post;
        DM.cds_A1M1_2.ApplyUpdates(0);
      end;
    finally
      LFileList.Free;
      LPDFDocument.free;
    end;
  end;


O que pode estar errado?

Grato.
Ralp Bezerra

Ralp Bezerra

Curtidas 0

Respostas

Glauber Lima

Glauber Lima

26/03/2012

Isso ja ocorrreu comigo quando eu ia converter o numero 1.200,00 e usa da seguinte forma, strtofloat, dai tive que usar uma função que encontrei e um arquivo de ajuda para delphi.
GOSTEI 0
POSTAR