W
wulengbing
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TfrmMain.StkDataOK(var Msg:TMessage);
var
pHeader
RCV_DATA;
nBufSize:Integer;
num:Integer;
wFileType:Longint;
begin
Log(0,'收到消息...正在处理!');
//根据内存指针读取数据
pHeader := PRCV_DATA(Msg.LParam);
wFileType := Msg.WParam;
num := pHeader^.m_nPacketNum;
//行情数据
if wFileType = RCV_REPORT then
begin
nBufSize := pHeader.m_pReport^.m_cbSize;
end
//文件数据
else if wFileType = RCV_FILEDATA then
begin
end
else
//转为默认处理方式
begin
Log(0,'此消息按默认处理!');
end;
end;
num和nBufSize 为什么取不到值，经跟踪，后面的值都能提示出来，但是为什么赋不到变量里面呢？
var
pHeader
RCV_DATA;nBufSize:Integer;
num:Integer;
wFileType:Longint;
begin
Log(0,'收到消息...正在处理!');
//根据内存指针读取数据
pHeader := PRCV_DATA(Msg.LParam);
wFileType := Msg.WParam;
num := pHeader^.m_nPacketNum;
//行情数据
if wFileType = RCV_REPORT then
begin
nBufSize := pHeader.m_pReport^.m_cbSize;
end
//文件数据
else if wFileType = RCV_FILEDATA then
begin
end
else
//转为默认处理方式
begin
Log(0,'此消息按默认处理!');
end;
end;
num和nBufSize 为什么取不到值，经跟踪，后面的值都能提示出来，但是为什么赋不到变量里面呢？