1、数据定义
TIMELY_KLINE = 0; {切换即时行情}
MINUTE1_KLINE = 35; {1分}
MIN5_KLINE = 1; {5分}
MIN15_KLINE = 2; {15分}
MIN30_KLINE = 3; {30分}
MIN60_KLINE = 4; {1小时}
DAY_KLINE = 5; {日}
WEEK_KLINE = 6; {周}
MONTH_KLINE = 7; {月}
YEAR_KLINE = 8; {年}
HOUR2_KLINE=9; {2小时}
HOUR4_KLINE=10; {4小时}
RCV_REPORT=$3f001234; {分时图}
{ WM_APP+1 发送数据,WM_APP+2为切换K线类型 }
WM_APP=$8000; {消息代码}
2、K线数据结构
RCV_KLINE_STRUCTEx= packed record
m_cbSize:Word; {结构大小}
m_time:time_t; {交易时间}
m_fLastClose:Single; {昨收}
m_fOpen:Single; {今开}
m_fHigh:Single; {最高}
m_fLow:Single; {最低}
m_fVol:Single; {成交量}
end;
PRCV_KLINE_STRUCTEx = ^RCV_KLINE_STRUCTEx;
3、K线数据空间
RCV_DATA=packed record
btAppendOrOverwrite:Integer; {追加还是覆盖,1追加,2覆盖 ,3覆盖最后一条}
m_wDataType:Integer;
m_nPacketNum :Integer;
m_pKline:PRCV_KLINE_STRUCTEx {k线图}
end;
4、分时走势数据结构
RCV_REPORT_STRUCTEx= packed record
m_cbSize:Word; {结构大小}
m_time:time_t; {交易时间}
m_fLastClose:Single; {昨收}
m_fOpen:Single; {今开}
m_fHigh:Single; {最高}
m_fLow:Single; {最低}
m_fNewPrice:Single; {最新}
m_fVol:Single; {成交量}
end;
PRCV_REPORT_STRUCTEx = ^RCV_REPORT_STRUCTEx;
5、分时走势数据空间
RCV_DATA_pReport=packed record
btAppendOrOverwrite:Integer; {追加还是覆盖,1追加,2覆盖 ,3覆盖最后一条}
m_wDataType:Integer;
m_nPacketNum :Integer;
m_pReport:PRCV_REPORT_STRUCTEx; {行情数据}
end;
RKILE_DATE = record {表单数据结构类型定义}
m_time:time_t; {交易时间}
m_fLastClose:Single; {昨收}
m_fOpen:Single; {今开}
m_fHigh:Single; {最高}
m_fLow:Single; {最低}
m_fNewPrice:Single; {最新}
m_fVol:Single;{成交量}
end;
RRKILE_DATE = array of RKILE_DATE;