|
דוגמה זו מציגה כיצד להעתיק את עמוד מספר 5 ממסמך המקור לעמוד מספר 0 במסמך הנוכחי var DestDoc, SourceDoc: THotPDF; begin SourceDoc := THotPDF.Create( nil ); try SourceDoc.LoadFromFile( 'SourceDoc.pdf' ); DestDoc := THotPDF.Create(nil); try DestDoc.FileName := ( 'DestDoc.pdf' ); DestDoc.BeginDoc; DestDoc.CopyPageFromDocument( SourceDoc, 5, 0 ); // מעתיק את עמוד מספר 5 ממסמך המקור לעמוד מספר 0 במסמך הנוכחי DestDoc.EndDoc; finally DestDoc.Free; end; finally SourceDoc.Free; end; end; |