pdf to png

variables()
labels()
gui()
init_pluggins()
dll_on kgf$
end

' ******************************************************************************
'                                 VARIABLES
' ******************************************************************************
sub variables()
'  objets
   dim no%,L_doc%,B_add%,B_Conv%,SB%,PB%,A_doc%,OD%
'  évènements
   dim clic%,change%
end_sub

' ******************************************************************************
'                                  LABELS
' ******************************************************************************
sub labels()
   label clic,change
end_sub

clic:
   clic%=number_click
   if clic%=B_add% : Add_file():end_if
   if clic%=B_conv%: show pb%:Convertion():hide pb%:end_if
return

change:
   change%=number_change
return

' ******************************************************************************
'                          GRAPHICAL USER INTERFACE
' ******************************************************************************
sub gui()
   dim_local l%,t%
   O_Form(0,0,1,0,0,500,700,"PDF to PNG")
   font_name 0,"arial"

   no%=no%+1 : L_doc%=no%
   O_List(no%,0,1,5,5,height(0)-100,width(0)-26,"",1)
  
   no%=no%+1 : B_add%=no%
   t%=top(L_doc%)+height(L_doc%)+5
   l%=width(0)-143
   O_Button(no%,0,1,t%,l%,0,50,"Add",1)
   font_bold no%
  
   no%=no%+1 : B_Conv%=no%
   t%=top(L_doc%)+height(L_doc%)+5
   l%=width(0)-90
   O_Button(no%,0,1,t%,l%,0,70,"Convert",1)
   font_bold no%
  
   no%=no%+1 : SB%=no%
   O_Statut_Bar(no%,0,1,0)
  
   no%=no%+1 : PB%=no%
   O_Progress_bar(no%,0,0,height(0)-58,10,0,200)
  
   no%=no%+1 : A_doc%=no%
   O_Alpha(no%,0,1,height(0)-55,215,0,0,"")
   font_bold no%
end_sub

' ******************************************************************************
'                               BIBLIOTHEQUE OBJETS
' ******************************************************************************
sub Add_file()
   no%=no%+1 : OD%=no%
   O_Open_Dialog(No%,L_doc%,"C:","*.pdf",3)
end_sub

sub Convertion()
  dim_local x%,c%,liste$,res%,court$,long$,f$,file_out$,a$,i% ,b$,Na$,c$,sep%
  c%=count(L_doc%)
  c$="Pages:"
  min pb%,0 : max pb%,c% : position pb%,0
  if c% >0
      for x%=1 to c%
        f$=trim$(item_read$(L_doc%,1))
        long$=f$
        court$=string$(255," ")
        res% = DLL_call2("GetShortName",adr(long$),adr(court$))
        f$=trim$(court$)
        file_out$=left$(f$,len(f$)-4)
        Execute_wait "CMD.exe /c "+pdfinfo$+" "+f$+" | Clip"
        a$=clipboard_string_paste$
       
        for i%=1 to len(a$)
            b$=mid$(a$,i%,1)
            if b$=" " : b$="":end_if
            Na$=Na$+b$
        next i%
        a$=Na$
        res% = dll_call3("InString",adr(a$),adr(c$),0)
        a$=right$(a$,len(a$)-(res%+5))
        sep%=instr(a$,chr$(13))
        a$=left$(a$,sep%-1)
       
        Execute_wait "CMD.exe /c "+pdfpng$+" -f 1 -l "+a$+" -r 300 -q "+f$+" "+file_out$
        item_delete L_doc%,1
        position pb%,position(pb%)+1
      next x%
  end_if
end_sub


' ******************************************************************************
'                               BIBLIOTHEQUE OBJETS
' ******************************************************************************
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
   if No%> 0 then FORM No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
   If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
   ALPHA No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
   EDIT No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   If T$<>"" Then Text No%,T$
   If Ch%=1  Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
   BUTTON No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
   if Cl%> 0 then on_click No%,Clic
   cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
   CONTAINER No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%,F$)
   MEMO No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists(F$)=1 then file_load No%,F$
   end_if
End_Sub
' ______________________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
   COMBO No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists F$ then file_load No%,F$
   end_if
   if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
   LIST No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists F$ then file_load No%,F$
   end_if
   if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
   PICTURE No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
   CHECK No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
   OPTION No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Main_Menu(No%,P%)
   MAIN_MENU No%
   if P% > 0 then Parent No%,P%
