UPDATE2

Question

现在我正在尝试将char字符串作为下面的c函数。

这是DLL的C函数，

char _stdcall *fmt_hex(long long num, int nbits, char *d)
{
    sprintf(d, "0x%0*llX", (nbits - 1) / 4 + 1, num);
    return (d);
}

以下是Excel VBA功能。

Option Explicit

Private Declare PtrSafe Function pll_dll Lib "F:\work\pll_dll\x64\Debug\pll_dll.dll" (ByVal num As LongLong, ByVal nbits As Integer, ByRef d As String)

Dim d As String

Sub useSquareInVBA()

    Cells(4, 4).Text = pll_dll(3, 4, d)

End Sub

但是当我运行此代码时，我的程序停止了。你能告诉我我该怎么做才能解决这个问题吗？

UPDATE2

当我使用此代码运行时 “C”

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

double _stdcall pll_dll(double* datain0, double* datain1, double* dataout0, double* dataout1,  char * str)
{
    dataout0[0] = datain0[0] + 10;
    dataout1[0] = datain1[0] + 10;

    str ="c";

    return 0;
}

“VBA”

Option Explicit

Private Declare PtrSafe Function pll_dll Lib "F:\work\pll_dll\x64\Debug\pll_dll.dll" _
(ByRef x_in As Double, ByRef y_in As Double, ByRef x_out As Double, ByRef y_out As Double, ByRef str As String) As Double

Dim Error As Integer

Dim d1 As Double
Dim d2 As Double
Dim d3 As Double
Dim d4 As Double
Dim sometext As String


Function pll_dll_excel(data1 As Double, data2 As Double, data3 As Double, data4 As Double, text As String) As Double

pll_dll_excel = pll_dll(data1, data2, data3, data4, text)

End Function

Sub useSquareInVBA()
    MsgBox pll_dll_excel(3, 4, d1, d2, sometext)
    Cells(5, 5).Value = d1
    Cells(6, 6).Value = d2
    Cells(7, 7).Value = sometext
End Sub

不，程序暂停，但某些文字总是空的“”值。

你能帮我吗？

UPDATE3

我已经查看了这里的文章。

How to return a string of unknown size from DLL to Visual Basic

当我遵循这篇文章时，我意识到这不是“C”。我如何成为“C”？

Answer 1

我遇到了类似的问题，这篇文章是最相关的搜索结果。

我没有给出问题的直接解决方案（归功于 GSerg 提出了正确的方法），而是发布了我如何实现接收作为参考传递的字符数组的通用版本：

C 函数（共享库）：

int func(int a, double b, char *result) {
    ...
    result[0] = 'A';
    result[1] = 'B';
    result[2] = '\0';
    return EXIT_SUCCESS;
}

VBA：

Option Explicit

' Import DLL function
Private Declare PtrSafe Function func Lib "C:\path\to\c-shared-library.dll" _
    (ByVal a As Integer, ByVal b As Double, ByVal result As String) As Integer

' Functions for use by Excel - DLL functions cannot be directly used
Function getResult(ByVal a As Integer, ByVal b As Double) As String
    Dim status As Integer
    Dim result As String
    result = Space$(2)
    status = func(a, b, result)
    If status = 0 Then getResult = result Else Err.Raise 1000, "Error", "Failed to get result"
End Function

在我的情况下，结果总是一个两个字符的数组，但我认为可以相应地修改上述方法。

如何在VBA（Excel Visual Basic）中从DLL接收“char * d”？

UPDATE2

UPDATE3

1 个答案: