AcroPDF sin propiedades

[ocram]

El resto..

procedure Register;

resourcestring
  dtlServerPage = 'PDF Adobe';

implementation

uses ComObj;

procedure TAcroPDF.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{CA8A9780-280D-11CF-A24D-444553540000}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$80004002*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TAcroPDF.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as IAcroPDF;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TAcroPDF.GetControlInterface: IAcroPDF;
begin
  CreateControl;
  Result := FIntf;
end;

procedure TAdobeSPOpenDocumentsShim.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{24DA047B-40C0-4018-841B-6B7409F730FC}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$80004002*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TAdobeSPOpenDocumentsShim.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as ISPOpenDocumentsShim;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TAdobeSPOpenDocumentsShim.GetControlInterface: ISPOpenDocumentsShim;
begin
  CreateControl;
  Result := FIntf;
end;

procedure Register;
begin
  RegisterComponents('PDF Adobe',[TAcroPDF, TAdobeSPOpenDocumentsShim]);
end;

end.