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

======================================================
注：本文源代码点此下载
======================================================

第一步:安装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脚本体系添加一个内部函数。利用此函数可以扩充脚本语言的能力。

第一个参数是函数的名字(32个字符以内);

第二个参数是参数类型,串中每一个字符代表一个参数类型

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()”),就能调用它了。

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

visual graph专业图形平台,适合开发各行业涉及图形的应用系统,例如电力、煤炭、化工、自动化监控、仿真、图形建模、图形拓扑分析、矢量绘图、 中国式表格、gis地理信息系统、工作流等。详情请访问:http://www.visual-graph.com

标签: 电力, 图形, 接线图, 配图, 电力信息, 电网, 线损, 仿真

绿色通道:好文要顶关注我收藏该文与我联系

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/