Question

我正在使用Mac OS中的Word 2011插件。目前，我需要在VBA宏中编写代码以从另一个应用程序中检索String（通过Socket通信）。因此，基本上在Windows中，我可以简单地创建一个DLL，帮助我与其他应用程序进行Socket通信，并将String值返回给VBA宏。

然而，在Mac中，我能够构建一个.dylib（在C中）并使用VBA与dylib进行通信。但是，我遇到了返回String的问题。我的简单C代码是这样的： char * tcpconnect（char *参数） {}

首先，它始终包含Chr（0）字符。其次，我怀疑这个C函数将无法处理Unicode String。

你们有经验或有任何相似的例子吗？

谢谢，

大卫

Answer 1

我的原始帖子是尝试使用malloc（）模仿SysAllocStringByteLen（），但是当Excel尝试释放返回的内存时，这将失败。使用Excel分配发出的内存修复程序，并且代码也较少，例如：

在test.c中：

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#define LPCSTR const char *
#define LPSTR char *
#define __declspec(dllexport)
#define WINAPI

char *saved_string = NULL;
int32_t saved_len = -1;

#define _CLEANUP if(saved_string) free(saved_string)

__attribute__((destructor))
static void finalizer(void) {
  _CLEANUP;
}

int32_t __declspec(dllexport) WINAPI get_saved_string(LPSTR pszString, int cSize) {
  int32_t old_saved_len = saved_len;
  if(saved_len > 0 && cSize >= saved_len)
    strncpy(pszString, saved_string, saved_len);
  if(saved_string) {
    free(saved_string);
    saved_string = NULL;
    saved_len = -1;
  }
  return old_saved_len;
}

int32_t __declspec(dllexport) WINAPI myfunc(LPCSTR *pszString) {
  int len = (pszString && *pszString ? strlen(*pszString) : 0);
  saved_string = malloc(len + 5);
  saved_len = len + 5;
  sprintf(saved_string, "%s%.*s", "abc:", len, *pszString);
  return saved_len;
}

用

编译上面的内容

gcc -g -arch i386 -shared -o test.dylib test.c

然后，在新的VBA模块中，使用下面的命令并运行“test”，它将“abc：”添加到字符串“hi there”中，并将结果输出到调试窗口：

Public Declare Function myfunc Lib "<colon-separated-path>:test.dylib" (s As String) As Long
Public Declare Function get_saved_string Lib "<colon-separated-path>:test.dylib" (ByVal s As String, ByVal csize As Long) As Long

Option Explicit

Public Function getDLLString(string_size As Long) As String
    Dim s As String
    If string_size > 0 Then
        s = Space$(string_size + 1)
        get_saved_string s, string_size + 1
    End If
    getDLLString = s
End Function

Public Sub test()
Debug.Print getDLLString(myfunc("hi there"))
End Sub

Mac Office 2011 VBA和Dylib

1 个答案: