25. TTF embending

CREATE OR REPLACE procedure test25 is
-- TTF embending
   ---------------
 
  l_blob blob;
  l_filename varchar2(30) := '123.pdf';
  l_ttf Plpdf_Type.t_addfont;
 begin
    l_ttf := Plpdf_Ttf.GetTTF(106); -- FuturaCE-Book, cp1250
    plpdf.init; -- initialize, without parameters means: page orientation: portrait, unit: mm, default page format: A4
    Plpdf.addTTF('FuturaCE-Book', NULL, l_ttf);
    plpdf.NewPage; -- begin a new page, without parameters means: page orientation: default (portrait)
    plpdf.SetPrintFont('FuturaCE-Book',null,12); -- set font attributes: family: Arial, style: regular, font size: 12
    plpdf.PrintCell(50,10,'Hello World!'); -- print text: cell size:50*10
    plpdf.SendDoc(l_blob); -- create content
 
 -- print
 /*
 owa_util.mime_header('application/pdf',false);
        htp.p('Content-Disposition: inline; filename="' || l_filename || '"'); 
        htp.p('Content-Length: ' || dbms_lob.getlength(l_blob));
        owa_util.http_header_close;  
        wpg_docload.download_file(l_blob);
        */
   
 -- or store
 insert into STORE_BLOB (blob_file, created_date) values (l_blob, sysdate);
 commit;
 end;
/

 

Source: test25.prc

Result: test25.pdf