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