End_Sub
' ______________________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%,A%)
   SUB_MENU No%
   if P% > 0 then Parent No%,P%
   if C$<>"" then Caption No%,C$
   If Cl%=1 : on_click No%,Clic  : end_if
   If Cl%=2 : on_click No%,Clic2 : end_if
   If Cl%=3 : on_click No%,Clic3 : end_if
   If Cl%=4 : on_click No%,Clic4 : end_if
   If A%=0 then inactive No%
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
   dim_local F$
   If Object_Exists(No%)=0
      OPEN_DIALOG No%
   End_if
   if DD$<>"" then Dir_Dialog No%,DD$
   if filtre$<>"" then Filter No%,Filtre$+"|"+Filtre$
   F$=File_name$(No%)
   if variable("File$")=0:Dim File$:End_If
   if F$<>"_"
      if O%=1 then text out%,F$
      if O%=2 then Caption Out%,F$
      if O%=3 then item_add Out%,F$
      if O%=4 then file_load Out%,F$
      if O%=5 then File$=F$
   end_if
   Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$,ext$)
   dim_local F$,i%,ext%
    If Object_Exists(No%)=0
       SAVE_DIALOG No%
    End_If
    If DD$<>"" then Dir_Dialog No%,DD$
    If filtre$<>"" then Filter No%,Filtre$
    F$=file_name$(No%)
    If F$<>"_"
       for i%=1 to len(F$)
          if mid$(f$,i%,1)=".":ext%=1:exit_for:end_if
       next i%
       if ext%=1
          File_Save NOut%,F$
       else
          File_save NOut%,F$+ext$
       end_if
    End_If
    Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
   PROGRESS_BAR No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
   dim_local Fic$
   Fic$=F$
   DLIST No%
   if F$<>""
      if file_exists(Fic$)=1 : then file_load No%,Fic$ : end_if
   end_if
End_Sub
' ______________________________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
   CONTAINER_OPTION No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
   Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
   Pa%=P% :No2%=No%
   for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
   If M%=0
      O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
   Else
      if M%=1
         O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
      else
         O_Picture(No2%,P%,V%,height(P%)-81,0,23,width(P%)-16,"")
      end_if
   End_If
   OSB2%=No2%
   Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub O_Button_Picture(num_obj%,No_b%,P%,V1%,V2%,T%,L%,H%,W%,Pict$,Pict2$)
   O_Picture(num_obj%+1,P%,V2%,T%,L%,H%,W%,Pict2$):cursor_point num_obj% +1
   O_Picture(num_obj%,P%,V1%,T%,L%,H%,W%,Pict$):On_click num_obj%,Clic:cursor_point num_obj%
   obj% = obj%+1
   if variable("No2%")=0 : dim No2% :No2%=7000 :End_if
   if Variable("R%")=0 :dim R% :R%=1:else :R%=R%+1 :end_if
   if Object_exists(7000)=0 :O_Edit(7000,P%,0,-190,-200,0,0):End_If
   If Variable("KGF_res%")=0 then dim KGF_res%
   KGF_res% = dll_call2("ClickSetHook",handle(P%),handle(No2%))
   KGF_res% = dll_call5("ClickDefineRect",R%,L%,T%,W%,H%)

   No2%=No_b%
   O_Button(No2%,P%,0,-200,-200,0,0,"",1)
   KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-5,R%)

   No2%=No_b%+1
   O_Button(No2%,P%,0,-200,-200,0,0,"",1)
   KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-6,R%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
   Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
   color No%,235,235,239 : y%=width(P%)-27
   Restore
   while t$<>"OSB_Corps.bmp" :read t$:End_while
   Read R_osb% :Read G_osb% :Read B_osb%
   2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
   for x%=0 to y% :2d_point x%,z% :next x%
   Restore
   while t$<>"OSB_Fin.bmp" :read t$:End_while
   for x%=y% to y%+10
      for z%=0 to 22
         Read R_osb% :Read G_osb% :Read B_osb%
         2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
         2d_point x%,z%
      next z%
   next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub
' ______________________________________________________________________________
Sub O_Timer(No%,OO%,Inter%)
   TIMER No%
   if OO%=1 then timer_on No%
   if OO%=0 then timer_off No%
   if inter%>0 then timer_interval No%,inter%
End_Sub
' ______________________________________________________________________________
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%,Mi%,Ma%,C%)
   SPIN No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   Min No%,Mi%
   Max No%,Ma%
   if C% > 0 Then on_change No%,Change
End_sub
' ______________________________________________________________________________
Sub O_Panel(No%,P%,V%,T%,L%,H%,W%)
   Panel no%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
End_sub

' ******************************************************************************
'                       INITIALISATION DES PLUGGINS
' ******************************************************************************
Sub Init_pluggins()

   dim kgf$
   dim pdfinfo$,pdfpng$

   kgf$       ="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
   pdfinfo$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdfinfo.exe"
   pdfpng$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftopng.exe"

End_sub