fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-18 04:40:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

Extract images works for images in xobjects in xobjects

Browse Source
This commit is contained in:
John Whitington 2024-11-22 13:26:34 +00:00
parent 0ccd603163
commit 9dc62c758e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfimage.ml
View File

@ -137,7 +137,6 @@ let extract_images_inner ~raw ?path_to_p2p ?path_to_im encoding serial pdf resou
iter2 (write_image ~raw ?path_to_p2p ?path_to_im pdf resources) names images
let rec extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum form =
Printf.printf "form = %s\n" (Pdfwrite.string_of_pdf form);
let resources =
match Pdf.lookup_direct pdf "/Resources" form with
Some (Pdf.Dictionary d) -> Pdf.Dictionary d
@ -156,7 +155,6 @@ let rec extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup
written := (option_map (function Pdf.Indirect n -> Some n | _ -> None) images) @ !written;
images, forms
in
Printf.printf "extract_images_form_xobject: found %i images and %i subforms\n" (length images) (length forms);
iter (extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum) forms;
extract_images_inner ~raw ?path_to_p2p ?path_to_im encoding serial pdf resources stem pnum images