Go调用Delphi编写的DLL

参数整数没有问题，但是如果是字符串，要注意几个细节。

记录如下：

1.Delphi定义函数的时候，字符串参数需要使用PChar类型

2.Go传递参数的时候要将字符串转成UTF16的指针，接收的时候采用uint16的切片。

     dll := syscall.MustLoadDLL("Encryptdll.dll")
     defer syscall.FreeLibrary(dll.Handle)
     f1 := dll.MustFindProc("test06")
     fmt.Println("f1>>>>", f1)

     p1, _ := syscall.UTF16PtrFromString("sql")
     p2 := make([]uint16, ) // pass word limited length! syscall.MAX_PATH

     r1, r2, err := f1.Call(uintptr(unsafe.Pointer(p1)), uintptr(unsafe.Pointer(&p2)))
     if err != nil {
         fmt.Println(r1, r2, p1, p2, err.Error(), syscall.UTF16ToString(p2))
     }