Hi,
here is my Delphi code:
procedure TForm1.ExtractbookmarksfromPDF1Click(Sender: TObject);
var
BM_Lit : tstringlist;
begin
screen.cursor := CrHourglass;
BM_Lit := tstringlist.create;
BM_Lit.text:= WPViewPDF1.CommandGetStr(COMPDF_GetBookmarkXML, BM_Lit.text, 1 ) ;
BM_Lit.savetofile(changefileext(WPViewPDF1.filename, '.xml'));
BM_Lit.free;
screen.cursor := CrDefault;
end;
My problem is that whatever any integer value passed to CommandGetStr or whatever kind of PDF, I do not get the destinations into the XML File.
I always got:
<?xml version="1.0" encoding="utf-8"?>
<File id="6">
<Outline Title="STRUCTURAL REPAIR MANUAL (PSP 497)&WCF_AMPERSAND " A="">
<Outline Title="TRANSMITTAL LETTER" A=""/>
<Outline Title="RECORD OF REVISIONS" A=""/>
<Outline Title="RECORD OF TEMPORARY REVISIONS" A=""/>
<Outline Title="SERVICE BULLETIN" A=""/>
<Outline Title="INTRODUCTION" A="">
<Outline Title="LIST OF EFFECTIVE PAGES" A=""/>
<Outline Title="TABLE OF CONTENTS" A=""/>
<Outline Title="INTRODUCTION" A=""/>
</Outline>
<Outline Title="CHAPTER 51 - STRUCTURES&WCF_AMPERSAND " A="">
<Outline Title="LIST OF EFFECTIVE PAGES" A=""/>
<Outline Title="TABLE OF CONTENTS" A=""/>
<Outline Title="51-00-00 STRUCTURES - STANDARD PRACTICES&WCF_AMPERSAND " A=""/>
...
I never get something like : <Outline Title="Delphi" pid="19" pnr="16" X="57" Y="376" Z="0"/>
What am I doing wrong ?
thanks.