深度解析工业图形专家（VG）在delphi中的使用

Visual Graph图形平台在delphi中的使用

第一步：安装Visual Graph
首先点击Visual Graph目录上的注册COM.bat，最后显示注册成功，其实这一步就是注册Visual Graph的ActiveX组件，他的组件名为vg.dll.用命令行批处理写上 regsvr32 vg.dll。
 <wbr> 那么就要在Delphi里面调出ActiveX了。
Visual Graph的VG组件是遵循ActiveX标准的控件，很容易安装到自己的开发环境中。</wbr>

　　1、注册北京图王的Visual Graph的VG组件。
　　2、打开DELPHI，选择Component;Import ActiveX Control…菜单。
　　3、在Import ActiveX窗体中选择Visual Graph ActiveX Control Module选项，点击最下面的【Install…】按钮。
　　4、在Package窗体中点击【Compile】、【Install】按钮，退出时选择不保存。
　　5、在控件区的ActiveX页中出现一个Visual Graph的VG组件图标，表示安装成功。
　　6、直接将Cell图标拖到Form中即可使用。
7、Visual Graph的VG组件提供了几种开发环境中的Demo，可以直接照办使用，那基本就是一个样的Demo。

第二步：在Delphi窗体里面加入并调用 Visual Graph
最开始使用Visual Graph的时候是进行图形管理与控制，也就是说，画出几个库图元之后，用户可以自己加载图库，从图库里面加入图形，并对图形进行一些属性设置。
我觉得它的技术特点如下：
1)非常人性化设计，提供最为完善的绘制、修改方法，各种显示模式，随意切换。
2)与常见的绘图、文档编辑软件的操作方式相似，使用户可以在短时间内掌握绘图的使用方法。
3)丰富的一致的图元库让用户绘制图形无需从头开始，只要轻轻的拖曳即可做出漂亮的图形。
4)VG里面全部是矢量绘图，缩放自如。
5)绘图过程比用纸笔画图更简单方便和精准，图层控制等格式设置.
6)基本绘图库让用户可以通过直线、曲线、弧线、矩形和椭圆工具等元素绘制出新的图形。
7)矢量图形抗锯齿。让您绘制的图形在任何角度都保持美观。
8)无限撤销和重做功能，使用更加方便灵活。
9)可以输出为VG专用的绘图格式TBL与Bin，其他图形格式.
10)所见即所得的操作方式。

 

 

 

第三步：图形控制
首先拖入一个VG控件，在窗口的OnShow代码里面写上：
procedure TForm1.FormShow(Sender: TObject);
begin
 <wbr> vgctrl1.Run( ExtractFilePath( Application.ExeName ) + 'hmi.tbl' );
end;

运行一张图，如下所示：</wbr>

 

 <wbr>procedure TForm1.Button1Click(Sender: TObject);
var
 </wbr><wbr> uu : IUnit;
 </wbr><wbr> ret : Integer;
begin
 </wbr><wbr> uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
 </wbr><wbr> ret := uu.GetPropertyValue( 'Value' );
//或者也可以用
//ret := vgctrl1.vg.Execute('return '+TButton(sender).Caption+'.Value');
 </wbr><wbr> ShowMessage( IntToStr( ret ) );
end;</wbr>

procedure TForm1.Button3Click(Sender: TObject);
var
 <wbr> uu : IUnit;
 </wbr><wbr> ret : Boolean;
begin
 </wbr><wbr> uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
 </wbr><wbr> ret := uu.GetPropertyValue( 'OnOff' );
//或者也可以用
//ret := vgctrl1.vg.Execute( 'return开关指示A1.OnOff' );
 </wbr><wbr> if ret then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> ShowMessage( 'true' )
 </wbr><wbr> else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> ShowMessage( 'false' );
end;</wbr>

procedure TForm1.Button4Click(Sender: TObject);
var
 <wbr> uu : IUnit;
 </wbr><wbr> ret : String;
begin
//首先从图形里面取得这个Iunit对象的指针，通过Isheet类里面的UnitByName函数，通过图元名字得到对象指针
uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
//再从对象指针里面获取其属性，由于text是Itext类的属性，而Iunit是Itext类的父类，如果想直接用COM接口得到Text属性，那就要Itext(uu).text，才行。同样GetPropertyValue是万能的取得属性值的函数。SetPropertyValue是万能的设置属性值的函数,这两个函数是Iunit的接口函数.
 </wbr><wbr> ret := uu.GetPropertyValue( 'text' );
