TStringList无法获取插入的Object

[ying32]

TStringList无法获取插入的Object

[ying32]

我修改了下，这样写才对，有可能被GC

package main

import (
	"unsafe"

	"github.com/ying32/govcl/vcl"
)

type Person struct {
	Name string
}

func main() {
	// 这里已经是指针了
	p1 := &Person{}
	p1.Name = "Tom"

	strList := vcl.NewStringList()
        // 要记得添加内存释放的
	defer strList.Free()
	// 这里直接使用
	strList.AddObject("item1", vcl.ObjectFromInst(uintptr(unsafe.Pointer(p1))))

	// 这里要获取指针的实例地址
	item1 := (*Person)(unsafe.Pointer(strList.Objects(0).Instance()))
	println("Name = " + item1.Name)

}

[ismlsmile]

前面我的测试代码有个笔误：
strList.AddObject("item1", vcl.ObjectFromInst(uintptr(unsafe.Pointer(&p1))))

后面取了指针的指针，所以怎么试都崩溃，用上面你改的示例可以运行。

但拿到事件回调函数中获取就不行了，应该是被gc了。可能需要类似ListView和TreeView那样的改造。

[ying32]

你检出下dev分支的代码，然后这样写个看看

package main

import (
	"unsafe"
	"github.com/ying32/govcl/vcl"
)

type Person struct {
	Name string
}

func main() {
	// 这里已经是指针了
	p1 := &Person{}
	p1.Name = "Tom"

	strList := vcl.NewStringList()
        // 要记得添加内存释放的
	defer strList.Free()
	// 这里直接使用
	strList.AddObject("item1", vcl.ObjectFromUnsafePointer(unsafe.Pointer(p1)))

	item1 := (*Person)(strList.Objects(0).UnsafeAddr())
	println("Name = " + item1.Name)

}

[ismlsmile]

checkout了dev分支测试了一下，上面的代码运行OK。在事件回调中测试也OK，完美！

[ying32]

哈哈，遇到GC上面的代码也不知道会有不会啥意外的