Cita:
Empezado por pgranados
Hola Roman, buen día, ¿tendrás algún ejemplo de uso del QuickPDFLibrary? Veo que es de paga, ¿sabrás si existe una versión trial? Saludos.
|
Que tal pGranados.
Si existe una version trial de 30 dias.
https://developers.foxit.com/
Un ejemplo de su uso.
Código Delphi
[-]
procedure TfrmPDF.btnEjecutarClick(Sender: TObject);
var
PDF: TDebenuPDFLibrary1811;
UnlockResult, i, Fila,Columna, nTotArchivos : Integer;
begin
try
PDF := TDebenuPDFLibrary1811.Create;
UnlockResult:=PDF.UnlockKey(' [aqui va tu numero de licencia] ');
DM.TRS.Active:=False;
DM.TRS.StartTransaction;
qryBorrar.SQL.Clear;
qryBorrar.SQL.Add('DELETE FROM estado_cta_datos_pdf '+
'WHERE PDF_BANCO=:BANCO '+
' AND pdf_mes=:mes '+
' AND pdf_anio=:anio');
qryBorrar.ExecSQL;
if UnLockResult=1 then
begin
ST:= TStringList.Create;
nTotArchivos:=FileListBox1.Count;
pBar1.Max:=nTotArchivos;
pBar1.Step:=1;
for i:=0 to FileListBox1.Count-1 do
begin
sArchivoPDF:=FileListBox1.Items.Strings[i];
PDF.LoadFromFile( Dir+sArchivoPDF,'');
if nTotArchivos=1 then
begin
nPags := PDF.PageCount-nUltPaginas;
end Else
begin
if nTotArchivos=FileListBox1.ItemIndex+1 then
nPags := PDF.PageCount-nUltPaginas
else
nPags := PDF.PageCount;
end;
pBar1.Position:=pBar1.Position+1;
nPag:=1;
pBar2.Max:=nPags;
pBar2.Step:=1;
pBar2.Position:=0;
While nPag <= nPags do begin
Memo1.Lines.Clear;
PDF.SelectPage(nPag);
Memo1.Lines.Add(PDF.GetPageText(3)); Memo1.Lines.SaveToFile('c:\IDIVA\PDF_TXT_'+COPY(cbxBanco.Items.Strings[cbxBanco.ItemIndex],1,4)+'.txt'); InsertarRegistrosPDF(Sender); nPag:=nPag+1;
pBar2.Position:=pBar2.Position+1;
end;
end;
:
:
más código nada que ver con el componente)
En este
link podrás consultar la instrucción "GetPageText" del componente.
Espero te sirva. Saludos.