Delphi 控制 CodeSoft 报错 Method 'Dialogs' not supported by automation object,该如何解决

Delphi 控制 CodeSoft 报错 Method 'Dialogs' not supported by automation object
Method 'Dialogs' not supported by automation object

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,ShellApi,Comobj,OleServer, StdCtrls, LabelManager2_TLB, jpeg,  ExtCtrls,Clipbrd, DB, ADODB;type  TForm1 = class(TForm)    OpenDialog1: TOpenDialog;    CheckBox1: TCheckBox;    Image1: TImage;    Button7: TButton;    Button8: TButton;    Button9: TButton;    Button1: TButton;    procedure Button7Click(Sender: TObject);    procedure Button8Click(Sender: TObject);    procedure Button9Click(Sender: TObject);    procedure Preview();    procedure FormClose(Sender: TObject; var Action: TCloseAction);    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  BarApp,BarDoc,BarVars:Variant;  OpenEd:boolean;{  MyApp:LabelManager2_TLB.Application;  MyDoc:LabelManager2_TLB.Document;  MyVars:LabelManager2_TLB.Variables;}implementation{$R *.dfm}procedure TForm1.Preview();begin  if not opened then    exit;  BarDoc.CopyToClipboard;  image1.Picture.Bitmap.Assign(Clipboard);end;{预览}procedure TForm1.Button1Click(Sender: TObject);begin  Preview;end;{打开并打印}procedure TForm1.Button7Click(Sender: TObject);Var   slab:string;begin  if not opendialog1.Execute then    exit;  slab:=opendialog1.FileName;  BarApp := CreateOleObject('lppx.Application');  opened:=true;  BarApp.Visible:=false;  BarDoc:=BarApp.ActiveDocument;  BarVars:=BarDoc.Variables;  BarDoc.Open(slab);  BarDoc.Variables.Item('Data1').Value:='ABCD';  BarDoc.Variables.Item('Data2').Value:='111';  BarDoc.Variables.Item('Data3').Value:='111ABCD';  Bardoc.Printlabel(1);  BarDoc.FormFeed;End;{设置打印机}procedure TForm1.Button8Click(Sender: TObject);begin  if not opened then    exit;  BarApp.Dialogs.Item(lppxPrinterSelectDialog).Show;  {================================================}  {运行到这一句出错:Method 'Dialogs' not supported by automation object}  {================================================}end;{关闭}procedure TForm1.Button9Click(Sender: TObject);begin  close;end;{窗体关闭}procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin  if not opened then    exit;  Bardoc.Close;  BarApp.Quit;end;{窗体创建}procedure TForm1.FormCreate(Sender: TObject);begin  opened:=false;end;end.