Hi,

I need help in Metastock Developers Kit (MDK). I copied forum.dll and I try this code and it works:
prd:=PeakBars(1,C,5)-1;
data:=ExtFml("Forum20.Ref",C,prd);


But if I try to make my own code with my own function then it show error "This variable or expression must contain only constant data." for "prd" :
prd:=PeakBars(1,C,5)-1;
data:=ExtFml("MyCode.Ref",C,prd);

I try to make the function just like they have in the example CSampleDLL.cpp. But it still showing me same error. What mistake am I doing. Why my function only accept constant and not the calculate "prd".?

Please Please help. I am going mad solving this.

Thank You
Teng Fei

Thank You Wabbit.

I put late response as I wanted to solve problem by myself. I do as you say and my code work fine with MSXTest. But when I run the code as function from metastock it do not work.

My code is:

const MSXDataInfoRec *myData;

myData = a_psDataInfoArgs->psDataInfoRecs[0];

sprintf(Ctestingdata,"%4f",a_psDataInfoArgs->iNRecs);
strcat(Ctestingdata," ");
sprintf(Ct,"%4f",myData->pfValue[1]);
strcat(Ctestingdata,Ct);

MessageBox(NULL,Ctestingdata,"Test",MB_OK);

My result are:
Input: const = 1;
Output MSXTest: iNRecs is 0, myData->pfValue[1] = 1;
Output call dll from Metastock: iNRecs = 0; myData->pfValue[1] = first "open" in the stock data.

I want to get the output fomr dll call from metastock to give the const that i am inputting.

How can i get this?

LX:=Fml("[censored]tfbuyclose_algo");
SE:=Fml("[censored]TFOpenSell");
SX:=Fml("[censored]tfsellclose_algo");

Z:=ExtFml("forum20.Latch",LE,LX,SE,SX);

EnterLong:=((Z = 1) AND (Ref(Z,-1) <> 1));
ExitLong:=((Z = 0) AND (Ref(Z,-1) = 1));
EnterShort:=((Z = -1) AND (Ref(Z,-1) <> -1));
ExitShort:=((Z = 0) AND (Ref(Z,-1) = -1));

EnterLong:=If(EnterLong,1,0);
ExitLong:=If(ExitLong,2,0);
EnterShort:=If(EnterShort,3,0);
ExitShort:=If(ExitShort,4,0);

If(EnterLong=1,ExtFml("delete.SumArrays4",EnterLong,"Buy","Open"),0);
If(ExitLong=1,ExtFml("delete.SumArrays4",ExitLong,"Buy","Close"),0);
If(EnterShort=1,ExtFml("delete.SumArrays4",EnterShort,"Sell","Open"),0);
If(ExitShort=1,ExtFml("delete.SumArrays4",ExitShort,"Sell","Close"),0);
EnterLong;
ExitLong;
EnterShort;
ExitShort;

When I see value in chart, it show value in EnterLong/Short and ExitLong/Short , but the message pop just show 0.0000 value passed on.

The code is fine on MSXTest.

Thank You,
Teng Fei

Dear Wabbit,

I thank you for help and sorry for putting late response. I was away for few days. I find the error in the code. I use pfValue[0] instead of pfValue[iLastValid] to get value. It work in MSXtest as iLastValid same as 0 value. But it not work in actual code.

Thank You,
Teng Fei