-1

我想为我的一些 tcl 方法创建一个可加载的 DLL。但我不知道如何做到这一点。为此，我举了一个简单的 tcl api 示例，它添加两个数字并打印总和。现在我想为此创建一个可加载的 DLL 来导出这个 tcl 功能。

但我不明白如何在 Visual Studio 中做到这一点。我编写了一个 C 代码，它可以调用这个 tcl api 并获得两个整数的总和，但我也不希望它这样做。我想创建一个 DLL 文件来使用这个 tcl 功能。如何在 Visual Studio 2010 上创建此 DLL。

下面是我正在使用的示例 tcl 程序：

#!/usr/bin/env tclsh8.5
proc add_two_nos { } {

set a 10

set b 20

set c [expr { $a + $b } ]

puts " c is $c ......."

}

这是可以使用此 tcl 功能的 C 代码：

#include <tcl.h>
#include <stdio.h>
#include <stdlib.h>

    int main(int argc, char **argv) {
    Tcl_Interp *interp;
    int code;
    char *result;

    Tcl_FindExecutable(argv[0]);
    interp = Tcl_CreateInterp();
    code = Tcl_Eval(interp, "source myscript.tcl; add_two_nos");

    /* Retrieve the result... */
    result = Tcl_GetString(Tcl_GetObjResult(interp));

    /* Check for error! If an error, message is result. */
    if (code == TCL_ERROR) {
    fprintf(stderr, "ERROR in script: %s\n", result);
    exit(1);
    }

    /* Print (normal) result if non-empty; we'll skip handling encodings for now */
    if (strlen(result)) {
    printf("%s\n", result);
    }

    /* Clean up */
    Tcl_DeleteInterp(interp);
    exit(0);
    }

我已经使用以下命令成功编译了这段代码 gcc simple_addition_wrapper_new.c -I/usr/include/tcl8.5/ -ltcl8.5 -o simple_addition_op

上面的代码正在使用预期的输出。

在 Visual Studio 2010 中为此创建可加载的 dll 需要采取哪些步骤？

4

1 回答 1

0

如果你看一下这个问题的答案：这里它给出了你需要经历的过程的基本轮廓。我的回答中有一些关于创建 DLL 的 Microsoft MSDN 文章的链接。

更详细地介绍其中嵌入了 Tcl 的 C++ dll。

第一步是创建一个具有正确类型的新 Visual Studio 项目，该项目将构建一个导出符号的 dll。我的示例项目名为 TclEmbeddedInDll，该名称出现在代码中的符号中，例如由 Visual Studio 生成的 TCLEMBEDDEDINDLL_API。

dllmain.cpp 如下所示：

// dllmain.cpp : Defines the entry point for the DLL application.
#include "stdafx.h"

BOOL APIENTRY DllMain( HMODULE hModule,
    DWORD  ul_reason_for_call,
    LPVOID lpReserved
    )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
        {
            allocInterp() ;
            break ;
        }

    case DLL_THREAD_ATTACH:
        break ;
    case DLL_THREAD_DETACH:
        break ;
    case DLL_PROCESS_DETACH:
        {
            destroyInterp() ;
            break;
        }
    }
    return TRUE;
}

和函数在 TclEmbeddedInDll.h 中定义allocInterp()，destroyInterp()这里使用函数而不是直接创建 Tcl_Interp 的原因是它使有关 Tcl 的细节远离 DLL 接口。如果您在此处创建 interp，则必须包含 tcl.h，然后当您尝试在另一个程序中使用 DLL 时，事情会变得复杂。

接下来显示 TclEmbeddedInDll.h 和 .cpp，该函数fnTclEmbeddedInDll()是从 DLL 导出的函数——我为此使用 C 链接而不是 C++，因为它更容易从其他语言调用函数恕我直言。

// The following ifdef block is the standard way of creating macros which make exporting 
// from a DLL simpler. All files within this DLL are compiled with the TCLEMBEDDEDINDLL_EXPORTS
// symbol defined on the command line. This symbol should not be defined on any project
// that uses this DLL. This way any other project whose source files include this file see 
// TCLEMBEDDEDINDLL_API functions as being imported from a DLL, whereas this DLL sees symbols
// defined with this macro as being exported.
#ifdef TCLEMBEDDEDINDLL_EXPORTS
#define TCLEMBEDDEDINDLL_API __declspec(dllexport)
#else
#define TCLEMBEDDEDINDLL_API __declspec(dllimport)
#endif

extern "C" {
    TCLEMBEDDEDINDLL_API void fnTclEmbeddedInDll(void);

}

void allocInterp() ;
void destroyInterp() ;


// TclEmbeddedInDll.cpp : Defines the exported functions for the DLL application.
//

#include "stdafx.h"

extern "C" {

    static Tcl_Interp *interp ;

    // This is an example of an exported function.
    TCLEMBEDDEDINDLL_API void fnTclEmbeddedInDll(void)
    {
        int code;
        const char *result;
        code = Tcl_Eval(interp, "source simple_addition.tcl; add_two_nos");
        result = Tcl_GetString(Tcl_GetObjResult(interp));
    }
}

void allocInterp() 
{
    Tcl_FindExecutable(NULL);
    interp = Tcl_CreateInterp();
}

void destroyInterp()
{
    Tcl_DeleteInterp(interp);
}

allocInterp() 和 destroyInterp() 的实现非常幼稚，没有进行错误检查。

最后，对于 Dll，stdafx.h 文件将它们联系在一起，如下所示：

// stdafx.h : include file for standard system include files,
// or project specific include files that are used frequently, but
// are changed infrequently
//

#pragma once

#include "targetver.h"

#define WIN32_LEAN_AND_MEAN             // Exclude rarely-used stuff from Windows headers
// Windows Header Files:
#include <windows.h>

// TODO: reference additional headers your program requires here
#include <tcl.h>
#include "TclEmbeddedInDll.h"
于 2013-01-30T09:15:10.273 回答