如果是Edit1.Text := Res这一行,则修改为 Edit1.Text := string(Res)
你说明白啊,哪个地方报错?
StrDispose, 这个你不能使用,
Description
StrDispose is provided for backward compatibility only. StrDispose disposes of a string on a heap that was previously allocated with StrAlloc or StrNew.
If Str is nil, StrDispose does nothing.需要和StrAlloc或StrNew一起使用。
去掉最后2行,就可以了。
既然传入参数是地址,那你应该传入地址。。。IPCAST_GetTermStatus(abuffer[0], @ptermsta)
声明也不对
pTerm:LPTermAttr 应该改为 delphi里的指针声明
pTerm:TermAttr (TermAttr = ^LPTermAttr)
还有一点是,你delphi的结构体和c++的那个大小并不一致,最后三个属性肯定不准
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)