Viewing file:  starter_block.php (2.73 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
<?
/* $Id: starter_block.php,v 1.4.2.1 2008/05/09 10:11:54 rjs Exp $
*
* Block starter:
* Import a PDF page containing, and process all blocks. The blocks are
* retrieved via pCOS, and the block filling functions are used to
* visualize the blocks on the output page. A real-world application would
* of course fill the blocks with data retrieved from some external data
* source.
*
* required software: PPS 7 or above
* required data: input PDF
*/
/* This is where the data files are. Adjust as necessary. */
$searchpath = "../data";
$infile = "boilerplate.pdf";
$outfilename = "starter_block.pdf";
$p = PDF_new();
# This means we must check return values of load_font() etc.
PDF_set_parameter($p, "errorpolicy", "return");
PDF_set_parameter($p, "SearchPath", $searchpath);
/* we use "utf8" as textformat, this allows to use unicode encoding */
PDF_set_parameter($p, "textformat", "utf8");
if (PDF_begin_document($p, $outfilename, "") == 0) {
die("Error: " . PDF_get_errmsg($p));
}
PDF_set_info($p, "Creator", "PDFlib starter sample");
PDF_set_info($p, "Title", "starter_block");
/* Open a PDF containing blocks */
$indoc = PDF_open_pdi_document($p, $infile, "");
if ($indoc == 0) {
die("Error: " . PDF_get_errmsg($p));
}
/* Open the first $page */
$page = PDF_open_pdi_page($p, $indoc, 1, "");
if ($page == 0) {
die("Error: " . PDF_get_errmsg($p));
}
$width = PDF_pcos_get_number($p, $indoc, "pages[0]/width");
$height = PDF_pcos_get_number($p, $indoc, "pages[0]/height");
PDF_begin_page_ext($p, $width, $height, "");
/* Place the imported $page on the output $page */
PDF_fit_pdi_page($p, $page, 0, 0, "");
/* Query the number of blocks on the first page */
$blockcount = PDF_pcos_get_number($p, $indoc, "length:pages[0]/blocks");
if ($blockcount == 0) {
die("Error: " . $infile . "does not contain any PDFlib blocks");
}
/* Loop over all blocks on the $page */
for ($i = 0; $i < $blockcount; $i++) {
/* Fetch the name and type of the $i-th block on the first page
* (one of Text/Image/PDF)
*/
$blockname = PDF_pcos_get_string($p, $indoc,
"pages[0]/blocks[" . $i . "]/Name");
$blocktype = PDF_pcos_get_string($p, $indoc,
"pages[0]/blocks[" . $i . "]/Subtype");
/* Visualize all text blocks */
if ($blocktype == "Text") {
$optlist = "fontname=Helvetica encoding=unicode " .
"fillcolor={rgb 1 0 0} " .
"bordercolor={gray 0} linewidth=0.25";
/* We simply use the $blockname as content */
if (PDF_fill_textblock($p,
$page, $blockname, $blockname, $optlist) == 0) {
print("Warning: " . PDF_get_errmsg($p));
}
}
}
PDF_end_page_ext($p, "");
PDF_close_pdi_page($p, $page);
PDF_end_document($p, "");
PDF_close_pdi_document($p, $indoc);
PDF_delete($p);
print "$outfilename generated";
?>
|