procedure TfrmMain.StkDataOK(var Msg:TMessage);
var
pHeader:PRCV_DATA;
nBufSize:Integer;
num:Integer;
wFileType:Integer;
begin
pHeader := PRCV_DATA(Msg.LParam);
wFileType := Msg.WParam;
nBufSize := pHeader.m_pReport.m_cbSize;
//行情数据
if wFileType = 1056969268 then
begin
nBufSize := pHeader.m_pReport.m_cbSize;
end
//文件数据
else if wFileType = 1056969269 then
begin end
else
//转为默认处理方式
begin
Log(0,'此消息按默认处理!');
end;
end;
收到的消息wFileType 也等与1056969268,但就是不往下走了,直接跳到最后一个end;了。不知道是为什么?谁能告诉我.
谢谢啦!
var
pHeader:PRCV_DATA;
nBufSize:Integer;
num:Integer;
wFileType:Integer;
begin
pHeader := PRCV_DATA(Msg.LParam);
wFileType := Msg.WParam;
nBufSize := pHeader.m_pReport.m_cbSize;
//行情数据
if wFileType = 1056969268 then
begin
nBufSize := pHeader.m_pReport.m_cbSize;
end
//文件数据
else if wFileType = 1056969269 then
begin end
else
//转为默认处理方式
begin
Log(0,'此消息按默认处理!');
end;
end;
收到的消息wFileType 也等与1056969268,但就是不往下走了,直接跳到最后一个end;了。不知道是为什么?谁能告诉我.
谢谢啦!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货