PureBasic Forums - English

Code: Select all

Procedure ipdf_ParseJPG(*aData.MEM_DataStructure)  
  Protected vStart,vLength,vFound,vResult,vByte.b
  
  ;Block Length
  vLength = ((PeekB(*aData\pData + 4) & $FF)*$100) + (PeekB(*aData\pData + 5) & $FF)
  vStart = 4 + vLength     
  vFound = #False
  While (vFound <> #True) And (vStart + 9 < *aData\lCurSize)
    vByte=PeekB(*aData\pData + vStart) & $FF
    If vByte = -1
      vByte = PeekB(*aData\pData + vStart + 1) & $FF
      If (vByte = -64) Or (vByte = -62)
        vFound = #True
        Images()\Bpc = PeekB(*aData\pData + vStart + 4)
        Images()\Height = ((PeekB(*aData\pData + vStart + 5) & $FF)*$100) + (PeekB(*aData\pData + vStart + 6) & $FF)
        Images()\Width =  ((PeekB(*aData\pData + vStart + 7) & $FF)*$100) + (PeekB(*aData\pData + vStart + 8) & $FF)
        ; Gray = 1/Color = 3
        Select PeekB(*aData\pData + vStart + 9) & $FF
          Case 1
            Images()\ColSpace = "DeviceGray"
          Case 3
            Images()\ColSpace = "DeviceRGB"           
          Default:
            Images()\ColSpace = "DeviceCMYK"               
        EndSelect    
        Images()\DataPic\pData = *aData\pData
        Images()\DataPic\lCurSize = *aData\lCurSize
        vResult = #True
      Else
        ;Block Length
        vLength = ((PeekB(*aData\pData + vStart + 2) & $FF)*$100) + (PeekB(*aData\pData + vStart + 3) & $FF)
        vStart = vStart + vLength + 2
      EndIf      
    Else
      pdfError = #PDF_ERROR_JPEG_FILE_IS_NOT_SUPPORTED
      vResult = #False
      Break
    EndIf    
  Wend  
  ProcedureReturn vResult
EndProcedure

Code: Select all

#PurePDF_Include=1

;Put you path pointing to "PurePDF.pb" and "PurePDF.res" here:
IncludePath "....\PurePDF\Examples\PurePDF\"
;

XIncludeFile "PurePDF_res.pb"
XIncludeFile "PurePDF.pb"

Define Logo.s, myPath.s, Error.s
Define ImgW,i, ImgH.i
Define Quality.i
Define *myImgBuffer

UsePNGImageDecoder()
UseJPEGImageEncoder()

Logo.s=#PB_Compiler_Home+"Examples\3D\Data\PureBasic3DLogo.png"

;Put your path for PDF and JPG files here
myPath.s="...."
;

If LoadImage(1, Logo)
  ImgW=ImageWidth(1)
  ImgH=ImageHeight(1)
  For Quality= 0 To 10
  Debug "Loop start ---"
  *myImgBuffer=EncodeImage(1, #PB_ImagePlugin_JPEG, Quality)
  If *myImgBuffer
    Debug "Quality: "+Str(Quality)
    pdf_Create("P", "pt", Str(ImgW)+","+Str(ImgH))
    pdf_setmargins(0,0,0)
    pdf_AddPage()
    pdf_ImageMem("", *myImgBuffer, MemorySize(*myImgBuffer), 0, 0)
    Debug pdf_geterrormessage()
    pdf_Save(myPath+"\PDFTestQ"+Str(Quality)+".pdf")
    Debug pdf_geterrormessage()
    ; save JPG for reference purpose
    SaveImage(1 , myPath+"\JPGTestQ"+Str(Quality)+".jpg", #PB_ImagePlugin_JPEG, Quality)
    ;
    FreeMemory(*myImgBuffer)
  EndIf
  Debug "Loop end ----"
  Next Quality
EndIf