library tdxdlltest;
{通达信dll公式函数规范 delphi版 2016.03.05 } uses
SysUtils,Windows;
{$R *.res} type
ArraySingle=array of single; type
pPluginFUNC = procedure(p1: Integer; var p2, p3, p4, p5: ArraySingle); cdecl;//不要修改
tagPluginTCalcFuncInfo = packed record nFuncMark: Word; pCallFunc: pPluginFUNC; end;
PluginTCalcFuncInfo = tagPluginTCalcFuncInfo; PPluginTCalcFuncInfo = ^PluginTCalcFuncInfo; PPPluginTCalcFuncInfo = ^PPluginTCalcFuncInfo;
pRegisterPluginFUNC = function(pFun: PPPluginTCalcFuncInfo):LongBool;cdecl;
var
g_CalcFuncSets: array[0..2] of PluginTCalcFuncInfo;
procedure
TestPlugin1(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl;
var // F8F8F8F8 表示无效数据,通达信公式中将不会显示 i:integer; pc1:PCardinal; begin
for i:=0 to datalen-1 do begin
pfOUT[i]:=pfina[i]; if i>=datalen-10 then begin
pc1:=@pfout[i]; pc1^:=$F8F8F8F8; end; end; end;
{通达信dll公式函数规范 delphi版 悟多qq911322 2016.03.05 ，像悟多先生致谢~ } procedure
TestPlugin2(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl; var i:integer; begin
for i:=0 to datalen-1 do begin
pfOUT[i]:=pfina[i]+1;//返回值是输入值+1
end; end;
procedure
TestPlugin3(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl; var i:integer; begin
for i:=0 to datalen-1 do begin
pfOUT[i]:=pfinc[i]; end; end;
procedure InitStruct; begin
g_CalcFuncSets[0].nFuncMark := 1;
g_CalcFuncSets[0].pCallFunc := @TestPlugin1; g_CalcFuncSets[1].nFuncMark := 2;
g_CalcFuncSets[1].pCallFunc := @TestPlugin2; g_CalcFuncSets[2].nFuncMark := 3;
g_CalcFuncSets[2].pCallFunc := @TestPlugin3; //有更多的函数的话，可以增加到这里 end;
function RegisterTdxFunc(pFun: PPPluginTCalcFuncInfo): LongBool; cdecl; begin
Result := False; if pFun^ = nil then begin
pFun^ := @g_CalcFuncSets; //绑定dll函数起始地址 Result := True;
end; end; exports
RegisterTdxFunc; begin InitStruct; end.