Debenu Quick PDF Library - PDF SDK Community Forum : DeleteOptionalContentGroup problem not save ?

DeleteOptionalContentGroup problem not save ? : Hi :)here are two links with similar...

Mon, 16 Oct 2017 22:31:41 +0000

Author: Ingo
Subject: 3515
Posted: 16 Oct 17 at 10:31PM

Hi :)

here are two links with similar problems.
The second one was the interesting one for you.
Rowan is telling there something about the meaning of these OptionalContentGroups and why the content is still there obviously you've deleted the OCG ;-)
http://www.quickpdf.org/forum/delete-optionalcontentgroup_topic3253.html
http://www.quickpdf.org/forum/help-with-detecting-visible-ocgs-and-removing-ocgs_topic3153.html

DeleteOptionalContentGroup problem not save ? : @ukobsaI have used your example...

Mon, 16 Oct 2017 21:51:49 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 9:51PM

@ukobsa

I have used your example in AutoIt and I have such example:

Func _Example2()
	Local $oQP
	If _QPDF_CreateObjectAndUnlock($oQP) = $QPDF_RET_VALID_COMMERCIAL Then
		$oQP.SetOrigin(1) ;
		$oQP.AddStandardFont(1) ;
		$oQP.DrawText(100, 50, 'Regulärer Text') ;

		$oQP.NewContentStream ;
		$oQP.DrawText(100, 100, '1. Layer DUMMY added') ;

		Local $iOC = $oQP.NewOptionalContentGroup('DUMMY') ;
		$oQP.SetContentStreamOptional($iOC) ;
		$oQP.SetOptionalContentGroupVisible($iOC, 0) ;

		$oQP.SaveToFile(@ScriptDir & '\test_oc_dummy.pdf') ;

		Local $iRes = $oQP.DeleteOptionalContentGroup($iOC) ;
		MsgBox(0, '$iRes', $iRes)
;~     // $iRes is set to 1 when executing

		$oQP.SaveToFile(@ScriptDir & '\test_oc_dummy_del.pdf') ;
	EndIf
EndFunc   ;==>_Example2

The results are here:
http://lipok.pl/Debenu/test_oc_dummy.pdf

http://lipok.pl/Debenu/test_oc_dummy_del.pdf

REMARK:

Downlad this two files, and open in AcrobatReader not in GoogleChrome or in any other WebBrowser.

You should notice that:
test_oc_dummy_del.pdf

still contains "1. Layer DUMMY added" text .

I expected that deleting OCG would also remove all content inside this OCG.

But that did not happen.
Question is : Why that did not happen ?

DeleteOptionalContentGroup problem not save ? : Your example is like this: ...

Mon, 16 Oct 2017 19:36:50 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 7:36PM

Your example is like this:

    ......
    lPDF.NewContentStream;
    lPDF.DrawText(100, 100, '1. Layer DUMMY added');

    nOC := lPDF.NewOptionalContentGroup('DUMMY');
    lPDF.SetContentStreamOptional(nOC);
    lPDF.SetOptionalContentGroupVisible(nOC, 0)
    .......

My is like this:

    ......
    nOC := lPDF.NewOptionalContentGroup('DUMMY');
    lPDF.NewContentStream;
    lPDF.DrawText(100, 100, '1. Layer DUMMY added');

    lPDF.SetContentStreamOptional(nOC);
    lPDF.SetOptionalContentGroupVisible(nOC, 0)
    .......

I'm wondering if I doing this wrong ?

DeleteOptionalContentGroup problem not save ? : Thanks.I will give it a try. And...

Mon, 16 Oct 2017 19:16:35 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 7:16PM

Thanks. I will give it a try. And back with results.

Edited by mLipok - 16 Oct 17 at 7:17PM

DeleteOptionalContentGroup problem not save ? : Hi,just tested it with this code...

Mon, 16 Oct 2017 15:59:01 +0000

Author: ukobsa
Subject: 3515
Posted: 16 Oct 17 at 3:59PM

Hi,

just tested it with this code (14.11): and here the second PDF do no longer have the OCG layer (just the layer; content is still visible)


  lPDF  := TDebenuPDFLibrary.Create;
  try
    lPDF.SetOrigin(1);
    lPDF.AddStandardFont(1);
    lPDF.DrawText(100, 50, 'Regulärer Text');

    lPDF.NewContentStream;
    lPDF.DrawText(100, 100, '1. Layer DUMMY added');

    nOC := lPDF.NewOptionalContentGroup('DUMMY');
    lPDF.SetContentStreamOptional(nOC);
    lPDF.SetOptionalContentGroupVisible(nOC, 0);

    lPDF.SaveToFile('.\test_oc_dummy.pdf');

    nRes := lPDF.DeleteOptionalContentGroup(nOC);
    // nRes is set to 1 when executing

    lPDF.SaveToFile('.\test_oc_dummy_del.pdf');
  finally
    lPDF.Free;
  end;

Does this help?

DeleteOptionalContentGroup problem not save ? : QUESTION:Do you know any way to...

Mon, 16 Oct 2017 08:28:11 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 8:28AM

QUESTION:

Do you know any way to find on which page is located specyfic OCG ?

DeleteOptionalContentGroup problem not save ? : mLipok wrote:The other question...

Mon, 16 Oct 2017 08:06:46 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 8:06AM

mLipok wrote:

