模仿分析家读取行情数据,怎么读不出来呢?
ajiva 2001-07-31 02:19:08 模仿分析家读取行情数据,怎么读不出来呢?
LRESULT CDllTestDlg::WindowProc(UINT message, WPARAM wParam, LPARAM lParam)
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~选择这个是否正确???
{
// TODO: Add your specialized code here and/or call the base class
OnStkDataOk(wParam, lParam);
return CDialog::WindowProc(message, wParam, lParam);
}
LONG CDllTestDlg::OnStkDataOk(UINT wParam, LONG lParam)
{
// TODO: Add your specialized code here and/or call the base class
//union tagSrcStock DOS_StkBuf;
RCV_REPORT_STRUCTEx NEW_StkBuf;
PBYTE pDataBuf;
RCV_DATA Header;
RCV_DATA * pHeader;
//STOCK * pStock = NULL;
DWORD dwFileLen;
int ok,i;
CString temp;
CString m_name;
int p;
pHeader = (RCV_DATA *)lParam;
char name[32];
switch( wParam )
{
case RCV_REPORT: // 股票行情
//m_name.Insert(32,pHeader->m_pReport[0].m_szName);
// m_name.Insert(32,Header.m_pReport[0].m_szName);
temp.Format("收到数据:%10d-行情",count++);
pEdit->SetWindowText(temp);
this->SetWindowText(m_name);
for(i=0; i<pHeader->m_nPacketNum; i++)
{
m_float=pHeader->m_pReport[i].m_fHigh;
//????pHeader里的数据expression cannot be evaluated????
UpdateData(FALSE);
}
// 数据处理
// for(p=0;p<STKNAME_LEN;p++)
// m_name+=pHeader->m_pReport[0].m_szName[p];
// pEdit->SetWindowText(m_name);
// }
break;
case RCV_FILEDATA: // 文件
switch(pHeader->m_wDataType)
{
case FILE_HISTORY_EX: // 补日线数据
temp.Format("收到数据:%10d-日线数据",count++);
pEdit->SetWindowText(temp);
/* for(i=0;i<pHeader->m_nPacketNum;i++)
{
if(pHeader->m_pDay[i].m_head.m_dwHeadTag==EKE_HEAD_TAG)
{
pStock = FindStock(pHeader->m_pDay[i].m_head.m_wMarket,
pHeader->m_pDay[i].m_head.m_szLabel); //由股号查股票
}
else if(pStock)
{
AppendDayData(pStock,&pHeader->m_pDay[i]); //补充日线数据
}
}
*/
break;
case FILE_MINUTE_EX: // 补分钟线数据
// ...
temp.Format("收到数据:%10d-分钟线",count++);
pEdit->SetWindowText(temp);
break;
case FILE_POWER_EX: // 补充除权数据
// ...
temp.Format("收到数据:%10d-除权数据",count++);
pEdit->SetWindowText(temp);
break;
case FILE_BASE_EX: // 钱龙兼容基本资料文件,m_szFileName仅包含文件名
// ...
temp.Format("收到数据:%10d-公司资料",count++);
pEdit->SetWindowText(temp);
break;
case FILE_NEWS_EX: // 新闻类,其类型由m_szFileName中子目录名来定
// ...
temp.Format("收到数据:%10d-财经新闻",count++);
pEdit->SetWindowText(temp);
break;
case FILE_HTML_EX: // HTML文件,m_szFileName为URL
// ...
temp.Format("收到数据:%10d-HTML文件",count++);
pEdit->SetWindowText(temp);
break;
case FILE_SOFTWARE_EX: // 升级软件
// ...
temp.Format("收到数据:%10d-软件升级",count++);
pEdit->SetWindowText(temp);
break;
}
break;
default:
return 0;
}
}