转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
Authorware UCD 开发大揭秘(三)         ★★★★

Authorware UCD 开发大揭秘(三)

作者:闵涛 文章来源:闵涛的学习笔记 点击数:772 更新时间:2009/4/23 18:27:14
开   发   篇 

简单的开发过程。 

其实用Dephi实现这个功能太简单了,只需调用它自带的Pascal函数inputbox就行,但这里还有一个问题:Authorware 取得字符串型返回值的方式是取得分配给这个字符串的的内存的句柄,所以我们必须在单元文件中声明一个Handle型变量,用于存储该字符串返回值的句柄,而且这个返回值变量必须是一个全局变量而不是局部变量,切记!1!下面是这个函数的具体实现方法: 

//AW_inputboxdemo.dpr 

library inputboxdemo; 

interface 

uses 

SysUtils, 

windows, 

Messages, 

dialogs, //以上几行手工加入吧 

Classes; 

Var 

saveexit:pointer;//退出动态链接库的过程指针 

returnhandle:Thandle;//声明字符串返回值句柄 

{$R *.RES} 

{$R Awresource.RES}//加载字符串资源,万不可少! 


//函数实现过程 

function displayinputbox( caption,tiptxt,defaulttxt:Pchar):Thandle;stdcall; 

var //私有变量声明 

str_return, str_caption,str_tiptxt,str_defaulttxt:string;//对应于Pchar类型的string变量 

Preturnstr:Pchar;//代表返回字符串的Pchar型变量 

begin 

returnstrhandle:=globalalloc(GHND,255);//调用API函数给全局变量分配内存空间(255个字符, 

// 够大了 

P_returnstr:=globallock(returnstrhandle);//锁定内存并将值赋给P_returnstr; 

str_caption:=strpas(caption); //转化Pchar参数为string参数 

str_tiptxt:=strpas(tiptxt); 

str_defaulttxt:=strpas(defaulttxt); 

str_return:=inputbox(str_caption,str_tiptxt,str_defaulttxt); 

strpcopy(p_returnstr,str_return);//转化返回值为Pchar类型 

globalunlock(returnstrhandle);//内存解锁 

result:=returnstrhandle;//取得返回值 

end; 

exports //输出函数说明 

displayinputbox; 

procedure freehandle;//释放内存的私有过程 

begin 

globalfree(returnstrhandle); 

end; 


procedure libexit;//动态链接库的退出处理 

begin 

freehandle; 

exitproc:=saveexit; 

end; 

begin //动态链接库初始化处理 

saveexit:=exitproc; 

exitproc:=@libexit; 

end. 

好了,将它编译成inputboxdemo.dll 文件,并把它的扩展名改为.u32,启动Authorware,使用“function”功能在查找对话框中引入文件inputboxdemo.u32,看看出现了什么: 
使用方法:在计算图标中输入: 
username即为最终返回值. 
执行情况如图所示(在IDE环境下):


[Delphi程序]Authorware UCD 开发大揭秘(九)  [Delphi程序]Authorware UCD 开发大揭秘(八)
[Delphi程序]Authorware UCD 开发大揭秘(七)  [Delphi程序]Authorware UCD 开发大揭秘(五)
[Delphi程序]Authorware UCD 开发大揭秘(四)  [Delphi程序]Authorware UCD 开发大揭秘(二)
[Delphi程序]用DELPHI开发AUTHORWARE的u32  [平面设计]使用Authorware制作拼图游戏图解
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台