Páginas (2): 1 2   
angelnu   14-08-2020, 21:09
#1
Hola a todos.

Paree ser que el componente gb.pdf está en desuso y se va a remplazar por gb.poppler.
Alguien sabe como utilizarlo con algún ejemplo. Esta muy poco documentado.
tincho   15-08-2020, 00:04
#2
(14-08-2020, 21:09)angelnu escribió: Hola a todos.
Paree ser que el componente gb.pdf está en desuso y se va a remplazar por gb.poppler.
Alguien sabe como utilizarlo con algún ejemplo. Esta muy poco documentado.

Hola angelnu,
gb.pdf también esta basado en la librería poppler.
en las notas de la wiki dicen: gb.poppler component that will replacegb.pdf It is based on poppler-glib , except for rendering that is based on poppler-splash
Hice algunas indagaciones en mis programas que usan gb.pdf y sorpresa!! no funcionan similar.
Por empezar no tiene el método .Open solo tien .Find
Voy a intentar preparar un ejemplo de uso del componente y cuando tenga algo lo subo.
Saludos.

1 Saludo.
vuott   15-08-2020, 00:23
#3
(14-08-2020, 21:09)angelnu escribió: ...se va a remplazar por gb.poppler.
Alguien sabe como utilizarlo con algún ejemplo.

Hace unas semanas yo escribí en el wiki del foro italiano unas páginas breves y sencillas sobre el Componente gb.poppler:
  
- https://www.gambas-it.org/wiki/index.php...n_file_PDF
- https://www.gambas-it.org/wiki/index.php...gb.poppler
- https://www.gambas-it.org/wiki/index.php...gb.poppler
- https://www.gambas-it.org/wiki/index.php...gb.poppler
Última modificación: 15-08-2020, 00:26 por vuott.

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
tincho   15-08-2020, 00:29
#4
Ok, ya esta, hice un pequeño ejemplo.
Hay que activar (en mi caso tambien lo tuve que instalar) el componente gb.poppler
luego este código:
Código:
' Gambas class file
Public Sub Button1_Click()
  Dim str As String
  Dim xPDF As PdfDocument
  Dim i As Integer
  Dialog.Title = ("Select File")
  Dialog.Filter = ["pdf"]
  Dialog.OpenFile(False)
  str = Dialog.Path
  If Exist(str) Then
    xPDF = New PdfDocument(str)
  Endif
  For i = 0 To xPDF.Max
    TextArea1.Text = "Page: " & CStr(i) & " --------------\n" & xPDF[i].Text & "\n"
  Next
End[/i]
Saludos.
Archivos adjuntos
.gz
ejemplo-poppler-0.0.1.tar.gz (Tamaño: 11.75 KB Descargas: 1)
Última modificación: 15-08-2020, 00:30 por tincho.

1 Saludo.
angelnu   15-08-2020, 09:44
#5
Gracias por responder, me ha sido muy útil no sabía como dibujar el pdf ni sabía que se pudiera extraer el texto.
tincho   15-08-2020, 12:26
#6
(15-08-2020, 09:44)angelnu escribió: Gracias por responder, me ha sido muy útil no sabía como dibujar el pdf ni sabía que se pudiera extraer el texto.

De nada, solo por curiosidad ¿Que planeas hacer con el componente?
Saludos.

1 Saludo.
angelnu   15-08-2020, 17:05
#7
(15-08-2020, 12:26)tincho escribió:
(15-08-2020, 09:44)angelnu escribió: Gracias por responder, me ha sido muy útil no sabía como dibujar el pdf ni sabía que se pudiera extraer el texto.

De nada, solo por curiosidad ¿Que planeas hacer con el componente?
Saludos.
Pues creo facturas en formato pdf y es para verlas en el programa
tincho   16-08-2020, 15:52
#8
(15-08-2020, 17:05)angelnu escribió: Pues creo facturas en formato pdf y es para verlas en el programa
Para ver pdf usas gb.pdf ? no usas el control DocumentView ?
Saludos.

1 Saludo.
angelnu   18-08-2020, 07:05
#9
(16-08-2020, 15:52)tincho escribió:
(15-08-2020, 17:05)angelnu escribió: Pues creo facturas en formato pdf y es para verlas en el programa
Para ver pdf usas gb.pdf ? no usas el control DocumentView ?
Saludos.

Pues no  uso DocumentView, El programa lo tenía desde hace más de 10 años y utilizo un control ScrolView y un picturebox y no sabía como funcionaba DocumentView, ahora que quiero rehacerlo y actualizarlo creo que lo utilizaré, es más sencillo.
vuott   18-08-2020, 08:49
#10
(18-08-2020, 07:05)angelnu escribió: ...es más sencillo.

...realmente más sencillo ? Dodgy

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
Páginas (2): 1 2   
  
Usuarios navegando en este tema: 1 invitado(s)
Powered By MyBB, © 2002-2024 MyBB Group.
Made with by Curves UI.