由于tcl给出的扩展接口只能用C/C++ 代码来扩展,并且扩展的函数必须使用Tcl提供的固定函数来注册,这样就不能直接调用一个现成的动态库(例如a.dll)了,如果要在Tcl中使用a.dll中的函数,就必须重新包含tcl的库和头文件,重新的编译a.dll,如果这个a.dll,是别人的,这个工作是无法完成的,即使是自己写的,也会是一个很大的工作量。
还有一个办法就是(a.dll 应是用C++编译出来的)Tcl的扩展库,在这个扩展库中调用a.dll动态库中的函数,也就是给a.dll中的函数再加一个包装,使它符合tcl的要求。(a.dll 应是用C++编译出来的)
实例如下:
在MyDLL动态库中,有函数Add(int num1,int num2);用于 num1 和 num2的求和。
// s1.cpp : 定义 DLL 应用程序的导出函数。
//
如果报错_T()函数无法解析,就加入头文件tchar.h
#include "stdafx.h"
#include "tcl.h"
#include <iostream>
#include <tchar.h>
using namespace std;
static int MyAdd_Cmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
typedef int (*AddFunc)(int a,int b);
int num[2];
if(objc != 3)
{
Tcl_WrongNumArgs(interp,1,objv,"arg1 arg2");
return TCL_ERROR;
}
for(int varindex = 1;varindex <= 2; varindex++)
{
if(Tcl_GetIntFromObj(interp,objv[varindex],&num[varindex - 1]) != TCL_OK)
{
Tcl_WrongNumArgs(interp,1,objv,"is Int Type");
return TCL_ERROR;
}
}
HINSTANCE hInstLibrary = LoadLibrary(_T("MyDLL.dll"));//注意此处必须有_T()函数。
AddFunc _AddFunc = (AddFunc)GetProcAddress(hInstLibrary, "Add");
int tmp = _AddFunc(num[0], num[1]);
Tcl_SetObjResult(interp,Tcl_NewIntObj(tmp)); //将结果返回给解析器
//Tcl_SetObjResult(interp, Tcl_NewStringObj("Hello, World!", -1));
FreeLibrary(hInstLibrary);
return TCL_OK;
}
/* Tcl的入口函数*/
extern "C" __declspec(dllexport) int S_Init(Tcl_Interp *interp)
{
if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
return TCL_ERROR;
}
if (Tcl_PkgProvide(interp, "s1", "1.0") == TCL_ERROR) {
return TCL_ERROR;
}
//注册命令
Tcl_CreateObjCommand(interp, "my_add", MyAdd_Cmd, NULL, NULL);
return TCL_OK;
}
将编译生成的s1.dll 和原来的 MyDLL.dll 都拷贝到tcl安装目录的bin下,然后加载s1.dll就ok了。
输入:my_add 2 3
返回 : 5 说明成功了