飞狐交易师 (foxtrader) 连结 DLL 的方法

ycng

许多年以前,我曾经在
理想公式区发布了
"
如何用 Foxtrader(飞狐)连结 C++动态程式库 DLL及 80x86Macro Assembly (组合语言)
"
  v5 _" i5 ], F
现在更新foxtrader(飞狐交易师)
连结 DLL的方法

% W7 w& k8 h0 J' a: S, Sfoxtrader- - > DLL (C++ and assembly) = ( foxfunc.h + foxfunc.cpp +pow10.asm )
0 g+ H) o8 e5 k$ m4 X3 o5 Egauss- - > DLL (C++ and assembly) = ( foxfunc.cpp + meigj.asm )
gauss只用到函数参数传递,所以使用新的 c++compiler, 不受影响
+ \3 M8 _, A8 Efoxtrader的 foxfunc.h宣告的结构型态 (struct)在 2004vc++ 6.0 全部有效
  s8 f4 U/ m# T+ c1 S
也就是这五个结构都能用
4 q( ~" q: W9 otypedefstruct tagSTKDATA
7 }( }! q% J4 ], y3 _4 p) {typedefunion tagSTKDATAEx
typedefstruct tagSPLITDATA
( a+ N/ {! [0 d# B- Htypedefstruct tagCALCPARAM
5 n3 _) w" P- xtypedefstruct tagCALCINFO
& T* n1 a: S$ V8 C3 ^; g. G* B$ G; N
5 Q  J* P7 m) M9 i; K) M自2008年起,vc++ 2008, vc++ 2010, vc++2017 对struct的编译,已经完全 c++化,不再相容于 C
* Q1 R2 F; N* \  r+ R. p也就是这五个结构中
6 T! \- d, o: `7 w" T* Vtypedefstruct tagSTKDATA
typedefunion tagSTKDATAEx
typedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
+ B2 M' ?8 {7 V9 Y7 |# `typedefstruct tagCALCINFO
/ f5 G, Z, B% g只有这两个可以用
typedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
值得庆幸的是,下面这个结构的函数参数传递个数可以有无数个
0 v; N% U" x8 n% @# ^7 btypedefstruct tagCALCPARAM
例如:在 foxtrader中
$ C3 D+ V8 E. G8 v  y9 O6 Q$ OMA1:=MA(CLOSE,3);
# x! T. E" Z( ]( _; [- |1 |MA2:=MA(CLOSE,6);
MA3:=MA(CLOSE,12);
MA4:=MA(CLOSE,24);
6 E0 Q2 X1 H- Z# z3 H7 e) [MYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,5)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0}
其中MYFUNC2017=MYFUNC2017.dll, MYBBI = MYFUNC2017.dll 中的MYBBI函数,这里 MYBBI函数传递的参数共有 7个
下面这两式计算结果相同
1 ~1 u* ^5 T+ a  a3 A, B: Oxx:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12),MA(CLOSE,24),MA(CLOSE,12),),MA(CLOSE,24)/6*0.95,color0000ff,linethick2;{foxtrader 自行计算}
( V- ?1 y4 P+ u+ K* q% ^# rMYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,6)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0 , dll计算}
# F& i7 _, b. m  s7 l. w# `; F0 Z其他例子
oooq:="MYFUNC2008good@MYMACLOSE"(c,,c,c,6),colorffffff,linethick5;(---> pow10.asm)
oooq1:"MYFUNC2010@MYMAVAR"(ma(c,5),5),colorgreen,linethick5;
) ^9 e7 ~* ?9 z其中pow10.asm里面有很多不同定义或宣告被注解不用,那是因为后来在逐步侦测法修改语码中才发现在foxfunc.cpp主程式中,下面这行错误,也就是新的 compiler不再相容于 C,因此在pow10.asm里面被注解不用的定义或宣告中,有些应该是可以用的
fTotal= pData->m_pData.m_fClose; // @@@@@@@ vc++ 2010 cl.exe 使pData->m_pData[i-j].m_fClose错误
1 T7 t+ Q: m2 V+ ^
$ w: O& K+ T9 F  ~: K7 w* ^
; @; r! y$ ^, Z( F////////////////////////////////////////////////////////foxfunc.h
9 ?6 F9 D& n; `( \) S8 v#ifndef__FOXFUNC_H_INCLUDE
#define__FOXFUNC_H_INCLUDE
9 R8 ~6 m+ j3 {/*
6 U0 N/ A4 m& U, y# O8 i飞狐交易师“C语言接口”扩展程序调用接口规范V3.0
1.本规范适用于飞狐交易师V3.x公式系统.
( g+ H& x, r5 t9 i* c2.扩展函数用于实现系统函数不能实现的特殊算法.
3.扩展函数用windows32位动态连接库实现,建议使用MicrosoftVisual C++编程.
4.调用时在公式编辑器中写"动态库名称@函数名称"(参数表)即可,例如下面函数可以写为"FOXFUNC@MYMACLOSE"(5)
5.动态连接库名称和函数名称可以自己定义.
6.使用时必须将动态库拷贝到飞狐交易师安装目录下的FmlDLL子目录下使用.
*/
#ifdef__cplusplus
extern"C"
{
#endif//__cplusplus
///////////////////////////////////////////////////////////////////////////
2 h8 d' I4 W; |2 l6 C0 x* I# `//分析周期
+ ]/ i0 f/ p1 l( E. W+ s) QenumDATA_TYPE
{
& ?) f3 I( J5 a, f+ C. O* WTICK_DATA=2,//分笔成交
MIN1_DATA,//1分钟线
MIN5_DATA,//5分钟线
8 n" D. b4 ^) Y# pMIN15_DATA,//15分钟线
MIN30_DATA,//30分钟线
MIN60_DATA,//60分钟线
DAY_DATA,//日线
" t4 v8 y+ \8 {  h( v. u1 JWEEK_DATA,//周线
: U2 D" W( T% y2 }, |- e% ]5 GMONTH_DATA,//月线
7 b$ F) b4 \# A. q+ F8 o3 qYEAR_DATA,//年线
MULTIDAY_DATA,//多日线
& {$ s; H7 g1 f5 _& C! O8 WMULTIMIN_DATA//多分钟线
7 C3 s0 ?+ ^1 w# G3 T5 p};
///////////////////////////////////////////////////////////////////////////
//定义取用股票基本数据的结构 只有 VC++ 6.0 能compile成功使用
typedefstruct tagSTKDATA
2 Y/ d7 M2 E* h+ z4 [* V% o{
_tm_; //时间,UCT
floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
7 o# h+ d1 |; k/ Ufloatm_fAmount; //成交额 amount
WORDm_wAdvance; //上涨家数 仅大盘有效
( `( S( P, X, C6 H$ `7 c8 N# p7 \WORDm_wDecline; //下跌家数 仅大盘有效
0 o4 w7 F9 ]5 R2 V1 W# L}STKDATA;
定义STKDATA为 tagSTKDATA的简单别名,STKDATA
为真正方便使用名称,tagSTKDATA 为定目的的过水名称
! X) b6 K- d; R$ C4 H) t( L/ O////////////////////////////////////////////////////////////////////////////
//扩展数据,用于定义取用分笔成交数据的买卖盘 的结构
typedefunion tagSTKDATAEx
& X, Y4 J4 R) d{
8 Y9 H8 z  M( [- S* b( ustruct
{
floatm_fBuyPrice[3]; //买1--买3价floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
6 [) Y9 u# M% j/ @8 `floatm_fLow; //最低 low
* O4 R1 q* X/ e- W1 l2 pfloatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
. }1 T4 H" W) gfloatm_fBuyVol[3]; //买1--买3量
' Q8 a: D4 n3 ?2 ofloatm_fSellPrice[3]; //卖1--卖3价
floatm_fSellVol[3]; //卖1--卖3量
! ?' c* M7 Z# i3 P4 F* U/ O2 y7 N( X, M};
floatm_fDataEx[12];
2 `4 U( E7 N8 n% x}STKDATAEx;
1 [0 ]. t( q1 ^0 z9 s$ p2 S- w0 B; T////////////////////////////////////////////////////////////////////////////
//定义取用除权数据的结构
typedefstruct tagSPLITDATA
% ?( U4 D* X" P+ e, a{
" W# \1 ?! D- Z' G" a0 \time_tm_time; //时间,UCT
floatm_fHg; //红股
floatm_fPg; //配股
- k9 b# B% [' w- b$ X2 K( Y2 B$ mfloatm_fPgj; //配股价
3 [; I; m( f& Efloatm_fHl; //红利
% N1 C& ]5 S0 j$ n; U3 @}SPLITDATA;
/////////////////////////////////////////////////////////////////////////////
/*财务数据顺序(m_pfFinData内容)
序号内容
" O$ L4 d+ L! @1 n" i6 @0总股本(万股),
* H- S3 c# b7 ~4 A, G' a1国家股,
. z. A  s  {) z& Y; m2发起人法人股,
9 h5 k8 ~+ ]( y3法人股,
4B股,
3 b0 B! y7 X8 T) p" y5H股,
6流通A股,
' [# r! T: d7 Y, u% f0 C7 e7职工股,
8A2转配股,
9总资产(千元),
10流动资产,
! I; W1 @' ]; i  A( b3 Y11固定资产,
12无形资产,
13长期投资,
- H3 c! q' u1 S' J14流动负债,
15长期负债,
16资本公积金,
17每股公积金,
18股东权益,
' V: V* p% O+ g  B( m0 q# Y+ a19主营收入,
20主营利润,
3 Y" R+ j1 `# _. M21其他利润,
( l+ C. f8 I6 j4 Z22营业利润,
23投资收益,
24补贴收入,
25营业外收支,
26上年损益调整,
0 i$ i  f8 T6 Q+ f- }% Y27利润总额,
28税后利润,
3 z* ~& S% U6 x1 D29净利润,
  ]+ G# |7 N8 E6 o# ^4 i/ i30未分配利润,
31每股未分配,
: a7 a- j& F1 H& N3 a9 a6 ^- P; T: q32每股收益,
  u& c3 @$ v" u' G/ f33每股净资产,
  d9 a* d& a% w0 O2 E" d3 E1 X, d/ o34调整每股净资,
35股东权益比,
1 M, @% }; \0 r" K  X) n3 Z% D! s36净资收益率
*/
/////////////////////////////////////////////////////////////
//定义取用caller函数传递参数项 的结构
1 W$ H: H7 V: W  u+ T* a( \3 o9 [- Ytypedefstruct tagCALCPARAM
{
3 z8 r( {# R/ B" V4 funion
* n# N* j6 ]) Y8 E{
constfloat* m_pfParam; //指向序列参数的址标，指向一个浮点型数组pointertofloat variable parameter / ex. c,h,l,o, co2...co2=(c+o)/2
constfloat m_fParam; //数值参数 valueof parameter
};
9 p4 V  g/ a% y" ?) K/ Tconstint m_nParamStart; //序列参数有效起始位置thestart address of variable parameter / ex. c,h,l,o,co2.....
}CALCPARAM;
+ g% O* B+ q7 ]) A: H/////////////////////////////////////////////////////////////////////////////
//定义全部取用址标 的总结构 (各指标指向前述各结构以便取的各结构的数据,接口信息数据的结构 )
6 |) L$ n8 r( Y, e+ T6 Etypedefstruct tagCALCINFO
9 k) {2 G9 u# N{
. X' E( ?. i  c) j0 o/ B! oconstDWORD m_dwSize; //结构大小
constDWORD m_dwVersion; //调用软件版本(V2.10: 0x210)
: z- B; t1 ^8 EconstDWORD m_dwSerial; //调用软件序列号
, t1 b# P/ _; W8 s; [constchar* m_strStkLabel; //股票代码
constBOOL m_bIndex; //大盘
constint m_nNumData; //数据数量(pData,pDataEx,pResultBuf数据数量)数据长度
constSTKDATA* m_pData; //常规数据,注意:当m_nNumData==0时可能为NULL
constSTKDATAEx* m_pDataEx; //扩展数据,分笔成交买卖盘,注意:可能为NULL
2 Y4 s" M' O/ `% I: Vconstint m_nParam1Start; //参数1有效起始位置<0/ constant parameter >0 /variable parameter
, p! S: |5 K% E# q+ U5 wconstfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
) \- @4 H5 S$ C. U7 c& T( bconstfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
& P* k( ~1 L, [( m- Dconstfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4; //调用参数4/pointer to variable parameter 4
float*m_pResultBuf; //结果缓冲区
3 M6 ~4 C5 [1 qconstDWORD m_dataType; //数据类型
3 x* U# M. u! K! o3 Aconstfloat* m_pfFinData; //财务数据
! l1 R8 [$ U" L4 S5 C- b//以上与分析家兼容，所以沿用其结构和名称
5 H' N, i" f6 Y5 O) Z" P! R6 `//以下为飞狐交易师扩展(fortagSTKDATAEx)
constDWORD m_dwReserved; // 保留
constint m_nNumParam; // 调用参数数量
! L  @$ `; _, J- \3 [constCALCPARAM* m_pCalcParam; // 调用参数数组
" S5 {4 ~% y/ v3 LconstDWORD m_dwReservedEx[4]; // 保留
) S$ d  t; M4 e# dchar*m_strStkName; //股票名称
SPLITDATA*m_pSplitData; //除权数据
1 L: ]$ q, {7 z1 l& ]intm_nNumSplitData; //除权次数
}CALCINFO;
/*
3 R" z) i1 X9 X6 s4 B  _3 [注1:(与分析家兼容)
  N8 {/ x9 a# A5 @, C' B4 Z; W0 O1.函数调用参数由m_pfParam1--m_pfParam4带入,若为NULL则表示该参数无效.
% o# g. `: f9 |' i) U9 b6 M2.当一个参数无效时,则其后的所有参数均无效.
如:m_pfParam2为NULL,则m_pfParam3,m_pfParam4一定为NULL.
0 ~+ O$ s  @/ t! v; z3.参数1可以是常数参数或序列数参数,其馀参数只能为常数参数.
: Z/ V3 W- e, C5 Y7 b) d# D4.若m_nParam1Start<0,则参数1为常数参数,参数等于*m_pfParam1;
5.若m_nParam1Start>=0,则参数1为序列数参数,m_pfParam1指向一个浮点型数组,
数组大小为m_nNumData,数据有效范围为m_nParam1Start至 m_nNumData-1.
在时间上m_pData[x]与 m_pfParam1[x]是一致的
. S! o1 B! k8 r! b2 _# `注2:(飞狐交易师扩展)
1 H$ G8 A0 \+ s  S. H& m1.该扩展结构使调用参数在技术上可以是无限数目的，且每个参数都可为数值或序列，由公式中实际的调用参数决定。
2.CALCPARAM结构用于带入参数信息和实际数据，m_pCalcParam数组大小为m_nNumParam，数据有效范围为0 至m_nNumParam-1.
, m5 f: P- c5 c- b3.按参数的顺序，m_pCalcParam[0]为第一个参数的数据，m_pCalcParam[1]为第二个参数的数据...，为了保持兼容，原m_nParam1Start、m_pfParam1等5个属性依然有赋值。
: V  s1 X1 G. `7 {5 N5 x/ F4.若i位置的参数为数值，取用m_pCalcParam.m_fParam.
5.若i位置的参数为序列，取用m_pCalcParam.m_pfParam，数组大小为m_nNumData,数据有效范围为m_pCalcParam.m_nParamStart至 m_nNumData-1.若m_pCalcParam.m_nParamStart<0,则此数组中无有效数据。
6.由于可以调用多个序列，许多序列的计算可以先在公式中进行，然后作为调用的参数即可。
7 [! i% @1 }: V! }0 D7 @0 }7.经此扩展，对分析家的DLL依然可以调用、兼容。
*/
///////////////////////////////////////////////////////////////////////////////////
9 q% O, F9 @7 ?/*函数输出
# T1 a$ H8 i% c9 d3 B8 ^__declspec(dllexport)int xxxxxxxx(CALCINFO* pData);
1.函数名称需全部大写.
2.函数必须以上述形式声明,请用实际函数名称替代xxxxxxxx;
9 U- ], q( {" A% D对于C++程序还需包括在extern"C" { } 括号中.
3.函数计算结果用pData->m_pResultBuf带回.
/ I! ]* h* ]5 o' |9 _) \; D4.函数返回-1表示错误或全部数据无效,否则返回第一个有效值位置,即:
, S- C3 c- Y, l0 [8 Im_pResultBuf[返回值]-- m_pResultBuf[m_nNumData-1]间为有效值.
5.函数名称长度不能超过15字节,动态连接库文件名不能超过9字节(不包括扩展名),动态库名称不能叫SYSTEM,EXPLORER
8 i( S2 m) [" j2 e, Q6 s*/
//示例函数,使用时用实际名称替换
4 P* C+ C; M/ P, Z__declspec(dllexport)int WINAPI MYMACLOSE(CALCINFO* pData);
7 G+ d, Z& `+ q/ [- b) j__declspec(dllexport)int WINAPI SMOOTH(CALCINFO* pData);
$ N1 k- R0 v4 k//__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
. N/ J- O" w7 w8 Y__declspec(dllexport)int WINAPI MYBBI(CALCINFO* pData);
//WINAPI = _stdcall
#ifdef__cplusplus
( |  |: a$ s% t}
#endif//__cplusplus
7 S, z3 R# f. ^#endif//__FOXFUNC_H_INCLUDE

//////////////////////////////////////////comment 注解
__declspec(dllexport)int WINAPI MYMAVAR(CALCINFO* pData)
pData是指向 址标总结构 CALCINFO的 总址标
* B. D9 B* S3 G& p9 \6 J5 t$ T取用第二个参数数值floatfParam = *pData→m_pfParam2
取用第一个序列参数的址标constfloat* pValue = pData->m_pfParam1;
$ L' O2 G5 v' a3 O; O取用股票数据长度intndata = pData→m_nNumData;
) i0 {! b" W8 l第一个参数存在且为数值pData->m_pfParam1&& pData→m_nParam1Start<0
4 ^/ |$ }! g& g: Q3 m第一个参数存在且为序列pData->m_pfParam1&& pData→m_nParam1Start>=0
( ]! @6 u2 @/ r6 e6 n1 x9 L; X1 @第一个及第二个参数存在且为序列,第三个参数不存在pData->m_pfParam1&& pData->m_pfParam2 && pData->m_nParam1Start>=0&& pData->m_pfParam3==NULL
constfloat* cpParam = pData->m_pfParam1; 定义cpParam为第一个序列参数的址标
8 o( e4 o2 |- a- C6 @/ ?9 {取用股票数据结构
pData→m_nNumData= 变数数据长度
1 r) H1 r" T& n) Z. X8 Y! s  |, V6 SpData→m_pData= pointer to struc STKDATA 的址标
$ R9 _2 j9 ^5 T9 ?) P1 |1 k; c  p& tpData→m_pData[x]数据结构的第x个数据
5 b, z- N, _$ X, f# l& dpData→m_pData[x].m_fHigh数据结构的第x个数据中的 High
取用结果缓冲序列
1 h5 @+ X  C2 j8 @2 z% y5 C5 JpData->m_pResultBuf
取得第一个序列参数的起始序位,如 2,...5 , . 7...
intnFirst = pData->m_nParam1Start;
for( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
; u& J. F% A' F) n5 a/ E* b取得第二个数值参数的数值
floatfParam = *pData->m_pfParam2;
intnPeriod = (int)fParam;
取用第一个序列参数的址标constfloat* pValue = pData→m_pfParam1;
0 C% ?7 f' p; h3 M' x4 Q( N8 E取用序列参数的单个直pValue
取用缓冲序列的单个值pData->m_pResultBuf
constCALCPARAM* m_pCalcParam; // 调用参数数组
" D) R" E1 h& P. d( C7 }) Xm_pCalcParam为序列址标,指向各序列参数的指标
第一个序列参数pData→m_pCalcParam[0]
3 x* p* q0 V0 L2 w4 t, q! e9 \constfloat* m_pfParam; //指向序列参数的址标
% O+ `: y# A& v, ]; I& i第一个序列参数的起始序位pData->m_pCalcParam[0].m_nParamStart
& q) L1 O% c6 p% X) [. U第一个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[0].m_pfParam;
4 X6 I6 Q! O8 p- L3 Z/ U取用第一个序列参数的单个直pValue1
# k  h! a( z7 e* e) y9 F- v第二个序列参数pData→m_pCalcParam[1]
' l/ \- f& z! h! U( L第二个序列参数的起始序位pData->m_pCalcParam[1].m_nParamStart
2 @) Z0 D# a) N第二个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[1].m_pfParam;
3 Q4 Y  k/ A& Z9 n取用第二个序列参数的单个直pValue2
第三个序列参数pData→m_pCalcParam[2]
第三个序列参数的起始序位pData->m_pCalcParam[2].m_nParamStart
3 F  @, [) }" K$ V" u: h第三个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[2].m_pfParam;
2 m# N& D$ q$ q& }# a7 g取用第三个序列参数的单个直pValue3
% I  G' o2 O/ q( I9 f/ q& a第四个序列参数pData→m_pCalcParam[3]
  t5 v4 J, F( M% s( T3 Z( {+ B第四个序列参数的起始序位pData->m_pCalcParam[3].m_nParamStart
' }! O4 a9 L7 q9 i3 e/ `第四个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[3].m_pfParam;
3 `1 [# o# k( F% [5 A* P; x3 T取用第四个序列参数的单个直pValue4
如果有四个序列参数,则取用序位最高的那一个序位
if( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
4 O) Z' y& L$ b' C9 ?& HpData->m_pCalcParam[1].m_nParamStart>= 0 &&
pData->m_pCalcParam[2].m_nParamStart>= 0 &&
pData->m_pCalcParam[3].m_nParamStart>= 0 ) //4个序列都含有效数值
{
: r* v2 x9 F0 i4 q4 Q//计算返回的序列的第一个有效值位置
intnFirst = pData->m_pCalcParam[3].m_nParamStart;//已知返回的序列的第一个有效值位置与第4个序列一致
//若不知，则
/*
, ]7 a0 |7 e" u/ R6 \% ~intnFirst = pData->m_pCalcParam[0].m_nParamStart;
6 F9 R* q. F' Q% Wif( nFirst < pData->m_pCalcParam[1].m_nParamStart )
5 K1 B- r2 Y) f& R5 \nFirst= pData->m_pCalcParam[1].m_nParamStart;
" [- u% E$ N* u* _) R9 M5 z4 C  {' |if( nFirst < pData->m_pCalcParam[2].m_nParamStart )
8 P8 i$ ]- q1 GnFirst= pData->m_pCalcParam[2].m_nParamStart;
if( nFirst < pData->m_pCalcParam[3].m_nParamStart )
' z+ h/ u5 D# inFirst= pData→m_pCalcParam[3].m_nParamStart;
6 k" g8 [( X7 E% [constfloat* pValue1 = pData->m_pCalcParam[0].m_pfParam;
constfloat* pValue2 = pData->m_pCalcParam[1].m_pfParam;
constfloat* pValue3 = pData->m_pCalcParam[2].m_pfParam;
0 \0 R( [# B) P$ [, |constfloat* pValue4 = pData->m_pCalcParam[3].m_pfParam;
//-------------------
4 Y2 G9 d0 ~+ q* S! L2 d( [floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
  ?+ @+ D) ^# V6 N  i0 Q, Ufloatm_fVolume; //成交量 Volume
  a2 ^; N6 Q$ @: hfloatm_fAmount; //成交额 amount
1 y+ x; o4 p# d6 d: F- y7 T  S调用收盘据
pData→m_nNumData= 变数数据长度
pData→m_pData= pointer to struc STKDATA
7 U# d. v2 R+ A4 \2 VpData→m_pData[x]第x个数据
pData→m_pData[x].m_fHigh第x个数据中的 High
, w# [5 R5 L) c& j@@@@@@@@@@@important !!!!!!!
- Z+ A( G/ g2 G. YsinceVC++ 2008, cl.exe will make ‘pData→m_pData[i-j].m_fClose’ anerror
. x5 b' `& c$ O/ [2 E( |, Xso,pass the high,low,open and close just from the function parameter ,that is use ‘ CALCPARAM’ struct
pData->m_pData[i-j].m_fOpen// to use open , there is no way in using a varable for calculationoutside foxtrader
) [1 S2 M7 U1 y# }7 \2 V: GpData→m_pData[i-j].m_fHighto use high
! E! C3 U+ w' s  j: E/ opData->m_pData[i-j].m_fLow
8 G; j4 ?$ L8 vpData->m_pData[i-j].m_fClose
m_pData= pointer to struc STKDATA
incalling C++ dll function
- }% ^% {/ i' F8 s( Lm_pDatais passed to pData (CALCINFO* pData . A CALCINFO* type pointer)
. c5 D( c, ^! D  Z! @touse a single value in variable ‘High’
pData→m_pData[i-j].m_fHighto use high
constfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
constfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
0 R6 t  H# L5 u, Q; Q! lconstfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4;
2 `9 Y6 {; i6 {* r8 E8 m2 I% um_pfParam1,m_pfParam2, m_pfParam3, m_pfParam4 = pointer to caller function 的参数
pData→m_pfParam1= pointer to 第一个(序列)参数
pData→m_pfParam1[x]= 取用第一个(序列)参数的第x 个值
) J: I  U6 b6 B) s* D6 R7 _constfloat* cpParam = pData→m_pfParam1; ＝定义 cpParam为 pointerto 第一个(序列)参数
% z4 x7 x3 x0 icpParam[x] = 取用第一个(序列)参数的第x 个值
m_pResultBuf＝ 结果缓冲列
, W7 I! W% Q9 k8 r+ npData→m_pResultBuf= pointer to 结果缓冲列
0 r0 Q! q: k  q) |pData→m_pResultBuf[x] = 取用结果缓冲列的第 x个值
3 V* o: J+ |2 _//////////////////////////////////////////comment
//////////////////////////////////////////comment 注解
constint m_nParam1Start; //统杅1衄虴宎弇离
constfloat* m_pfParam1; //覃蚚统杅1
6 N5 h! y+ i0 dconstfloat* m_pfParam2; //覃蚚统杅2
6 \% N4 I, V% r$ zconstfloat* m_pfParam3; //覃蚚统杅3
constfloat* m_pfParam4; //覃蚚统杅4,parameters must be <= 4
3 q3 s6 V6 g6 a8 v6 a//const float* m_pfParam5; // parameters must be <= 4
//const float* m_pfParam6;
//const float* m_pfParam7;
7 }0 c( k' T8 e) [2 G//const float* m_pfParam8;
//pData->m_pfParam1 && pData->m_pfParam2 &&pData->m_pfParam3 && pData->m_nParam1Start>=0 &&
' X( k. ~! f7 Z! vpData->m_pCalcParam[0].m_nParamStart>=0&& pData->m_pCalcParam[1].m_nParamStart>=0
&&pData->m_pCalcParam[2].m_nParamStart>=0)
5 j# p+ T4 \- B" x{
- G0 f1 f  {; R9 wfloatfParam = *pData->m_pfParam4; //pointer ,pData->m_pCalcParam[3].m_nParamStart >= 0
: ?! _# `$ E6 `" ^: S) p7 rintnPeriod = (int)fParam; //统杅1
* j: \! E0 H, y1 |- v+ \' v3 J//const float* cpParam = pData->m_pfParam2; // cpParam = pointer to第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam1 =pData->m_pCalcParam[0].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam2 =pData->m_pCalcParam[1].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam3 =pData->m_pCalcParam[2].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值//parameters must be <= 4
//const float* cpParam4 =pData->m_pCalcParam[3].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
//const float* cpParam5 =pData->m_pCalcParam[4].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
/ l" G2 O9 Y/ N7 o9 Z" {//m_pData = const struct pointer to struct STKDATA , pointer to structSTKDATA ,
8 T# ?0 k) S5 L/ \touse pData→m_pData[x].m_fClose
/ L4 z1 t6 F, @& S6 h! H: c2 Z$ upData→m_pData[x]= | 1,2,3 , … , m_nNumParam | time_t m_time;
|1,2,3 , … , m_nNumParam | float m_fOime_t
|1,2,3 , … , m_nNumParam | float m_fHigh;
.. .
7 \( M- h. _" v& I|1,2,3 , … , m_nNumParam | WORD m_wDecline;
m_nNumParam= 数据high,close,open,low的长度
touse high:
4 y; ]3 r8 a* _7 f2 apData→m_pData[x].m_fHigh
contentof struct STKDATA
4 d4 g  O) J5 T8 t1 y! I8 Itime_tm_time; //时间,UCT
* [$ A* ]- t  |floatm_fOpen; //开盘 open
+ f) P7 t# ^, t/ L  ~) l6 efloatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
WORDm_wAdvance; //上涨家数 仅大盘有效
WORDm_wDecline; //下跌家数 仅大盘有效
0 X2 ~9 r- U% B+ g调用传递参数及传回结果
. Y) m$ V0 v! S4 ?3 I! K调用传递参数
(pData->m_pfParam1 && //参数1有效Param1exists
pData->m_nParam1Start<0&& //参数1为常数
+ i) {2 j2 J+ ^/ X$ J0 mpData->m_pfParam2==NULL) //
localprocedure 定义使用变数
onstfloat* pValue = pData→m_pfParam1; //use constant参数1
5 i- ]7 c* s/ L' G4 {! yintnFirst = pData->m_nParam1Start; //use 参数1效值起始位
! P& P  i; w5 L6 c& yfloatfParam = *pData->m_pfParam2; //use 参数2
. n" N! J" D2 n0 ]3 p$ pintnPeriod = (int)fParam;
传回结果
& u# w; O, g  H2 s6 e; ^fTotal+= pValue[i-j];
pData->m_pResultBuf
//////////////////////////////////////////comment