I need to find if a PDF file is encrypted

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

I am adding note annotations using QP.AddNoteAnnotation which works really well except if the file is encrypted the note comes out as garbage.

If I knew that a file is encrypted I could prevent the user from adding a note to it.

Anyone know of a function (even if it is not a QP function) that can find if a PDF is encrypted.

Thanks.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
SuperDave Members Profile Find Members Posts Team Player Joined: 10 Nov 05 Location: United Kingdom Status: Offline Points: 19	Post Options Post Reply Quote SuperDave Report Post Thanks(0) Quote Reply Topic: I need to find if a PDF file is encrypted Posted: 22 Dec 05 at 5:04PM
	Hi, I am adding note annotations using QP.AddNoteAnnotation which works really well except if the file is encrypted the note comes out as garbage. If I knew that a file is encrypted I could prevent the user from adding a note to it. Anyone know of a function (even if it is not a QP function) that can find if a PDF is encrypted. Thanks.

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 22 Dec 05 at 5:52PM
	Hi Dave! You can use the functions Encrypted and Unencrypt: . . . try Save_Cursor := Screen.Cursor; Screen.Cursor := crHourglass; // Show hourglass cursor QP.UnlockKey('MyKey'); QP.LoadFromFile(Edit1.text); If QP.Encrypted > 0 Then QP.Unencrypt; // doing anything here ... finally QP.Free; end; . . . If you need more details you can do something like this here: . . . ecry.Text := IntToStr(QP.Encrypted); If ecry.Text = '0' Then ecry.Text := 'Nothing'; If ecry.Text = '1' Then ecry.Text := 'Adobe Standard'; If ecry.Text = '2' Then ecry.Text := 'Unknown'; . . . All is in delphi. To your problem: First looking if the file is encrypted, then unencrypt it and then you can do the annotation. Edited by Ingo
	Cheers, Ingo

SuperDave Members Profile Find Members Posts Team Player Joined: 10 Nov 05 Location: United Kingdom Status: Offline Points: 19	Post Options Post Reply Quote SuperDave Report Post Thanks(0) Quote Reply Posted: 22 Dec 05 at 6:56PM
	Thanks Ingo! Your help is really useful to me. I now have notes adding to encrypted PDFs and have also managed to re-encrypt them using the encryptwithfingerprint function. You're a Star Ingo.