Question

我正在开发一个应用程序，我需要能够编辑现有PDF表单并在文件上以交互方式删除PDF表单字段。

表格字段，如下拉菜单，文字，多行文字，单选按钮。目前我正在使用ActiveX控件在Delphi应用程序中打开PDF文件。

但是我只能阅读PDF表格，但我希望能够编辑它，就像删除表格字段一样。

我们的想法是在现有PDF表单上添加Form表单并保存。我尝试过Gnostice，PowerPDF，quickPDF，但他们不允许交互式修改像ADOBE这样的PDF文件。此在线申请PDFEscape允许我们以交互方式创建新的和编辑现有PDF表单。

在诺斯替教中，我们可以通过编程方式编辑，例如：

问题：

有没有办法可以交互式编辑PDF表单以删除表单字段？
我们可以在Delphi中嵌入Adobe或任何其他软件来编辑现有PDF吗？

Answer 1

Acrobat的完整版本包括访问和使用的设施。从Delphi代码中处理表单字段，并支持诸如将表单字段添加到文档，通过OLE自动化使用代码填充它们以及在不需要时删除它们等操作。

您当然可以在自己的应用中托管Acrobat窗口，以便显示f.i.在TPanel中。您可以使用Acrobat_TLB.Pas中的CAcroAVDoc对象的OpenInWindowEx方法执行此操作。但是，这仅绘制PDF文档（加上注释/注释，iirc），它不提供显示或提供对Acrobat的gui的访问。我知道从Delphi应用程序中执行此操作的唯一方法是在TOleContainer对象中打开Pdf文件，但如果这样做，Acrobat的gui将在其自己的窗口中打开，而不是在您的一个窗口中托管。如今，OleContainer界面在屏幕上看起来非常像antediluvian。

因此，如果您想与Acrobat的表单字段编辑器gui进行交互，我认为您已被卡住了。另一方面，您可以使用自己的DIY代码操作表单字段并填写它们 - 请参阅下面的示例。

要在代码中操作表单字段，您需要将Acrobat Forms类型库导入Delphi 您需要导入的类型库等同于

D:\Program Files\Adobe\Acrobat 8.0\Acrobat\plug_ins\AcroForm.api

您可能需要使用Delphi的TRegSvr实用程序（或Windows'RegSvr32）向Windows注册此文件;

这使您可以访问IAFormApp对象，该对象是处理表单的顶级对象，其中包括用于创建单个字段的IField对象。

如果您有Acrobat SDK文档，则“Interapplication Communication API Reference”（iac_api_reference.pdf）中介绍了通过Ole Automation使用这些对象的方法。我已经在下面包含了Delphi导入的IFIeld接口，这样你就可以看到你可以用它做的各种事情了。

“我们是否有办法以交互方式编辑PDF表单以删除表单字段？”

在Acrobat中打开表单，是的，你可以删除一个字段（如果用“drop”表示“删除”）。您可以通过调用IFields接口的Remove方法在代码中执行此操作。

“我们可以在Delphi中嵌入Adobe或任何其他软件来编辑现有的PDF吗？”

是的，以下示例显示了如何从Delphi代码中填写现有字段并添加新字段：

implementation

{$R *.DFM}

uses
  AFORMAUTLib_TLB, Acrobat_TLB;

const
  scDocument = 'D:\delphi\code\acrobat\blank.pdf';

procedure TForm1.FillInForm;
var
  Acrobat : CAcroApp;
  AVDoc : CAcroAVDoc;
  PDDoc : CAcroPDDoc;
  FormApp : IAFormApp;
  Fields : IFields;
  Field : IField;
begin
  Acrobat := CoAcroApp.Create;
  AVDoc := CoAcroAVDoc.Create;
  AVDoc.Open(scDocument, scDocument);
  PDDoc := AVDoc.GetPDDoc as CAcroPDDoc;

  FormApp := CoAFormApp.Create;

  Fields := FormApp.Fields as IFields;
  Field := Fields.Item['Text1'] as IField;
  Field.Value := 'My test';

  Field := Fields.Add('AnotherField', 'text',
  0,
  360,
  790,
  360 + 200,
  790 - 30) as IField;

  Field.Value := 'Added';