The other question is why

	$oQP.SelectContentStream(1)
	MsgBox(0, 'Save ?', $oQP.ContentStreamSafe())

is saying 0

As I showed before I used QPDF to create this OCG

Now I figured it out.
$oQP.ContentStreamSafe() was saing 0 as I need also select Page

$oQP.SelectPage(2)MsgBox(0, 'Select Result', $oQP.SelectContentStream(1))MsgBox(0, 'Save ?', $oQP.ContentStreamSafe())

I figured it out when I was trying to use:

$oQP.SetOptionalContentGroupVisible($iGroupID, 0)
$oQP.SetOptionalContentGroupPrintable($iGroupID, 0)

Which was not working until I use $oQP.SelectPage(2)

But .DeleteOptionalContentGroup is still not working even if I select proper page.

Edited by mLipok - 16 Oct 17 at 8:16AM

DeleteOptionalContentGroup problem not save ? : The other question is why $o...

Mon, 16 Oct 2017 07:45:31 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 7:45AM

The other question is why

	$oQP.SelectContentStream(1)
	MsgBox(0, 'Save ?', $oQP.ContentStreamSafe())

is saying 0

As I showed before I used QPDF to create this OCG

DeleteOptionalContentGroup problem not save ? : btw.Foxit Quick PDF Library 14.11...

Mon, 16 Oct 2017 07:43:03 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 7:43AM

btw.

Foxit Quick PDF Library 14.11 Reference Guide.pdf

in description for .DeleteOptionalContentGroup

is not specyfing that return value are 0 or 1 but it is.

The return value is exactly like mentioned in Foxit Quick PDF Library 14 Developer Guide.pdf

If a function is not documented as having a return value then you can assume that a returnvalue of one (1) indicates success. A returning value of zero (0) indicates failure. Other returnedvalues indicate valid handle or ID and what this ID is for can be determined by the functionname.

so the return Value for .DeleteOptionalContentGroup is showing properly 1 and 0 for example when I select non existen OCG.

Edited by mLipok - 16 Oct 17 at 7:43AM

DeleteOptionalContentGroup problem not save ? : I was using this snippet to add...

Mon, 16 Oct 2017 07:32:47 +0000

Author: mLipok
Subject: 3515
Posted: 16 Oct 17 at 7:32AM

I was using this snippet to add OptionalContentGroup:


	Local $iOCG1 = $oQP.NewOptionalContentGroup("POUCZENIE")
	Local $iCS_Id = $oQP.NewContentStream()
	$oQP.SelectContentStream($iCS_Id)
	$oQP.SaveState()

	$oQP.SetTransparency(0) ; no transparency

	Local $iIDFont = $oQP.AddTrueTypeFont('Arial {1250}', 0)
	$oQP.SelectFont($iIDFont)
	$oQP.SetBreakString(@CRLF)

	$oQP.SetLineWidth(1)
	$oQP.SetTextColor(1, 0, 0)
	$oQP.SetLineColor(1, 0, 0)

	$oQP.DrawLine( _
			$aMaxBoundaries[$QPDF_CSVTEXTCOL_X4LD], _
			$aMaxBoundaries[$QPDF_CSVTEXTCOL_Y4LD] + 10, _
			$aMaxBoundaries[$QPDF_CSVTEXTCOL_X3RD], _
			$aMaxBoundaries[$QPDF_CSVTEXTCOL_Y3RD] + 10 _
			)

	If Not @Compiled Then _ArrayDisplay($aMaxBoundaries, '$aMaxBoundaries')

	Local $iIDFont = $oQP.AddTrueTypeFont('Arial {1250}', 0)
	$oQP.SelectFont($iIDFont)
	$oQP.SetBreakString(@CRLF)
	$oQP.SetTextSize(8)
	$oQP.SetTextAlign($__eQPDF_TEXTALIGN_Justified)

	Local $iPouczenieWidth = $aMaxBoundaries[$QPDF_CSVTEXTCOL_X3RD] - $aMaxBoundaries[$QPDF_CSVTEXTCOL_X4LD]
	Local $iLeft = $aMaxBoundaries[$QPDF_CSVTEXTCOL_X4LD]
	Local $iTop = $aMaxBoundaries[$QPDF_CSVTEXTCOL_Y4LD] + 20

	_QPDF_SetDefaultCoordinates($oQP)
	$oQP.DrawWrappedText($iLeft, $iTop, $iPouczenieWidth, $sPouczenie_Text)

	$oQP.SetContentStreamOptional($iOCG1)
	$oQP.SetOptionalContentGroupVisible($iOCG1, 1)
	$oQP.SetOptionalContentGroupPrintable($iOCG1, 1)
	$oQP.LoadState()

My problem is that currently I can not delete this OCG

	$oQP.SelectContentStream(1)
	MsgBox(0, 'Save ?', $oQP.ContentStreamSafe())
	MsgBox(0, 'Delete Result:', $oQP.DeleteOptionalContentGroup($oQP.GetOptionalContentGroupID(1)))

So First MsgBox is saying 0 and second MsgBox is saying 1

But when I use

$oQP.SaveToFile($sPDF_FileFullPath & '__Deleted_Pouczenie.pdf')

I still have this OCG visible in this PDF file.

Do I'm doing something wrong ?

Edited by mLipok - 16 Oct 17 at 10:18AM