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, 100) // 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))
    }