//或者也可以用
//ret := vgctrl1.vg.Execute( 'return文字A.text' );
 </wbr><wbr> ShowMessage( ret );
end;</wbr>

procedure TForm1.Button5Click(Sender: TObject);
var
 <wbr> uu : IUnit;
begin
 </wbr><wbr> uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton(sender).Caption );
 </wbr><wbr> uu.SetPropertyValue( 'value', 6 );
end;</wbr>

procedure TForm1.Button7Click(Sender: TObject);
var
 <wbr> uu : IUnit;
begin
 </wbr><wbr> uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
 </wbr><wbr> uu.SetPropertyValue( 'OnOff', True );
end;</wbr>

procedure TForm1.Button8Click(Sender: TObject);
var
 <wbr> uu : IUnit;
begin
 </wbr><wbr> uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
 </wbr><wbr> uu.SetPropertyValue( 'text', 'Visual Graph' );
end;</wbr>

 <wbr></wbr>

第四步：在Delphi与Visual Graph脚本混合编程交互

 

这两个事例，都是运用了AddFunction函数。

 <wbr></wbr>

AddFunction

void=AddFunction(string, string, int, long)

该函数属于高级应用，给Visual Graph脚本体系添加一个内部函数。利用此函数可以扩充脚本语言的能力。 第一个参数是函数的名字（３２个字符以内）； 第二个参数是参数类型，串中每一个字符代表一个参数类型 1-整数(Int) 2-小数(Double) 3-逻辑型(bool) 4-字符串(string) 比如有( Int,double )做为函数参数时，就用"12"表示。 第三个参数是返回值类型 如49（'1'的ASC码）表示返回一个整数。 此外，如果没有返回值，用48('0'的ASC码)表示。 第四个参数是函数地址。 在C语言中，函数名就是函数地址。 在Pascal语言中，函数名前加“@”表示地址。 在Visual Basic语言中，AddressOf运算符能返回函数或者过程的地址。

 <wbr></wbr>

比如：

procedure TForm1.FormShow(Sender: TObject);
begin
 <wbr> vgctrl1.AddFunction( 'CallDelphiEditChange', '44', 48, Longint( @CallDelphiEditChange ) );
 </wbr><wbr> vgctrl1.AddFunction( 'CallDelphiRadioButtonCli</wbr><wbr>ck', '41', 48, Longint( @CallDelphiRadioButtonCli</wbr><wbr>ck ) );
 </wbr><wbr> vgctrl1.AddFunction( 'CallDelphiCheckBoxClick', '43', 48, Longint( @CallDelphiCheckBoxClick ) );
 </wbr><wbr> vgctrl1.Run( ExtractFilePath( Application.ExeName ) + 'demo.tbl' );
 </wbr><wbr> UseDelphiControl := true;
end;</wbr>

在Visual Graph脚本里面是这样写的：
CallDelphiCheckBoxClick(Sender.Name, Sender.Checked)
CallDelphiEditChange( Sender.Name, Sender.Value )
CallDelphiRadioButtonCli<wbr>ck(Name, 0)
那么VG脚本就能调用delphi内部的函数，
那么现在Delphi如何调用VG的函数呢？，那么要运用VG的Execute万能函数了。</wbr>

Execute

variant=Execute(string)

执行脚本语句，并返回一个值（如果脚本最后有return语句的话），脚本语句可以是多行的长串。 示例： Execute( "Print()" )打印视图当前页。 Execute( "ActiveSheetIndex=2" )页面翻到第三页（0是第一页）。 Execute( "Text1.Text='Hello'" )设置某文字单元的文字内容。 Execute( "Sheet2.Text1.Text='Hello'" )设置Sheet2页上某文字单元的内容。 Execute( "x=2;y=3;return x+y" )返回5。 Execute( "s='ABC';return s" )返回"ABC"。

 <wbr></wbr>

在Delphi里面就这样使用：
Vgctrl1.Execute(“ActiveSheet. AddUnit(‘text’,1,1,0,0)”)就可以增加一个图元了。
如查在设计图形时，给页面增加了一个自定义函数。
那么用
Vgctrl1.Execute(“ActiveSheet. SelfInvoke()”)，就能调用它了。

 

 

北京图王软件：http://www.visual-graph.com