从go调用Delphi dll

我有一个需要从golang（go）调用的Delphi dll。我可以使用syscall.syscall或windows.call加载和调用dll。这两种方法都正确执行dll。dll通过更改传递给它的字符串缓冲区来返回其结果。当我稍后检查字符串时，它是空的（在syscall中）或在windows.Call中是空的。我尝试了几种排列，但没有从应该存储结果的变量中得到我的值

使用windows的示例。调用：

    // Package getSID calls SIDgenerator and generates a SID for Retail Pro
    package main

    import (
        "fmt"
        "unsafe"

        "golang.org/x/sys/windows"

        "unicode/utf16"
    )

    var (
        sidgeneratorDLL, _ = windows.LoadDLL("sidgenerator64.dll")
        getRandomSID, _    = sidgeneratorDLL.FindProc("GetRandomSID")
    )

    // StringToCharPtr converts a Go string into pointer to a null-terminated cstring.
    // This assumes the go string is already ANSI encoded.
    func StringToCharPtr(str string) *uint8 {
        chars := append([]byte(str), 0) // null terminated
        return &chars[0]
    }

    // GetRandomSID generates random SID, UPC SID or ALU SID
    func GetRandomSID(Buffer []uint16, BufSize uint64) (result byte) {
        // var nargs uintptr = 2
        fmt.Println(Buffer)
        ret, _, callErr := getRandomSID.Call(uintptr(unsafe.Pointer(&Buffer)),
            uintptr(unsafe.Pointer(&BufSize)))

        // fmt.Println("Buffer", Buffer)

        if callErr != nil {
            fmt.Println("===== CallErr =====")
            fmt.Println(ret, callErr)
            //  fmt.Println("Buffer", Buffer)
        }
        result = byte(ret)
        return
    }

    func main() {
        defer sidgeneratorDLL.Release()
        buffer := utf16.Encode([]rune("12345678901234567890\000"))
        bufSize := uint64(len(buffer))
        fmt.Printf("Result in: %v\n", buffer)

        err := GetRandomSID(buffer, bufSize)
        fmt.Printf("Result in: %v\n", buffer)
        fmt.Println("Err =", err)
        fmt.Println("Called GetRandomSID")
        fmt.Printf("Result out: %v\n", buffer)
    }

func init() {
    fmt.Print("Starting Up\n")
}

使用syscall的示例：

    // Package getSID calls SIDgenerator and generates a SID for Retail Pro
    package main

    import (
        "fmt"
        "syscall"
        "unsafe"
    )

    var (
        sidgeneratorDLL, _ = syscall.LoadLibrary("sidgenerator64.dll")
        getRandomSID, _ =  syscall.GetProcAddress(sidgeneratorDLL, "GetRandomSID")
    )

    // GetRandomSID generates random SID, UPC SID or ALU SID
    func GetRandomSID(Buffer *[]byte, BufSize *uint32) (result byte) {
        var nargs uintptr = 2
        fmt.Println(*Buffer)
        ret, _, callErr := syscall.Syscall(uintptr(getRandomSID),  
        nargs,  0,
        uintptr(unsafe.Pointer(Buffer)), 
        uintptr(unsafe.Pointer(BufSize)),
        )

        fmt.Println(*Buffer)

        if callErr != 0 {
            fmt.Println("===== CallErr =====")
            fmt.Println(callErr)
        }
        result = byte(ret)
        return
    }

    func main () {
        defer syscall.FreeLibrary(sidgeneratorDLL)
        buffer := []byte("1234567890123456789012")
        bufSize := uint32(len(buffer))
        fmt.Printf("Result in: %s\n", string(buffer))
        err := GetRandomSID(&buffer, &bufSize)
        fmt.Println("Err =", err)
        fmt.Println("Called GetRandomSID")
        fmt.Printf("Result out: %s\n", string(buffer))
    }

    func init() {
        fmt.Print("Starting Up\n")
    }

任何帮助都将不胜感激。提前谢谢

C#外部声明：-------------------------------------

[DllImport("SIDGenerator.dll", CharSet = CharSet.Ansi)] static extern Boolean GetSIDFromALU(string ALU,  StringBuilder SID,  ref int buflen); 

 [DllImport("SIDGenerator.dll", CharSet = CharSet.Ansi)]  static extern Boolean GetSIDFromUPC( string UPC,  StringBuilder SID,  ref int buflen); 

 [DllImport("SIDGenerator.dll", CharSet = CharSet.Ansi)]  static extern Boolean GetRandomSID(StringBuilder SID, ref int buflen);   

