大智慧入池股票数DLL源代码

送给有需要的朋友
__declspec(dllexport) int WINAPI JLGPS(CALCINFO* pData)
 {www.qill.cn

 if(pData->m_pfParam1 && pData->m_pfParam2 && //参数1,2有效
pData->m_pfParam3 &&
 pData->m_nParam1Start>=0 && //参数1为序列数
pData->m_pfParam4==NULL) //有2个参数
{www.qill.cn
int i=pData->m_nNumData-1;
 int g=(int)*(pData->m_pfParam2);
 int tj=(int)pData->m_pfParam1;
 if (tj) //tj是选股条件
{www.qill.cn
gpjl gpa;
 strcpy(gpa.dm,pData->m_strStkLabel);
 gpa.sjd=GetTickCount();
 int bz=0;//修改标志
vector<gpjl>::iterator it;
 if (gpz[g].size()==0)
 {www.qill.cngpz[g].push_back(gpa);
 bz=1;
 }
 else
 {www.qill.cn
 for(it=gpz[g].begin();it!=gpz[g].end();)
 {www.qill.cn
 if(strcmp(it->dm,gpa.dm)==0)
 {www.qill.cn
 it->sjd=gpa.sjd;
 bz=1;
 }
 if( gpa.sjd- it->sjd>=(int)*(pData->m_pfParam3)*1000) //8改第2个参数
it=gpz[g].erase(it);
 else
 ++it;
 }
 }
 if(bz==0)
 gpz[g].push_back(gpa);
 }
 if (tj) //tj是第一个参数
pData->m_pResultBuf=1;
 else
 pData->m_pResultBuf=0;
 //gp.nSize();
 return i;
 }
 return -1;
 }

 __declspec(dllexport) int WINAPI JLGPS_CALC_PREV(CALCINFO* pData)
 {www.qill.cn
 if(pData->m_pfParam2)
 {www.qill.cn
 float f = *pData->m_pfParam2;
 return ((int)f) - 1;
 }
 return 0;
 }

 __declspec(dllexport) int WINAPI GPS(CALCINFO* pData)
 {www.qill.cn

 if(pData->m_pfParam1 && //参数1,2有效
pData->m_nParam1Start<0 && //参数1为序列数
pData->m_pfParam2==NULL) //有2个参数
{www.qill.cn
int i=pData->m_nNumData-1;
 int g=(int)*(pData->m_pfParam1);
 pData->m_pResultBuf=gpz[g].size();//股票数

return i;
 }
 return -1;
 }

 __declspec(dllexport) int WINAPI GPS_CALC_PREV(CALCINFO* pData)
 {www.qill.cn
 if(pData->m_pfParam2)
 {www.qill.cn
 float f = *pData->m_pfParam2;
 return ((int)f) - 1;
 }
 return 0;
 }