C++ DLL 仅将第一个字符返回给 VB 应用程序

Question

我们的一位技术人员要求我编写一个小的库文件，他将在其中传递一个文件名和一个整数。库将加载文本文件并在文件名引用的文本文件中找到整数，然后将字符串返回给他的程序。他在使用 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 短剧。 Nothign似乎工作。我试图将字符串转换为各种其他类型，然后返回到 BSTR。尝试过 SysAlloc，但没有用。

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

Answer 1

您尝试过 MarshalAs 吗？

Private Declare Function stringBack Lib "c:\Development\gTP3200\Debug\gTP3200.dll" () As <MarshalAs(UnmanagedType.BStr)> String