delphi dll是否可用var参数_GO 调用 DLL 类库

最近一个项目需要用到Go调用C++的DLL类库 这里记录一下坑

DLL 原型

GetDllVersion函数原型：unsigned int GetDllVersion(void);获取dll版本信息返回值：DLL版本信息((unsigned int)，高字节为主版本信息，低字节为子版本信息=====================================================================SetQianNiuPath函数原型：int SetQianNiuPath(const char * Path, unsigned int PathLen);设置千牛安装路径(DLL不保存路径)参数： Path，千牛安装路径(最长不要超过255个字符) PathLen，安装你路径长度返回值：0 成功 -1 路径存在问题 -2 路径文件夹不存在=====================================================================

GO调用DLL

package mainimport ( "fmt" "syscall" "unsafe")var ( multiQianniuLogin = syscall.NewLazyDLL("MultiQianniuLoginDll.dll") getDllVersion = multiQianniuLogin.NewProc("GetDllVersion"))// 获取字符串的长度指针func lenPtr(s string) uintptr { return uintptr(len(s))}// 获取数字的指针func intPtr(n int) uintptr { return uintptr(n)}// 获取字符串的指针func strPtr(s string) uintptr { return uintptr(unsafe.Pointer(syscall.StringBytePtr(s)))}func main() { var ret uintptr var err error ret, _, err = getDllVersion.Call() fmt.Printf("%d.%d