Visual Graph图形平台的使用
本人所在单位于2005年购买了北京图王的Visual Graph图形引擎平台企业版，此期间使用Visual Graph图形引擎平台开发了不少图形应用项目：电力设备管理系统、电力一次接线图管理系统，二次接线图管理系统，图形配调系统，操作票、任务票的两票系统，现在我将自己使用的一些Visual Graph在开发的时候遇到的一些问题与感受及经验整理成一篇文章，抛砖引玉，期待得到大家指点来指点一下。
 由于我们单位的系统都是老系统，delphi开发出来的，所以为了和老系统方便交互，我们几个人也学了半个月的delphi来开发电力的图形系统，一开始，我们只是想用Visual Graph来开发一个电力线路管理系统。后来领导看到了，觉得系统不错，一发不可收拾，陆续得开发了许多图形相关的电力系统。现在用delphi调用Visual Graph来进行说明：
第一步：安装Visual Graph
首先点击Visual Graph目录上的注册COM.bat，最后显示注册成功，其实这一步就是注册Visual Graph的ActiveX组件，他的组件名为vg.dll.用命令行批处理写上 regsvr32 vg.dll。
  那么就要在Delphi里面调出ActiveX了。
Visual Graph的VG组件是遵循ActiveX标准的控件，很容易安装到自己的开发环境中。

　　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
  vgctrl1.Run( ExtractFilePath( Application.ExeName ) + 'hmi.tbl' );
end;
运行一张图，如下所示：

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

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

procedure TForm1.Button4Click(Sender: TObject);
var
  uu : IUnit;
  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的接口函数.
  ret := uu.GetPropertyValue( 'text' );
//或者也可以用
//ret := vgctrl1.vg.Execute( 'return文字A.text' );
  ShowMessage( ret );
end;

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

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

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

 

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

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

 

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运算符能返回函数或者过程的地址。

 

比如：

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

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

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"。

 

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

沙发~~

。。。。。人气真差啊

顶个

谢谢啦