Depois de muito tentar, cheguei a conclusão que a função que converte o PDF e PDF/A só funciona na Libaru do Harbour padrão. Na HPDF da Samples da HMG 3.4.4 não funciona.
Na 3.4.4 a HPDF é muito similar a MiniPrint, seus comandos, etc. A HaruPdf original é diferente pelo que vejo. E bem mais confusa de entender seus comandos.
O trecho que funcionou:
//* Esse bloco gerou um pdf/a em branco.
pdf = HPDF_New()
xpdf = fread('HMG_HPDF_UNI.pdf')
// add descriptions //
HPDF_SetInfoAttr(pdf, HPDF_INFO_TITLE , "Title")
HPDF_SetInfoAttr(pdf, HPDF_INFO_AUTHOR , "Author")
HPDF_SetInfoAttr(pdf, HPDF_INFO_SUBJECT , "Subject")
HPDF_SetInfoAttr(pdf, HPDF_INFO_KEYWORDS , "Keywords")
// Add page //
page = HPDF_AddPage(pdf)
fname = 'mario.pdf'
//page := HPDF_InsertPage(xpdf)
oImage := HPDF_LoadJPEGImageFromFile( PDF, "mario_0001.jpg" )
HPDF_Page_DrawImage( Page, oImage, 2, 5, 170, 60 )
// Set PDF/A-1b conformance //
HPDF_PDFA_SetPDFAConformance(pdf, HPDF_PDFA_1B);
// save the document to a file //
HPDF_SaveToFile (pdf, fname)
// clean up //
HPDF_Free (pdf)
*/
Vou tentar meio no chute acoplar os dois e ver se gero o PDF/A com comandos da HPDF. Senão vou ter que modelar tudo pela HaruPdf.
Se alguem tiver um manual de comandos, agradeço.
Saudações e boa semana,
Mario.