end;

是的，我不确定你是否打算询问这个问题，但也可以在Delphi应用程序的窗口中托管Acrobat的gui。但是如果你想知道这一点，你需要在一个单独的q中询问它，因为这是一个不同的技术问题。

从AFORMAUTLib_TLB.Pas中提取：

*********************************************************************//
    // Interface: IField
    // Flags:     (4416) Dual OleAutomation Dispatchable
    // GUID:      {673E8454-7646-11D1-B90B-00A0C9259304}
    // *********************************************************************//
      IField = interface(IDispatch)
        ['{673E8454-7646-11D1-B90B-00A0C9259304}']
        // getters amd setters omitted
        procedure SetBorderColor(const bstrColorSpace: WideString; GorRorC: Single; GorM: Single; 
                                 BorY: Single; K: Single); safecall;
        procedure SetBackgroundColor(const bstrColorSpace: WideString; GorRorC: Single; GorM: Single; 
                                     BorY: Single; K: Single); safecall;
        procedure SetJavaScriptAction(const bstrTrigger: WideString; const bstrTheScript: WideString); safecall;
        procedure SetSubmitFormAction(const bstrTrigger: WideString; const bstrTheURL: WideString; 
                                      theFlags: Integer; arrFields: OleVariant); safecall;
        procedure SetResetFormAction(const bstrTrigger: WideString; theFlags: Integer; 
                                     arrFields: OleVariant); safecall;
        procedure SetButtonIcon(const bstrFace: WideString; const bstrFullPath: WideString; 
                                pageNum: Smallint); safecall;
        procedure SetForegroundColor(const bstrColorSpace: WideString; GorRorC: Single; GorM: Single; 
                                     BorY: Single; K: Single); safecall;
        procedure PopulateListOrComboBox(arrItems: OleVariant; arrExportVal: OleVariant); safecall;
        procedure SetButtonCaption(const bstrFace: WideString; const bstrCaption: WideString); safecall;
        property Name: WideString read Get_Name;
        property Value: WideString read Get_Value write Set_Value;
        property IsHidden: WordBool read Get_IsHidden write Set_IsHidden;
        property IsTerminal: WordBool read Get_IsTerminal;
        property Type_: WideString read Get_Type_;
        property IsReadOnly: WordBool read Get_IsReadOnly write Set_IsReadOnly;
        property IsRequired: WordBool read Get_IsRequired write Set_IsRequired;
        property PrintFlag: WordBool read Get_PrintFlag write Set_PrintFlag;
        property BorderWidth: Smallint read Get_BorderWidth write Set_BorderWidth;
        property Alignment: WideString read Get_Alignment write Set_Alignment;
        property CharLimit: Smallint read Get_CharLimit write Set_CharLimit;
        property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
        property IsMultiline: WordBool read Get_IsMultiline write Set_IsMultiline;
        property IsPassword: WordBool read Get_IsPassword write Set_IsPassword;
        property CalcOrderIndex: Smallint read Get_CalcOrderIndex write Set_CalcOrderIndex;
        property BorderStyle: WideString read Get_BorderStyle write Set_BorderStyle;
        property Editable: WordBool read Get_Editable write Set_Editable;
        property Highlight: WideString read Get_Highlight write Set_Highlight;
        property Style: WideString read Get_Style write Set_Style;
        property TextFont: WideString read Get_TextFont write Set_TextFont;
        property TextSize: Smallint read Get_TextSize write Set_TextSize;
        property ButtonLayout: Smallint read Get_ButtonLayout write Set_ButtonLayout;
        property NoViewFlag: WordBool read Get_NoViewFlag write Set_NoViewFlag;
      end;

在Delphi中集成Adobe SDK以编辑PDF

1 个答案: