vs2008 中，在编译Tcl扩展库时调用其他的动态库 （动态库调用动态库）

        由于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  说明成功了