Question

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

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

#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，没有用。

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

Answer 1

你是否尝试过MarshalAs？

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

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

1 个答案: