2

我们的一位技术人员要求我编写一个小型库文件，他将在其中传递文件名和整数。该库将加载文本文件并在文件名引用的文本文件中查找整数，并将字符串返回给他的程序。他在使用 VB 作为其脚本语言的第三方应用程序中工作。

因此，不想担心他安装了他的设备的一些旧机器上的 .net 安装，我决定尝试 C++（VS 2010）。我正在用 C# 进行应用程序开发，最后一次编译任何 C++ 代码是在 VS 6 中，但我认为这有多难？好吧，我在这里打字，所以事情发生了明显的错误。我从 C++ 端开始。

#include <WTypes.h>
#include <comutil.h>
#include <string.h>

BSTR _stdcall regExConv(BSTR fileName, int modNumber);

BSTR _stdcall regExConv(BSTR fileName, int modNumber) {
    string inText;
    // open the file and read in the text from the file
    ifstream testFile;
    testFile.open("C:\\Test\\testFile.txt", ifstream::in);
    if(testFile.fail())
        MessageBox(NULL,L"Failed to Open", NULL, NULL);
    while (testFile.good())
        getline(testFile, inText);
    testFile.close();
    _bstr_t passString(inText.c_str());
    BSTR finalPass = passString.copy();
    return finalPass;
}

这很好用。finalPass 给了我文本文件中的测试字符串。

Locals Window:

inText  "eeeeeeeee" std::basic_string<char,std::char_traits<char>,std::allocator<char> >

passString  {"eeeeeeeee" (1)}   _bstr_t

finalPass   0x00722214 "eeeeeeeee"  wchar_t *

在 VB 方面，我有这个。

Public Class Form1
    Private Declare Function testFunc Lib "c:\Development\gTP3200\Debug\gTP3200.dll" (ByVal testVar As Integer) As Integer
    Private Declare Function stringTest Lib "c:\Development\gTP3200\Debug\gTP3200.dll" (ByVal Str As String) As String
    Private Declare Function regExConv Lib "c:\Development\gTP3200\Debug\gTP3200.dll" (ByVal fileString As String, ByVal faultedMod As Integer) As String
    Private Declare Function stringBack Lib "c:\Development\gTP3200\Debug\gTP3200.dll" () As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim retVal As String
        retVal = regExConv("file name pass", 3)
    End Sub
End Class

两者说得很好，问题是返回到 VB 端的字符串只是inText.

Locals Window:

retVal  "e" String

两天来，我试图阅读所有关于它的内容，但我开始觉得我在一个糟糕的 Monty Python 短剧中。似乎没什么用。我试图将字符串转换为其他各种类型，然后再转换回 BSTR。试过 SysAlloc，没用。

如果我将字符串作为参数传递给 BSTR，然后再次将其传回（如文件名），则 VB 端会读入整个字符串。

4

1 回答 1

2

你试过 MarshalAs 吗？

Private Declare Function stringBack Lib "c:\Development\gTP3200\Debug\gTP3200.dll" () As <MarshalAs(UnmanagedType.BStr)> String
于 2012-05-02T16:00:38.800 回答