我写的股票行情接受程序，为什么分析家接受不到？(100分)

发送行情数据
procedure TfrmMain.Button2Click(Sender: TObject);
var
gdata:RCV_REPORT_STRUCTEx;
gdata_min:RCV_MINUTE_STRUCTEx;
array_min:array of RCV_MINUTE_STRUCTEx;
gdata_his:RCV_HISTORY_STRUCTEx;
gdata_power:RCV_POWER_STRUCTEx;
glparm:RCV_DATA;
filehead:RCV_FILE_HEADEx;
eke_head:RCV_EKE_HEADEx;

gdata_gz:GZLXBINDATA;
begin
//行情数据只需要RCV_REPORT_STRUCTEx和RCV_DATA结构提供数据
gdata.m_cbSize := SizeOf(RCV_REPORT_STRUCTEx);
gdata.m_time := 100101;
gdata.m_wMarket := SH_MARKET_EX;
gdata.m_szLabel := 'SH123456' ;
gdata.m_szName := 'testte' ;
gdata.m_fLastClose := 0.01;
gdata.m_fOpen := 0.02;
gdata.m_fHigh := 0.03;
gdata.m_fLow := 0.04;
gdata.m_fNewPrice := 0.05;
gdata.m_fVolume := 0.06;
gdata.m_fAmount := 0.07;
gdata.m_fBuyPrice[0] := 0.08;
gdata.m_fBuyPrice[1] := 0.09;
gdata.m_fBuyPrice[2] := 0.10;
gdata.m_fBuyVolume[0] := 0.25;
gdata.m_fBuyVolume[1] := 0.26;
gdata.m_fBuyVolume[2] := 0.27;
gdata.m_fSellPrice[0] := 0.11;
gdata.m_fSellPrice[1] := 0.12;
gdata.m_fSellPrice[2] := 0.13;
gdata.m_fSellVolume[0] := 0.14;
gdata.m_fSellVolume[1] := 0.15;
gdata.m_fSellVolume[2] := 0.16;
gdata.m_fBuyPrice4 := 0.17;
gdata.m_fBuyVolume4 := 0.18;
gdata.m_fSellPrice4 := 0.19;
gdata.m_fSellVolume4 := 0.20;
gdata.m_fBuyPrice5 := 0.21;
gdata.m_fBuyVolume5 := 0.22;
gdata.m_fSellPrice5 := 0.23;
gdata.m_fSellVolume5 := 0.24;
//填充文件类型
filehead.m_dwAttrib := 9384;
filehead.m_dwLen := 10;
filehead.m_FileTime := 465121;

glparm.m_wDataType := FILE_BASE_EX;
glparm.m_nPacketNum := 1;
glparm.m_File := filehead;
glparm.m_bDISK := False;
glparm.m_pReport := @gdata;


//发送消息
SendMessage(RecForm,Msg_StkData ,RCV_REPORT,Longint(@glparm));
end;
发送补充分时数据
var
i:Integer;

gdata:RCV_REPORT_STRUCTEx;
gdata_min:RCV_MINUTE_STRUCTEx;
array_min:array of RCV_MINUTE_STRUCTEx;
gdata_his:RCV_HISTORY_STRUCTEx;
gdata_power:RCV_POWER_STRUCTEx;
glparm:RCV_DATA;
filehead:RCV_FILE_HEADEx;
eke_head:RCV_EKE_HEADEx;

gdata_gz:GZLXBINDATA;
begin
//文件头
{eke_head.m_dwHeadTag := EKE_HEAD_TAG;
eke_head.m_wMarket := SH_MARKET_EX;
eke_head.m_szLabel := 'SH223344' ;
gdata_min.m_head := eke_head;
gdata_min.m_time := 101010;
gdata_min.m_fPrice := 4.5;
gdata_min.m_fVolume := 1000;
gdata_min.m_fAmount := 5000;}

SetLength(array_min,10);
for i := 0 to 9 do
begin
if i = 0 then
begin
eke_head.m_dwHeadTag := EKE_HEAD_TAG;
eke_head.m_wMarket := SH_MARKET_EX;
eke_head.m_szLabel := 'SH223344' ;
gdata_min.m_head := eke_head;
array_min := gdata_min;
end
else
begin
gdata_min.m_time := 101010;
gdata_min.m_fPrice := 4.5;
gdata_min.m_fVolume := 1000;
gdata_min.m_fAmount := 5000;
array_min := gdata_min;
end;
end;

//填充文件类型
filehead.m_dwAttrib := 9384;
filehead.m_dwLen := 10;
filehead.m_szFileName := 'C:/tt.txt' ;
filehead.m_FileTime := 465121;

glparm.m_wDataType := FILE_MINUTE_EX;
glparm.m_nPacketNum := 10;
glparm.m_File := filehead;
glparm.m_bDISK := False;
glparm.m_pMinute := @array_min;


//发送消息
SendMessage(RecForm,Msg_StkData - 1,RCV_FILEDATA,Longint(@glparm));
为什么分析家不能处理我发送的消息。我根据的是分析家3.0接口规范开发的（单项传输）

顶