S
southbird
Unregistered / Unconfirmed
GUEST, unregistred user!
在定时器中 循环建立同一个线程类的多个实例(10个以上),此线程会向窗口线程,用sendmessage 发送消息,
在 wParam 参数中传递了一个结构的地址,
type
Tmyrecd=record
name:array[0..99]of char;
value:array[0..59]of char;
end;
var Plock:^Tmyrecd ;
sendmessage(mainform.Handle ,WM_MYmessage,integer(Pblock),0)
在窗口类中自定义消息接收函数
procedure Tmainform.GetMessages(var messge:TMessage);message WM_MYmessage ;
var newblock:^Tmyrecd;
begin
newblock:=ptr(message.WParam) ;
// 取出 newblock^.name ,newblock^.value 显示;
end;
程序有时会告指针错误,有时无任何错误提示就退出?
为何?消息中传递指针本身是不稳定的吗?
该如何处理?
在 wParam 参数中传递了一个结构的地址,
type
Tmyrecd=record
name:array[0..99]of char;
value:array[0..59]of char;
end;
var Plock:^Tmyrecd ;
sendmessage(mainform.Handle ,WM_MYmessage,integer(Pblock),0)
在窗口类中自定义消息接收函数
procedure Tmainform.GetMessages(var messge:TMessage);message WM_MYmessage ;
var newblock:^Tmyrecd;
begin
newblock:=ptr(message.WParam) ;
// 取出 newblock^.name ,newblock^.value 显示;
end;
程序有时会告指针错误,有时无任何错误提示就退出?
为何?消息中传递指针本身是不稳定的吗?
该如何处理?