Inherits Task
 
Public filePDF As String
Public dirOutput As String
 
Public Sub Main()
 
  Dim documentPDF As PdfDocument
  Dim page As Integer
  Dim fileImage As String
  Dim imageRam As Image
 
  If Exist(filePDF) Then
    documentPDF = New PdfDocument(filePDF)
    If Exist(dirOutput) Then
      For page = 0 To documentPDF.Max
        fileImage = dirOutput &/ Format(page, "0000") & ".png"
        If Exist(fileImage) = False Then
          imageRam = documentPDF[page].Render(, 150)
          imageRam.Save(fileImage, 80)
        Endif
      Next
    Endif
  Endif
End

Public Sub Form_Open()
  Dim back As Extract
 
  back = New Extract  ' Creacion de una nueva instancia de la clase en segundo plano
  back.filePDF = User.Home &/ "tmp.pdf" 'Asignación del primer parámetro
  back.dirOutput = "/tmp" 'Asignación del segundo parámetro
End