如何将Visual FoxPro的DLL调用正确转换为.NET 8代码？

问题分析 #

核心问题出在调用约定不匹配和字符串编码设置错误：

1. Visual FoxPro的DECLARE语句默认使用StdCall调用约定，而.NET 8的LibraryImport默认采用Cdecl约定，两者不匹配会导致调用栈异常，抛出"External component has thrown an exception"。
2. VFP中的STRING参数默认采用Windows ANSI编码（CP_ACP），而非UTF-8，你之前的UTF8设置不符合VFP的字符串传递规则。

正确的.NET 8代码实现 #

方式一：使用LibraryImport（推荐.NET 7+）

明确指定调用约定为StdCall，字符串编码为ANSI：

partial class Program {
    [LibraryImport("miles32.dll", 
                  StringMarshalling = StringMarshalling.Ansi,
                  CallingConvention = CallingConvention.StdCall,
                  SetLastError = true)]
    private static partial int GetHHGDistance(string startLocation, string endLocation);

    static void Main(string[] args) {
        try {
            // 严格保留VFP参数中的尾部空格，确保与DLL预期输入一致
            var result = GetHHGDistance("Woxall              PA", "Philadelphia        PA");
            Console.WriteLine($"Result: {result}");
        } catch (Exception ex) {
            Console.WriteLine(ex.ToString());
        }
    }
}

方式二：使用传统DllImport（兼容所有.NET版本）

如果LibraryImport仍有问题，可换回DllImport并明确配置：

using System.Runtime.InteropServices;

class Program {
    [DllImport("miles32.dll", 
               CharSet = CharSet.Ansi,
               CallingConvention = CallingConvention.StdCall,
               SetLastError = true)]
    private static extern int GetHHGDistance(string startLocation, string endLocation);

    static void Main(string[] args) {
        try {
            var result = GetHHGDistance("Woxall              PA", "Philadelphia        PA");
            Console.WriteLine($"Result: {result}");
        } catch (Exception ex) {
            Console.WriteLine(ex.ToString());
        }
    }
}

额外验证要点 #

• 保持发布目标为win-x86：miles32.dll是32位库，必须匹配32位运行环境，不能使用x64或AnyCPU。
• 确保miles32.dll位于程序运行目录或系统PATH可访问路径。
• 严格保留参数中的尾部空格：部分第三方DLL会依赖固定格式的输入字符串，空格缺失可能导致函数逻辑错误或异常。

内容的提问来源于stack exchange，提问作者Dan Lopez