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

ycng

许多年以前,我曾经在
理想公式区发布了
"
1 G8 M2 L( A7 O$ L, b% Q# ?如何用 Foxtrader(飞狐)连结 C++动态程式库 DLL及 80x86Macro Assembly (组合语言)
) m( I# Y. T: `"

现在更新foxtrader(飞狐交易师)
连结 DLL的方法

foxtrader- - > DLL (C++ and assembly) = ( foxfunc.h + foxfunc.cpp +pow10.asm )
gauss- - > DLL (C++ and assembly) = ( foxfunc.cpp + meigj.asm )
5 {7 y+ h* v: l& Y, a" c4 Bgauss只用到函数参数传递,所以使用新的 c++compiler, 不受影响
foxtrader的 foxfunc.h宣告的结构型态 (struct)在 2004vc++ 6.0 全部有效

也就是这五个结构都能用
% J+ A. H+ ?7 P+ C" gtypedefstruct tagSTKDATA
" g' m1 D  F9 ~typedefunion tagSTKDATAEx
" v# h: s: l; wtypedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
/ q4 P8 b$ C  R5 ^( K6 t
自2008年起,vc++ 2008, vc++ 2010, vc++2017 对struct的编译,已经完全 c++化,不再相容于 C
2 }9 ]% z' o6 E& z9 w也就是这五个结构中
; b- c: C+ D6 a! D" `% mtypedefstruct tagSTKDATA
# z0 P( q/ C) e/ m& s3 T% Xtypedefunion tagSTKDATAEx
6 m; ^( S; w# w% f! ]( D" Etypedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
/ F/ R* W. l, u' J& e5 E! t7 O  @typedefstruct tagCALCINFO
只有这两个可以用
1 T! p6 y' X( T6 d3 r! j1 Q7 u8 ytypedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
- p( l# V4 \* [3 \, w( z值得庆幸的是,下面这个结构的函数参数传递个数可以有无数个
typedefstruct tagCALCPARAM
* s: C# [4 D# R3 g/ k% n/ ^9 t* n例如:在 foxtrader中
MA1:=MA(CLOSE,3);
MA2:=MA(CLOSE,6);
' p7 _9 J0 n+ h, f; V7 QMA3:=MA(CLOSE,12);
MA4:=MA(CLOSE,24);
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个
下面这两式计算结果相同
! }; f( L3 s6 D8 Z/ Nxx:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12),MA(CLOSE,24),MA(CLOSE,12),),MA(CLOSE,24)/6*0.95,color0000ff,linethick2;{foxtrader 自行计算}
' q7 E3 k6 z& lMYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,6)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0 , dll计算}
1 @7 H3 U, {, M8 e- l* |' u其他例子
. s6 i7 ?/ j; X5 noooq:="MYFUNC2008good@MYMACLOSE"(c,,c,c,6),colorffffff,linethick5;(---> pow10.asm)
oooq1:"MYFUNC2010@MYMAVAR"(ma(c,5),5),colorgreen,linethick5;
其中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错误


////////////////////////////////////////////////////////foxfunc.h
( X7 Q; Y3 P8 Z) Q* B+ `, w#ifndef__FOXFUNC_H_INCLUDE
#define__FOXFUNC_H_INCLUDE
/*
% ~, m) E+ C, J' J2 f% p: t飞狐交易师“C语言接口”扩展程序调用接口规范V3.0
1.本规范适用于飞狐交易师V3.x公式系统.
2.扩展函数用于实现系统函数不能实现的特殊算法.
" b$ z' M$ K& M7 t) I; Z, @. W, ?7 d3.扩展函数用windows32位动态连接库实现,建议使用MicrosoftVisual C++编程.
" T+ ~' S1 C$ q. i& ~3 g4.调用时在公式编辑器中写"动态库名称@函数名称"(参数表)即可,例如下面函数可以写为"FOXFUNC@MYMACLOSE"(5)
9 @2 B5 R- G2 I5.动态连接库名称和函数名称可以自己定义.
, f2 a+ t5 a( a0 d6.使用时必须将动态库拷贝到飞狐交易师安装目录下的FmlDLL子目录下使用.
  y3 ]: T7 t& D- l& I3 O; U*/
, G9 m# N- J& P( I; W/ a4 X#ifdef__cplusplus
extern"C"
0 M! s0 R. j# G{
, q5 J6 c4 e' P, H! q1 V#endif//__cplusplus
///////////////////////////////////////////////////////////////////////////
//分析周期
) m' N) T; Q, I" HenumDATA_TYPE
0 E3 T* n8 n$ k4 [{
$ ]7 W6 j( A  t1 N) ETICK_DATA=2,//分笔成交
MIN1_DATA,//1分钟线
( S9 b7 [9 S$ |+ a  DMIN5_DATA,//5分钟线
MIN15_DATA,//15分钟线
5 ]& F8 l5 N% I/ [9 ]6 @/ v( e1 pMIN30_DATA,//30分钟线
4 e' N1 K- t% l8 p) G0 Y, s  w. ZMIN60_DATA,//60分钟线
DAY_DATA,//日线
WEEK_DATA,//周线
MONTH_DATA,//月线
+ a" C5 V- k2 H6 c4 l4 u/ w3 [YEAR_DATA,//年线
MULTIDAY_DATA,//多日线
MULTIMIN_DATA//多分钟线
};
+ Q. f& B. N# E1 d0 |///////////////////////////////////////////////////////////////////////////
//定义取用股票基本数据的结构 只有 VC++ 6.0 能compile成功使用
typedefstruct tagSTKDATA
$ s3 t% X0 z# _! U- A/ o9 `{
_tm_; //时间,UCT
floatm_fOpen; //开盘 open
  s9 Y) N/ @" G# l2 ?' sfloatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
' m8 {' S/ t2 T; ^. m+ xWORDm_wAdvance; //上涨家数 仅大盘有效
9 A# m$ @& B) }. a' x3 hWORDm_wDecline; //下跌家数 仅大盘有效
}STKDATA;
定义STKDATA为 tagSTKDATA的简单别名,STKDATA
为真正方便使用名称,tagSTKDATA 为定目的的过水名称
////////////////////////////////////////////////////////////////////////////
//扩展数据,用于定义取用分笔成交数据的买卖盘 的结构
typedefunion tagSTKDATAEx
{
0 n& V  M$ D3 m0 T% C+ ]struct
* {4 r0 r+ p; H( c8 o{
floatm_fBuyPrice[3]; //买1--买3价floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
& C1 F' M# U# F1 ?4 Y" f; Lfloatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
# E+ i) N; ^4 ]1 J) ]7 ?) h' x: B' Jfloatm_fBuyVol[3]; //买1--买3量
floatm_fSellPrice[3]; //卖1--卖3价
floatm_fSellVol[3]; //卖1--卖3量
};
, g% h: F$ U) s/ {! e8 T- g" mfloatm_fDataEx[12];
: U9 q6 P8 L" A0 D% A% d}STKDATAEx;
////////////////////////////////////////////////////////////////////////////
$ v+ ?" `% c) {( ]9 F# _//定义取用除权数据的结构
typedefstruct tagSPLITDATA
{
time_tm_time; //时间,UCT
floatm_fHg; //红股
floatm_fPg; //配股
floatm_fPgj; //配股价
, [" }- X+ r% bfloatm_fHl; //红利
( y8 P" K& Q% v/ v* O9 K}SPLITDATA;
/////////////////////////////////////////////////////////////////////////////
/*财务数据顺序(m_pfFinData内容)
序号内容
0总股本(万股),
1国家股,
2发起人法人股,
; {4 {3 s) E/ v3法人股,
4B股,
7 n# @* {) U9 X, I/ v+ f5H股,
# F: q4 b# |, W) m+ P9 f& P0 H6流通A股,
7职工股,
8A2转配股,
( _5 ~2 S, ?! A, `% E5 m) P- l( e9总资产(千元),
10流动资产,
& a: ~+ I: ~) G4 k& n7 ?, w11固定资产,
12无形资产,
13长期投资,
14流动负债,
15长期负债,
16资本公积金,
17每股公积金,
. c: F4 f, ]) J7 n18股东权益,
19主营收入,
" f) d5 G) @% O- ?$ w20主营利润,
1 r: t9 W( P2 R; D! V21其他利润,
22营业利润,
23投资收益,
24补贴收入,
25营业外收支,
26上年损益调整,
4 N" h) K* f1 q7 d2 o2 e- `27利润总额,
28税后利润,
29净利润,
3 Z% }( R( k1 j# |30未分配利润,
31每股未分配,
( D! O. @- g! K$ t32每股收益,
33每股净资产,
9 M% W$ {* |+ U8 d0 q$ l34调整每股净资,
/ D* v# u& K. g, }+ t6 |+ D; u% n! ~35股东权益比,
7 L6 C. e: A: `% H" I36净资收益率
1 C2 H) y- `, l. {, U+ X*/
/////////////////////////////////////////////////////////////
//定义取用caller函数传递参数项 的结构
typedefstruct tagCALCPARAM
{
$ ?& T$ z8 Z2 m  h5 qunion
{
constfloat* m_pfParam; //指向序列参数的址标，指向一个浮点型数组pointertofloat variable parameter / ex. c,h,l,o, co2...co2=(c+o)/2
constfloat m_fParam; //数值参数 valueof parameter
9 U' ?. F# o6 D- D0 o9 X/ c; Y};
constint m_nParamStart; //序列参数有效起始位置thestart address of variable parameter / ex. c,h,l,o,co2.....
}CALCPARAM;
/////////////////////////////////////////////////////////////////////////////
1 m+ W7 b; |: j6 }( q% {  T6 \//定义全部取用址标 的总结构 (各指标指向前述各结构以便取的各结构的数据,接口信息数据的结构 )
1 h6 ~# x7 N  a5 n( Z1 s9 Vtypedefstruct tagCALCINFO
7 v2 Q: `) D" G! \* A' ~& r6 F{
+ }4 ^5 f: R. Q2 ?4 [/ q& sconstDWORD m_dwSize; //结构大小
" \% r! G) U! [% v. rconstDWORD m_dwVersion; //调用软件版本(V2.10: 0x210)
8 x* H: b+ x* {, ]* r5 w, r) SconstDWORD m_dwSerial; //调用软件序列号
% q  `  P7 T( `9 e9 K2 Zconstchar* m_strStkLabel; //股票代码
5 t' Q) C8 `  u; f& fconstBOOL m_bIndex; //大盘
7 \$ t1 z5 C. r) \& q+ p( t7 m& j, {constint m_nNumData; //数据数量(pData,pDataEx,pResultBuf数据数量)数据长度
( y: o8 x: o8 o- KconstSTKDATA* m_pData; //常规数据,注意:当m_nNumData==0时可能为NULL
8 B7 M6 d* u1 [  q! B% ?constSTKDATAEx* m_pDataEx; //扩展数据,分笔成交买卖盘,注意:可能为NULL
constint m_nParam1Start; //参数1有效起始位置<0/ constant parameter >0 /variable parameter
constfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
constfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
1 R( }' p( r# |  wconstfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
& H, K" x% l' X6 Y6 I6 B; |$ Y- |constfloat* m_pfParam4; //调用参数4/pointer to variable parameter 4
6 h/ g# H9 l4 ~1 V: j8 U" t: ofloat*m_pResultBuf; //结果缓冲区
# }: X! i( q6 B: ~( Z0 u. m  ~constDWORD m_dataType; //数据类型
constfloat* m_pfFinData; //财务数据
9 E2 h$ X# {0 l& D) n//以上与分析家兼容，所以沿用其结构和名称
//以下为飞狐交易师扩展(fortagSTKDATAEx)
constDWORD m_dwReserved; // 保留
constint m_nNumParam; // 调用参数数量
6 i# b5 ~) n( r, H0 G( d6 b3 OconstCALCPARAM* m_pCalcParam; // 调用参数数组
constDWORD m_dwReservedEx[4]; // 保留
char*m_strStkName; //股票名称
SPLITDATA*m_pSplitData; //除权数据
intm_nNumSplitData; //除权次数
}CALCINFO;
/*
1 f. x7 |  X% Z- q2 b9 D& y# g- r注1:(与分析家兼容)
5 {# j% D$ A$ o! h1.函数调用参数由m_pfParam1--m_pfParam4带入,若为NULL则表示该参数无效.
* E7 f7 E( u9 ]0 o; C3 n. g' J2.当一个参数无效时,则其后的所有参数均无效.
如:m_pfParam2为NULL,则m_pfParam3,m_pfParam4一定为NULL.
, e( p; b) ~7 o3 S  y" e  F/ D3.参数1可以是常数参数或序列数参数,其馀参数只能为常数参数.
" T( i! |+ }5 S) i- z2 d0 M2 _4.若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]是一致的
注2:(飞狐交易师扩展)
1.该扩展结构使调用参数在技术上可以是无限数目的，且每个参数都可为数值或序列，由公式中实际的调用参数决定。
' \3 f% n; Y5 R% I. N9 w" I! q. B, _2.CALCPARAM结构用于带入参数信息和实际数据，m_pCalcParam数组大小为m_nNumParam，数据有效范围为0 至m_nNumParam-1.
$ A- M+ @+ F/ a- Z) R& Q8 H3.按参数的顺序，m_pCalcParam[0]为第一个参数的数据，m_pCalcParam[1]为第二个参数的数据...，为了保持兼容，原m_nParam1Start、m_pfParam1等5个属性依然有赋值。
- b) a1 V( S" x9 C7 x2 T& L4.若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.由于可以调用多个序列，许多序列的计算可以先在公式中进行，然后作为调用的参数即可。
/ u: q, `" p& F4 s8 M9 z7.经此扩展，对分析家的DLL依然可以调用、兼容。
*/
///////////////////////////////////////////////////////////////////////////////////
/*函数输出
: }. L& {0 ^$ s$ t. \__declspec(dllexport)int xxxxxxxx(CALCINFO* pData);
1.函数名称需全部大写.
2.函数必须以上述形式声明,请用实际函数名称替代xxxxxxxx;
对于C++程序还需包括在extern"C" { } 括号中.
3.函数计算结果用pData->m_pResultBuf带回.
4.函数返回-1表示错误或全部数据无效,否则返回第一个有效值位置,即:
" d+ a% }- B5 a5 P1 j7 V# c# ?% Vm_pResultBuf[返回值]-- m_pResultBuf[m_nNumData-1]间为有效值.
" m: `  O( `. j& h9 A5.函数名称长度不能超过15字节,动态连接库文件名不能超过9字节(不包括扩展名),动态库名称不能叫SYSTEM,EXPLORER
*/
//示例函数,使用时用实际名称替换
  `/ E6 _$ R0 E3 g7 W. J! }. E- v__declspec(dllexport)int WINAPI MYMACLOSE(CALCINFO* pData);
" |1 d/ A9 m+ b7 r6 x__declspec(dllexport)int WINAPI SMOOTH(CALCINFO* pData);
//__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
/ s: r  w7 p; `5 b4 i: }__declspec(dllexport)int WINAPI MYBBI(CALCINFO* pData);
//WINAPI = _stdcall
/ H+ R) X4 S7 ]# t: o# f% o7 q#ifdef__cplusplus
: q* ~" G6 ^$ @}
#endif//__cplusplus
5 L( S# D2 C: [! W3 i, V- V% ^#endif//__FOXFUNC_H_INCLUDE

4 _- |4 ?" p' c2 e( g//////////////////////////////////////////comment 注解
0 L+ k! B% o1 Y5 ^7 Y__declspec(dllexport)int WINAPI MYMAVAR(CALCINFO* pData)
+ q7 n. N2 E( _: s9 u# XpData是指向 址标总结构 CALCINFO的 总址标
取用第二个参数数值floatfParam = *pData→m_pfParam2
1 ]3 E- Y$ e, j取用第一个序列参数的址标constfloat* pValue = pData->m_pfParam1;
取用股票数据长度intndata = pData→m_nNumData;
第一个参数存在且为数值pData->m_pfParam1&& pData→m_nParam1Start<0
第一个参数存在且为序列pData->m_pfParam1&& pData→m_nParam1Start>=0
# H6 c/ j5 B/ I( A3 s/ `第一个及第二个参数存在且为序列,第三个参数不存在pData->m_pfParam1&& pData->m_pfParam2 && pData->m_nParam1Start>=0&& pData->m_pfParam3==NULL
+ V2 f$ Q' o& ^% ^  Cconstfloat* cpParam = pData->m_pfParam1; 定义cpParam为第一个序列参数的址标
取用股票数据结构
pData→m_nNumData= 变数数据长度
- X+ `9 D1 `$ J; K8 ?3 rpData→m_pData= pointer to struc STKDATA 的址标
$ ^2 g8 j6 ^- {+ y# BpData→m_pData[x]数据结构的第x个数据
- X: K& u+ v+ |* A3 \( kpData→m_pData[x].m_fHigh数据结构的第x个数据中的 High
% O7 A7 B: O- V4 V9 A5 {取用结果缓冲序列
pData->m_pResultBuf
# h  W( D& t+ q0 I4 t取得第一个序列参数的起始序位,如 2,...5 , . 7...
intnFirst = pData->m_nParam1Start;
7 g! F4 K) k% ~3 _for( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
取得第二个数值参数的数值
floatfParam = *pData->m_pfParam2;
0 R5 P: s: I3 @: l  H+ `3 _  K6 u  D+ }intnPeriod = (int)fParam;
) ~5 k6 c; [4 H; q# I" G8 A, k7 s取用第一个序列参数的址标constfloat* pValue = pData→m_pfParam1;
取用序列参数的单个直pValue
0 s3 [1 O4 Y3 ~. ?取用缓冲序列的单个值pData->m_pResultBuf
constCALCPARAM* m_pCalcParam; // 调用参数数组
. X' U) s: |+ E& Dm_pCalcParam为序列址标,指向各序列参数的指标
第一个序列参数pData→m_pCalcParam[0]
constfloat* m_pfParam; //指向序列参数的址标
) O" A* R3 i- \' h: ]3 c, a* `* V3 `第一个序列参数的起始序位pData->m_pCalcParam[0].m_nParamStart
, T4 G, |9 D4 [/ Y5 Y* v第一个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[0].m_pfParam;
取用第一个序列参数的单个直pValue1
第二个序列参数pData→m_pCalcParam[1]
第二个序列参数的起始序位pData->m_pCalcParam[1].m_nParamStart
第二个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[1].m_pfParam;
. u* T5 W1 p7 @9 i! L取用第二个序列参数的单个直pValue2
第三个序列参数pData→m_pCalcParam[2]
第三个序列参数的起始序位pData->m_pCalcParam[2].m_nParamStart
第三个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[2].m_pfParam;
+ E2 `1 A1 z3 m$ D8 L取用第三个序列参数的单个直pValue3
8 A6 V! p" r9 D' a( ^第四个序列参数pData→m_pCalcParam[3]
第四个序列参数的起始序位pData->m_pCalcParam[3].m_nParamStart
2 |. v5 J1 ?) C第四个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[3].m_pfParam;
. Y2 {& }; a5 I1 E& f取用第四个序列参数的单个直pValue4
如果有四个序列参数,则取用序位最高的那一个序位
if( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
3 R. S+ L/ Q/ f- O% |pData->m_pCalcParam[1].m_nParamStart>= 0 &&
. q  c( C' C' \/ ~: PpData->m_pCalcParam[2].m_nParamStart>= 0 &&
pData->m_pCalcParam[3].m_nParamStart>= 0 ) //4个序列都含有效数值
{
5 m8 s3 B, r6 ~1 Z; L( p8 N//计算返回的序列的第一个有效值位置
& [! B! a* g5 P0 Z. U7 B9 W1 [8 SintnFirst = pData->m_pCalcParam[3].m_nParamStart;//已知返回的序列的第一个有效值位置与第4个序列一致
//若不知，则
/*
+ r! J6 j9 _3 G+ G" o1 Q# L, u0 UintnFirst = pData->m_pCalcParam[0].m_nParamStart;
# ]6 O5 ]* Z1 t( {$ Tif( nFirst < pData->m_pCalcParam[1].m_nParamStart )
) \, ]+ Z( |7 }' Z- U" v. UnFirst= pData->m_pCalcParam[1].m_nParamStart;
/ q3 Q& \6 c6 w  u5 k# ]  q5 vif( nFirst < pData->m_pCalcParam[2].m_nParamStart )
nFirst= pData->m_pCalcParam[2].m_nParamStart;
3 R8 o( ?2 Y# cif( nFirst < pData->m_pCalcParam[3].m_nParamStart )
nFirst= pData→m_pCalcParam[3].m_nParamStart;
constfloat* pValue1 = pData->m_pCalcParam[0].m_pfParam;
constfloat* pValue2 = pData->m_pCalcParam[1].m_pfParam;
& D! [+ ~9 \4 x2 W2 s+ s/ [constfloat* pValue3 = pData->m_pCalcParam[2].m_pfParam;
" p9 L+ l' `3 l) [) q3 L1 {constfloat* pValue4 = pData->m_pCalcParam[3].m_pfParam;
5 k% N# j; l. ~* v( X//-------------------
floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
/ P3 a$ A2 z2 X% ?  J5 k5 B; Cfloatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
  ~: r6 z0 O+ h& F调用收盘据
pData→m_nNumData= 变数数据长度
! y# G$ F: |. l; Z9 JpData→m_pData= pointer to struc STKDATA
/ Y* n6 b+ i' ~! Z0 spData→m_pData[x]第x个数据
3 j6 h, O5 ?" I' L6 H3 `pData→m_pData[x].m_fHigh第x个数据中的 High
6 Y. n1 t  P4 W2 L6 A4 I+ ~@@@@@@@@@@@important !!!!!!!
' T# r! P9 J2 @9 |sinceVC++ 2008, cl.exe will make ‘pData→m_pData[i-j].m_fClose’ anerror
so,pass the high,low,open and close just from the function parameter ,that is use ‘ CALCPARAM’ struct
# C8 Y- B' L+ BpData->m_pData[i-j].m_fOpen// to use open , there is no way in using a varable for calculationoutside foxtrader
) X9 _* Q  r( ]* i+ e9 m4 TpData→m_pData[i-j].m_fHighto use high
pData->m_pData[i-j].m_fLow
) U! l8 a! }  d, n! gpData->m_pData[i-j].m_fClose
m_pData= pointer to struc STKDATA
incalling C++ dll function
8 u1 U  |7 L* ^; wm_pDatais passed to pData (CALCINFO* pData . A CALCINFO* type pointer)
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
constfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4;
8 u( O. j' ]# Q8 j% `/ Em_pfParam1,m_pfParam2, m_pfParam3, m_pfParam4 = pointer to caller function 的参数
pData→m_pfParam1= pointer to 第一个(序列)参数
pData→m_pfParam1[x]= 取用第一个(序列)参数的第x 个值
; c; O1 f, l. g6 `2 M0 econstfloat* cpParam = pData→m_pfParam1; ＝定义 cpParam为 pointerto 第一个(序列)参数
" v  b3 l' E6 D1 C0 d6 zcpParam[x] = 取用第一个(序列)参数的第x 个值
m_pResultBuf＝ 结果缓冲列
: c0 W. ~5 C; b9 b8 @7 npData→m_pResultBuf= pointer to 结果缓冲列
, n2 y9 k8 ?+ E" }pData→m_pResultBuf[x] = 取用结果缓冲列的第 x个值
; h+ r/ g3 P# R5 P: {# a//////////////////////////////////////////comment
//////////////////////////////////////////comment 注解
constint m_nParam1Start; //统杅1衄虴宎弇离
constfloat* m_pfParam1; //覃蚚统杅1
constfloat* m_pfParam2; //覃蚚统杅2
% Z  @) H; D5 }; X  _constfloat* m_pfParam3; //覃蚚统杅3
constfloat* m_pfParam4; //覃蚚统杅4,parameters must be <= 4
//const float* m_pfParam5; // parameters must be <= 4
//const float* m_pfParam6;
- K- c* @9 O) ^$ z1 ^  t) {//const float* m_pfParam7;
//const float* m_pfParam8;
//pData->m_pfParam1 && pData->m_pfParam2 &&pData->m_pfParam3 && pData->m_nParam1Start>=0 &&
7 o- h, D# _9 H' o% G% d  ppData->m_pCalcParam[0].m_nParamStart>=0&& pData->m_pCalcParam[1].m_nParamStart>=0
&&pData->m_pCalcParam[2].m_nParamStart>=0)
{
4 G/ J! \9 g+ H, yfloatfParam = *pData->m_pfParam4; //pointer ,pData->m_pCalcParam[3].m_nParamStart >= 0
intnPeriod = (int)fParam; //统杅1
3 G/ h1 q: H4 ^/ K2 P//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
  p+ s# y6 s; D3 `0 j//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 个值
//m_pData = const struct pointer to struct STKDATA , pointer to structSTKDATA ,
% {/ e4 z' H4 ytouse pData→m_pData[x].m_fClose
pData→m_pData[x]= | 1,2,3 , … , m_nNumParam | time_t m_time;
|1,2,3 , … , m_nNumParam | float m_fOime_t
* A+ X$ ]/ ]" F+ C|1,2,3 , … , m_nNumParam | float m_fHigh;
.. .
|1,2,3 , … , m_nNumParam | WORD m_wDecline;
m_nNumParam= 数据high,close,open,low的长度
touse high:
) k! i% q' D; y/ f+ w$ i& lpData→m_pData[x].m_fHigh
4 q! b  T6 G0 w; |+ Hcontentof struct STKDATA
% L5 B  O) ?( s3 Qtime_tm_time; //时间,UCT
floatm_fOpen; //开盘 open
) b2 r$ i9 @) M/ Kfloatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
; k6 s' a8 d0 z3 d8 xfloatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
WORDm_wAdvance; //上涨家数 仅大盘有效
WORDm_wDecline; //下跌家数 仅大盘有效
调用传递参数及传回结果
! o# N! i" |7 o. z2 i调用传递参数
' U) F; o8 u. @; P6 }(pData->m_pfParam1 && //参数1有效Param1exists
pData->m_nParam1Start<0&& //参数1为常数
; k4 b/ ~$ x8 W, q- ^, GpData->m_pfParam2==NULL) //
  O: e: K! ~/ }localprocedure 定义使用变数
2 Y3 H0 F5 s. z5 h9 Donstfloat* pValue = pData→m_pfParam1; //use constant参数1
; a$ Y- Y& _# ^% u6 TintnFirst = pData->m_nParam1Start; //use 参数1效值起始位
floatfParam = *pData->m_pfParam2; //use 参数2
9 ~% J( g/ i/ {intnPeriod = (int)fParam;
8 E; X- g4 K% K, z1 }$ `% U' }传回结果
3 l! O) x5 U' i' D$ `( _fTotal+= pValue[i-j];
5 d+ w" A+ F5 A: i' ]pData->m_pResultBuf
//////////////////////////////////////////comment