PureBasic Forums - English

Code: Select all

UseJPEGImageDecoder() 
UseJPEG2000ImageDecoder() 
UseZipPacker()
UsePNGImageDecoder()
UseJPEGImageEncoder() 

#PurePDF_Include=1

Procedure ResizeImgAR(ImgID.l,width.l,height.l)
; just a simple image resize: code from purebasic forum forgot who I got it from
  Protected.l OriW, OriH, w, h, oriAR, newAR
  Protected.f fw, fh

  OriW=ImageWidth(ImgID)
  OriH=ImageHeight(ImgID)

  If (OriH > OriW And height < width) Or (OriH < OriW And height > width)
    Swap width, height
  EndIf

  ; Calc Factor
  fw = width/OriW
  fh = height/OriH

  ; Calc AspectRatio
  oriAR = Round((OriW / OriH) * 10,0)
  newAR = Round((width / height) * 10,0)

  ; AspectRatio already correct?
  If oriAR = newAR
    w = width
    h = height
  ElseIf OriW * fh <= width
    w = OriW * fh
    h = OriH * fh
  ElseIf OriH * fw <= height
    w = OriW * fw
    h = OriH * fw 
  EndIf

  ResizeImage(ImgID,w,h,#PB_Image_Smooth)

EndProcedure 

Procedure Header() ; just a simple logo from a global that gets loaded at the top of the program
  pdf_ImageMem("logo2.jpg",*unpackedlogo2, 9061, 140,13,60,16) 
  pdf_Ln(5)
EndProcedure

Procedure Footer() ; a simple footer with a page number
  pdf_SetY(-15)
  pdf_SetFont("Arial","",9)
  ;pdf_Cell(0,10,"Page "+Str(pdf_GetPageNo())+"/{nb}",0,0,#PDF_ALIGN_CENTER)
  pdf_Line(17,260,198,260)
    pdf_Cell(0,2,"This document contains a photo and date     pg."+Str(pdf_GetPageNo()),0,0,#PDF_ALIGN_CENTER)
EndProcedure





procedure createpdfpage(encodedfilename$, picfolder.s)
Define pdf_1_img  
Define *pdf_1_mem
Define  pdf_1_size
Define pdf_1_imgadd.s=picfolder+encodedfilename$ 
pdf_SetLeftMargin(12.5)
pdf_SetProcFooter(@Footer())
pdf_SetProcHeader(@Header())
pdf_AddPage()  
pdf_SetFont("Arial","B",10)


If FileSize(pdf_1_imgadd) >0 
  pdf_1_img = LoadImage(#PB_Any,pdf_1_imgadd)
EndIf  


If pdf_1_img  ; if there was an image in that location
  ResizeImgAR(pdf_1_img,544,408)
;  ResizeImgAR(pdf_1_img,408,311); smaller size that worked
 *pdf_1_mem=EncodeImage(pdf_1_img,#PB_ImagePlugin_JPEG)
  pdf_1_size= MemorySize(*pdf_1_mem)
  pdf_ImageMem(encodedfilename$,*pdf_1_mem,pdf_1_size, 13.7, 38,189);,140) ;GOT RID OF HEIGHT; this image is located in exact position 
EndIf

;adding one line with date of picture
pdf_Ln(7)
pdf_Cell(22,7,"Date ",0,0,#PDF_ALIGN_LEFT,0)
pdf_SetFont("","",12)
pdf_Cell(75,7,photolist()\date,0,0,#PDF_ALIGN_LEFT,0)


;release
If pdf_1_img
FreeMemory(*pdf_1_mem)
FreeImage(pdf_1_img)
EndIf                      ;get rid of this image from memory
  
EndProcedure


;main program pseudo code ask for folder location and date to print then load dates into array and create pdf
  
pdf_Create("P","mm",#PDF_PAGE_FORMAT_LETTER)
foreach  photolist()
   createpdfpage(photolist()\encodedfilename$, picfolder.s)
next
    pdf_Save(pdffolder+"Inspection Report by Address.pdf")
    pdf_ResetBookMark()
	;ready for next pdf

Code: Select all

Procedure EmptyWorkingSet()
;--------------------------
;Reduce memory use of current process
Protected *EmptyWorkingSet
Protected hDll.i = OpenLibrary(#PB_Any, "Psapi.dll")

               If hDll
                          *EmptyWorkingSet = GetFunction(hDll, "EmptyWorkingSet")
                       If *EmptyWorkingSet
               
                               CallFunctionFast(*EmptyWorkingSet, GetCurrentProcess_())
                       EndIf 
                 
                       CloseLibrary(hDll)
               EndIf
EndProcedure