我是刚刚进公司的新员工,最近在修改公司之前的程序时发现自己的DELPHI环境无法调试程序
总是这一些错误提示,下面是程序的部分代码及错误提示,还请各位前辈指教一下,快两天了还是好无头绪!!!!
Type
Application1: TApplication;////////////////Try
Application1.Connect;
Application1.Documents.Open(vFilePath+labelfile,false);
editLabel.Text:=vFilePath+labelfile;
except
editLabel.Text:='';
MessageDlg('Start CodeSoft Error,Please Install CodeSoft First!',mtError,[mbCancel],0);
end;总是提示TApplication中没有Connect与Documents该成员
Open方法未定义
还有很多地方也是提示TApplication无此成员(在向模板变量传值时)。
总是这一些错误提示,下面是程序的部分代码及错误提示,还请各位前辈指教一下,快两天了还是好无头绪!!!!
Type
Application1: TApplication;////////////////Try
Application1.Connect;
Application1.Documents.Open(vFilePath+labelfile,false);
editLabel.Text:=vFilePath+labelfile;
except
editLabel.Text:='';
MessageDlg('Start CodeSoft Error,Please Install CodeSoft First!',mtError,[mbCancel],0);
end;总是提示TApplication中没有Connect与Documents该成员
Open方法未定义
还有很多地方也是提示TApplication无此成员(在向模板变量传值时)。
Application1.Connect;
Application1.Documents.Open(vFilePath+labelfile,false);
普通的Application1好像没有Connect、Documents.Open的,是不是codesoft公司自己扩展的?
Var
BarApp,BarDoc:Variant;
Begin
BarApp := CreateOleObject('lppx.Application');
BarApp.Visible:=True;
BarDoc:=BarApp.ActiveDocument;
BarVars:=BarDoc.Variables;
BarDoc.Open('T018S1.Lab');
BarDoc.Variables.Item('Data1').Value:='ABCD';
BarDoc.Variables.Item('Data2').Value:='111';
BarDoc.Variables.Item('Data3').Value:='111ABCD';
Bardoc.Printlabel(1);
BarDoc.FormFeed;
Bardoc.Close;
BarApp.Quit;
End;
2.点Component-》Import Component-》选择Import Activex Control
3.点Add按钮,选择CodeSoft的ActiveX控件OLE库文件Lppx2.tlb
4.点Next按钮,然后在Palette Page 选择Activex,其它默认
5. 点Next按钮后选择最后 一项,Add Unit to project1.dproj project (应该解决为添加至现在的文件内)
6.点Finish后,然后在右边的项目文件管理中,右击项目文件,选择Install,安装即可
7.重新打开Delphi后就不会再有异常提示了