A
ArFly
Unregistered / Unconfirmed
GUEST, unregistred user!
问一问个位大翁，我这个线程执行体为什么会占CPU资源的90%以上？？我是仿SPCOMM的写线程来做的。
procedure TWriteThread.Execute;
var
msg: TMsg;
begin
While (Not Terminated)do
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
if (Msg.hwnd <> 0) then
begin
TranslateMessage(msg);
DispatchMessage(msg);
Continue;
end;
case msg.message of
CWM_WRITEDATA:
begin
Self.HandleWriteData(PVCI_CAN_OBJ(msg.wParam),msg.lParam);
LocalFree(HLOCAL (msg.wParam));
end;
end;
end;
end;
end;
procedure TWriteThread.Execute;
var
msg: TMsg;
begin
While (Not Terminated)do
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
if (Msg.hwnd <> 0) then
begin
TranslateMessage(msg);
DispatchMessage(msg);
Continue;
end;
case msg.message of
CWM_WRITEDATA:
begin
Self.HandleWriteData(PVCI_CAN_OBJ(msg.wParam),msg.lParam);
LocalFree(HLOCAL (msg.wParam));
end;
end;
end;
end;
end;