Delphi 开发易语言支持库再获重大进展，支持窗口控件了
声明1：以本人名义发布的消息从来都不代表易语言官方消息。其实这何需声明，明摆的事嘛，可是我被某些人吓怕了，诚惶诚恐，特此声明。
声明2：未经本人（liigo）同意，此文禁止转载。
Delphi 开发易语言支持库再获重大进展，支持窗口控件了
Delphi 开发易语言支持库再获重大进展，经初步研究已经可以支持窗口控件。
易语言将再次拥抱Delphi，拥抱VCL。
易语言之福，易友之福。
2008年4月3日，请记住这个节日。
众所周知，易语言支持库开发接口中，早已将窗口控件的数据类型固定为MFC中的 CWnd*，要用MFC之外的技术开发易语言窗口控件，有可能吗？很多人早已在潜意识中就否定了这种可能性。包括本人（liigo）， 在三年前（2004.9）将易语言支持库C/C++开发接口转换为Pascal接口（第二版）时，就曾经写下这样一段话：“用Delphi编写带窗口组件的易语言支持库是几乎不可能的（我没有说的很死），……”现在我很庆幸当时用了括号，没有把话说绝，还留下了一丝可以回旋的余地，否则今日岂不无地自容？。“‘说不清’是一句极有用的话。……即使和讨饭的女人说话，也是万不可省的。”（鲁迅《祝福》）
下面是小道消息。
前天（2008年4月2日）晚上，吴涛再次提出封装VCL窗口控件的想法（上次提出封装VCL是在三年之前，当时想按照封装ActiveX的思路进行，未果），并给出了将VCL控件之外再套一个MCF窗口的实现思路。昨天（2008年4月3日），研究此思路是否可行的重任交到了海洋肩上。 在研究了一整天之后，终于得到了可喜的结果。最终结果与吴涛的思路完全契合，只是稍有变通：将VCL窗口控件直接创建到易语言的窗口或容器组件上，同时给该VCL窗口控件“伪造”一个 CWnd* 对象（这一功能由易语言核心库提供接口），让易语言窗口系统认为它也是一个“合法”的易语言窗口控件。在事件处理方面，我们发现，如果将VCL控件直接作为易语言窗口或控件的子窗口，则VCL控件有时不能触发其自身事件。这其实与Windows消息机制有关，有些消息并不是直接发送给窗口（HWND）自身，而是发送给其父窗口。解决办法也很简单，只要让“需要接收事件的VCL控件”不作为易语言窗口的“直接子窗口”就可以了。例如：要处理“VCL按钮”的被单击事件，需要先在易语言窗口（或其它容器窗口）上放一个“VCL面板”，再在“VCL面板”上放“VCL”按钮。反之，易语言窗口控件要接收事件的话也不能作为VCL窗口控件的直接子窗口。已经比较理想了，MFC和VCL混用，做到这一步，至少我（liigo）很满意。易语言的广大用户，能用上丰富多采的VCL控件，应该也会很满意吧？
吴涛不愧是易语言之父，别人不敢想的他敢想，别人做不了的他做了，技术嗅觉异常敏感。海洋不愧是最早的一批易友，易语言熟，C++熟，Delphi也熟，技术非常扎实，思路非常开阔。
现在感觉，我4年前（2003.5）定制的Delphi开发易语言支持库的框架，结构太丑陋，（为什么当时就认为比较理想呢？），尤其是支持库大了之后，代码堆积在一起不说，仅定义一个函数就要把代码分散在多处，难以维护。我希望能再找一段时间，把这个框架好好调整一下，至于能不能找到更好的结果……我“说不清”。“易语言.飞扬”的C/C++开发接口的定义形式值得参考，考虑到与Pascal语言的差异，也未必可以行得通，但不妨一试。
附，之前的Delphi的易语言支持库开发框架（部分代码）：
////////////////////////////////////////////////////////////////////////////////
//
初始化库信息
procedureInitLibInfo;beginLibInfo.m_dwLibFormatVer:
=
LIB_FORMAT_VER;LibInfo.m_szGuid:
=
PChar(
'
94BF81E432384A65867F69EF07C71D6D
'
);
//
在Delphi中按下[Ctrl+Shift+G]即可得到一个全球唯一的GUID字串。一旦支持库发布，就不要更改此GUID了。——liigo注
LibInfo.m_nMajorVersion:
=
2
;
//
主版本号
LibInfo.m_nMinorVersion:
=
0
;
//
次版本号
LibInfo.m_nBuildNumber:
=
0
;
//
构建版本号
LibInfo.m_nRqSysMajorVer:
=
3
;LibInfo.m_nRqSysMinorVer:
=
0
;LibInfo.m_nRqSysKrnlLibMajorVer:
=
3
;LibInfo.m_nRqSysKrnlLibMinorVer:
=
0
;LibInfo.m_szName:
=
PChar(
'
Delphi写的支持库,liigo*
'
);
//
支持库名称
LibInfo.m_nLanguage:
=
__GBK_LANG_VER;LibInfo.m_szExplain:
=
PChar(
'
用Delphi写的易支持库，仅仅是做一下测试而已，博君一笑。现在急着拿出这个预览版，不是为了哗众取宠，而是因为我这几天做了一些比较有益的事情（把易支持库开发文档中的C++声明文件转换成了Pascal声明文件，花了很多心思的^_^），
'
+
'
希望把这个成果拿出来和易友们共同分享，希望大家有更多的方式开发易语言支持库，希望易语言越走越好！希望大家开开心心！！
'
+
'
安装了本支持库，在易主窗口“工具”菜单下应该会出现“关于liigo的支持库”一项（前提是您打开或新建了一个程序）。
'
+
#
13
+
#
10
+
'
下一步Liigo将推出更多有实用价值的易语言支持库，敬请关注！
'
);LibInfo.m_dwState:
=
0
;LibInfo.m_szAuthor:
=
PChar(
'
liigo
'
);
//
作者
LibInfo.m_szZipCode:
=
nil;LibInfo.m_szAddress:
=
nil;LibInfo.m_szPhoto:
=
nil;LibInfo.m_szFax:
=
nil;LibInfo.m_szEmail:
=
PChar(
'
[email protected]
'
);LibInfo.m_szHomePage:
=
nil;LibInfo.m_szOther:
=
nil;LibInfo.m_nDataTypeCount:
=
DatatypeCount;LibInfo.m_pDataType:
=
@DatatypeInfo;LibInfo.m_nCategoryCount:
=
1
;LibInfo.m_szzCategory:
=
PChar(
'
0000命令分类(1)
'
+
#
0
);LibInfo.m_nCmdCount:
=
CommandsCount;LibInfo.m_pBeginCmdInfo:
=
@CommandsInfo;LibInfo.m_pCmdsFunc:
=
@ImpCommands;LibInfo.m_pfnRunAddInFn:
=
AddInFunction;LibInfo.m_szzAddInFnInfo:
=
PChar(
'
关于liigo的支持库
'
+
#
0
+
'
具体的我也不说了，反正是预览版，没什么可讲！
'
+
#
0
);LibInfo.m_pfnNotify:
=
ProsessNotify;LibInfo.m_pfnSuperTemplate:
=
nil;LibInfo.m_szzSuperTemplateInfo:
=
nil;LibInfo.m_nLibConstCount:
=
ConstsCount;LibInfo.m_pLibConst:
=
@ConstsInfo;LibInfo.m_szzDependFiles:
=
nil;end;
////////////////////////////////////////////////////////////////////////////////
//
初始化命令信息
//
为保证支持库的向后兼容，请尽量在已有命令的后面添加新的命令。如果在中间插入新的命令，可能会影响使用本支持库的易语言程序。
procedureInitCommandsInfo;vari:Integer;begin
//
采用for+case的结构，可使新增一个命令或常量时，在复制、粘贴之后，尽可能减少修改代码的次数。下同。
for
i:
=
0
toHigh(CommandsInfo)
do
case
i
+
1
of
1
:
//
第一个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
求两数和
'
);m_szEGName:
=
PChar(
'
SumNum
'
);m_szExplain:
=
PChar(
'
这是对“求两数和”命令的介绍，简单加法……（liigo删削888字，和和）。
'
);m_shtCategory:
=
1
;m_wState:
=
0
;m_dtRetType:
=
SDT_INT;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
2
:
//
第二个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
新版信息框
'
);m_szEGName:
=
PChar(
'
Msg
'
);m_szExplain:
=
PChar(
'
调用API函数MessageBox产生的信息框窗口。
'
);m_shtCategory:
=
1
;m_wState:
=
0
;m_dtRetType:
=
_SDT_NULL;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
3
:
//
第三个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
关于
'
);m_szEGName:
=
PChar(
'
AboutMe
'
);m_szExplain:
=
PChar(
'
这是对“关于”命令的介绍，弹出一个有Delphi特色的窗口。本库上一版太大了，是因为里面包含了delphi窗体，这一版把窗体取消了，支持库的尺寸也小多了。
'
);m_shtCategory:
=
1
;m_wState:
=
0
;m_dtRetType:
=
_SDT_NULL;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
4
:
//
第四个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
播放Flash
'
);m_szEGName:
=
PChar(
'
PlayFlash
'
);m_szExplain:
=
PChar(
'
弹出一个窗口，在其中播放指定的SWF文件。本库上一版太大了，是因为里面包含了delphi窗体，这一版把窗体取消了，支持库的尺寸也小多了。
'
);m_shtCategory:
=
1
;m_wState:
=
0
;m_dtRetType:
=
_SDT_NULL;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
5
:
//
第五个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
构造函数
'
);m_szEGName:
=
PChar(
'
Init
'
);m_szExplain:
=
PChar(
''
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
512
+
4
;
//
512表示这是构造函数，4表示隐藏。一般人我不告诉他。(liigo)
m_dtRetType:
=
_SDT_NULL;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
6
:
//
第六个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
析构函数
'
);m_szEGName:
=
PChar(
'
Free
'
);m_szExplain:
=
PChar(
''
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
256
+
4
;
//
256表示这是析构函数，4表示隐藏。一般人我不告诉他。(liigo)
m_dtRetType:
=
SDT_INT;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
7
:
//
第七个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
置数值
'
);m_szEGName:
=
PChar(
'
SetValue
'
);m_szExplain:
=
PChar(
''
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
0
;m_dtRetType:
=
_SDT_NULL;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
8
:
//
第八个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
取数值
'
);m_szEGName:
=
PChar(
'
GetValue
'
);m_szExplain:
=
PChar(
'
返回“置数值”所写入的数值
'
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
0
;m_dtRetType:
=
SDT_INT;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
9
:
//
第九个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
取测试字节集
'
);m_szEGName:
=
PChar(
'
Method1
'
);m_szExplain:
=
PChar(
''
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
0
;m_dtRetType:
=
SDT_BIN;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
10
:
//
第十个命令的信息---------------------------------------------------------
withCommandsInfo[i]
do
beginm_szName:
=
PChar(
'
取测试文本
'
);m_szEGName:
=
PChar(
'
Method1
'
);m_szExplain:
=
PChar(
''
);m_shtCategory:
=
-
1
;
//
-1表示本命令是某数据类型的方法
m_wState:
=
0
;m_dtRetType:
=
SDT_TEXT;m_wReserved:
=
0
;m_shtUserLevel:
=
LVL_HIGH;m_shtBitmapIndex:
=
0
;m_shtBitmapCount:
=
0
;m_nArgCount:
=
High(ArgumentsInfo[i])
+
1
;m_pBeginArgInfo:
=
pARG_INFO(ArgumentsInfo[i]);end;
//
在此添加其它命令信息
end;
//
endofcaseandfor
end;
////////////////////////////////////////////////////////////////////////////////
//
初始化参数信息
procedureInitArgumentsInfo;vari,j,count:Integer;begin
for
i:<span
分享到：
评论