欢迎访问 Forcal程序设计
FORCAL扩展动态库
往Forcal中添加常量、函数或其他任意类型的数据是非常方便的。为了便于函数和数据共享,常将函数和数据封装到动态库中,以动态库的形式向Forcal添加,这种动态库称Forcal扩展动态库。Forcal扩展动态库只需要一个输出函数:
//Forcal扩展动态库唯一的输出函数;
//hFC:Forcal32W.dll的句柄;bInit=true:初始化动态库,bInit=false:释放动态库;
//me:指向任意数据的指针,可用于验证用户能否使用该库,为了方便验证,约定该指针指向一个wchar_t类型的字符串。
//bInit=true时,返回值ForcalDll=0:初始化失败;ForcalDll=1:初始化成功;返回值ForcalDll=2:初始化成功,仅注册一些常量,初始化完成后可卸载该库。
//bInit=false时,返回值ForcalDll=0:释放失败;ForcalDll=1:释放成功;
extern "C" int _stdcall FcDll32W(HINSTANCE hFC,bool bInit,void
*me)
{
.
.
.
if(bInit) //初始化动态库
{
.
.
.
return 1;
}
else
//释放动态库
{
.
.
.
return 1;
}
}
可以看出,虽然Forcal扩展动态库只有一个输出函数,但该函数接受了主调程序加载的Forcal32W.dll的句柄,因而可以完成任意复杂的功能。为了应用程序的安全性,在Forcal扩展动态库中禁止使用InitForcal(初始化FORCAL)和FreeForcal(释放FORCAL)这两个函数。
设计商业性Forcal扩展动态库时,在初始化过程中要验证me,看宿主程序提供的字符串形式的注册码是否符合要求,若符合要求,商业库可提供全部功能,否则仅提供部分功能或禁止使用该库。
如果在动态库中启动了另一线程,要注意多线程程序中使用Forcal函数的原则,即:除了GetRunErr()、TestRunErr()和SetRunErr()三个函数外,其余的函数只能在单线程中使用(不允许两个及两个以上的线程同时运行这些函数)。为此,约定用pUseForcal=SearchKey("UseForcal",FC_PrivateKey_User); 获得一个函数指针进行多线程之间互斥使用Forcal的通讯,该函数可在主程序或Forcal扩展动态库中定义,函数说明如下:
//(1)iUse=1时,表示要申请使用Forcal,若函数返回值
UseForcal=0:申请成功;UseForcal=1:申请不成功,
//其他线程正在使用Forcal,稍后再进行申请;UseForcal=-1:申请不成功,表示应用程序要释放Forcal,
//因此要做好退出前的准备工作。
//(2)iUse=2时,表示要申请使用Forcal,如果其他线程正在使用Forcal,函数不返回,进行等待,直至申请成功。
//若函数返回值
UseForcal=0:申请成功;UseForcal=1:申请不成功,线程本身正在使用Forcal,不能重复进行申请;
//UseForcal=-1:申请不成功,表示应用程序要释放Forcal,因此要做好退出前的准备工作。
//(3)iUse=0时,表示要归还Forcal的使用权,函数返回值无意义。
//(4)iUse=3时,设置安全标志,表示Forcal运行正常,函数返回值无意义。 一般在二级函数中设置该标志,当该函
//数在较长时间内运行时,可用此标志通知Forcal,此时的运行是正常的,没有陷入无限循环等情况。
//(5)iUse=4时,取消安全标志,表示Forcal运行处于不可控制阶段(有陷入无限循环的可能),函数返回值无意义。
//(6)iUse=5时,查询安全标志,UseForcal=0:运行正常;UseForcal=1:运行情况无法预测(有陷入无限循环的可
//能),这是Forcal运行的一般情况。
//注意1:Forcal是极为重要而有限的资源,用完后要及时归还。
//注意2:UseForcal(1)(或者UseForcal(2))和UseForcal(0)必须成对使用。注意不能在二级函数中使用该功能,
//因为二级函数本身就是在Forcal工作区中运行的。
//注意3:UseForcal(3)和UseForcal(4)也要成对使用,且一般在二级函数中使用该功能。
extern "C" int
_stdcall UseForcal(int
iUse);
在主调程序或任一个Forcal扩展动态库中均可以设置一个函数void _stdcall FcMessage(wchar_t *);。然后将该函数的地址用InsertKey("FcMessage",9,FC_Key_User,FcMessage,NULL,v)传送给Forcal。约定所有Forcal扩展动态库都使用该函数发送信息。任一线程均可根据需要设置该函数。
在设计Forcal扩展动态库时,要采用二级函数命名空间方式(例如:"Fun2Space::FunName")输出函数,以尽量避免函数重名。
在设计Forcal扩展动态库时,要遵循谁注册函数和数据谁释放的原则。
在加载和卸载Forcal扩展动态库时,要遵循先进后出的原则,即先加载的后进行卸载。
可以用C/C++、delphi、FORTRAN等任一种高级语言设计Forcal扩展动态库。
以下是目前的几个Forcal动态库列表,这些库可以通过程序“ForcalTest.exe”、“ForcalDemo.exe”或“MForcalDemo.exe”进行演示:
类别及说明 | 动态库 | 用途 |
基础库:完成最重要的功能或包含最重要的库函数,可作为构建其他动态库的基础 | FcData32W | Forcal数据扩展动态库。支持简单的到任意复杂的数据类型,基本操作对象是FcData数据指针。 |
MForcal32W | Forcal模块化编译运行动态库。 | |
QuitFc32W | 退出Forcal运行时的无限循环。在任意可接受输入的窗口,按 Ctrl+Alt+Q(q) 键可以退出Forcal运行时的无限循环。 | |
标准库:比较规范,经过优化的实用动态库 | FcDataEx32W | Forcal数据扩展动态库。在FcData32W的基础上,直接操作复杂的FcData数据类型。 |
FcIO32W | Forcal标准输入输出动态库。 | |
FcString32W | Forcal字符串操作动态库。 | |
FcSystem32W | Forcal系统函数库,主要是Forcal系统或操作系统相关的函数。 | |
OpenFcGl32W | 基于OpenGL的进行图形绘制的动态库。 | |
FcWin32W | 是一个Windows窗口库,包含一些实用窗口函数。例如:用户可在控件窗口中自定义多个控件。 | |
XSLSF32W | Forcal数值计算扩展动态库,包含大量数值算法。所包含的算法都是行之有效的,基本可以满足解决工程中各种实际问题的需要。 | |
例子动态库:帮助用户学习用的动态库,实用性差。 | ||
FcConst | 向Forcal中添加常量,添加完常量即可卸载该库。 | |
Example | 向Forcal注册函数。 |
版权所有© Forcal程序设计
2002-2010,保留所有权利
E-mail: forcal@sina.com
QQ:630715621
最近更新:
2010年09月27日