Delphi外部声明：-------------------------------------

function GetSIDFromALU( ALU: Pchar;  Buffer: PChar;  var BufSize : integer ): LongBool; stdcall;  external ‘SIDGenerator.dll’; 

function GetSIDFromUPC( UPC: PChar;  Buffer: PChar; var BufSize : integer ): LongBool; stdcall; external ‘SIDGenerator.dll’; 

function GetRandomSID( Buffer: PChar;   var BufSize : integer ): LongBool; stdcall; external ‘SIDGenerator.dll’; 

在Python中，我用以下代码调用它，它工作得非常出色：

# Get Retail Pro SID using dll
from ctypes import windll, create_string_buffer, c_int, byref
# os.chdir("c:\\Users\\irving\\Documents\\gitHub\\POImport")
# print(os.getcwd())

# getSID is a Retail Pro dll use to generate SIDs
getSID = windll.SIDGenerator64
randomSID = getSID.GetRandomSID
aluSID = getSID.GetSIDFromALU
upcSID = getSID.GetSIDFromUPC

# Set this by hand now, later set it interactively or by parameter
subsidiary = "1"

def getRandomSID():
    """ Genera un SID aleatorio """
    # Generate a new random SID
    newSID = create_string_buffer(str.encode("12345678901234567890"))
    size = c_int(len(newSID))
    randomSID(newSID, byref(size))
    return newSID.value


def getALUSID(alu):
    """ Genera un SID basado en ALU """
    # Generate a new ALU base SID
    ALU = create_string_buffer(str.encode(alu))
    newSID = create_string_buffer(str.encode("12345678901234567890"))
    size = c_int(len(newSID))
    aluSID(ALU, newSID, byref(size))
    return newSID.value


def getUPCSID(upc):
    """ Genera un SID basado en UPC """
    # Generate a new UPC based SID
    UPC = create_string_buffer(str.encode(upc))
    newSID = create_string_buffer(str.encode("12345678901234567890"))
    size = c_int(len(newSID))
    upcSID(UPC, newSID, byref(size))
    return newSID.value

---

将指针传递给切片，而不是指向切片的支持数组的指针。 用你的windows。调用它应该是的代码

ret, _, callErr := getRandomSID.Call(uintptr(unsafe.Pointer(&Buffer[0])),
                   uintptr(unsafe.Pointer(&BufSize)))

或者您的syscall.syscall版本，其中是指向切片的指针

ret, _, callErr := syscall.Syscall(uintptr(getRandomSID),  
        nargs,  0,
        uintptr(unsafe.Pointer(&(*Buffer)[0])), 
        uintptr(unsafe.Pointer(BufSize)),
        )

---

请显示DLL的Delphi代码，这样我们就可以看到1）函数声明是否与Go兼容，2）它的实现是否正确访问Go的数据缓冲区。代码是专有的，我没有。我只有说明如何使用它的说明书。不久前我已经用Python做了这项工作。这就是我拥有的：C#外部声明：------------------------------------[DllImport（“SIDGenerator.dll”，CharSet=CharSet.Ansi）]静态外部布尔GetSIDFromALU（string ALU，StringBuilder SID，ref int buflen）；[DllImport（“SIDGenerator.dll”，CharSet=CharSet.Ansi）]静态外部布尔GetSIDFromUPC（string-UPC，StringBuilder-SID，ref-int-buflen）；[DllImport（“SIDGenerator.dll”，CharSet=CharSet.Ansi）]静态外部布尔GetRandomSID（StringBuilder SID，ref int buflen）；据我所知，syscall.syscall实现只允许指针。被调用的函数需要一个缓冲区，它修改该缓冲区以返回其结果。当我试图访问该缓冲区时，如果我使用syscall，它要么是空白的，要么如果我使用windows.Call，它就会崩溃——这就是为什么fmt.Printf（缓冲区）会被注释的原因。如果我取消对它的注释，程序将以死机告终。我附加了使用dll获取SID的Python代码。我想把它移走的主要原因是，一个单独的可执行文件很容易交付，而无需安装所有的Python堆栈和一大堆软件包（仅熊猫一个就有300兆）。谢谢！这一变化起到了不同的作用。现在我得到了值，但它们的格式不同（int16）。我会看看我是否能理解它。无论如何，它确实给出了可能需要做什么的想法。