您現在的位置：程序化交易>> 股票公式>> 通達信>> 通達信知識>>正文內容

[原創]通達信dll公式函數規范,delphi版　[通達信]

作者：通達信來源：cxh99.com 發布時間：2016年05月15日點擊數：　【收藏到本網的會員中心】

咨詢內容：
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]:=pfinb[i];
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.

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 511411198 進行有償編寫！（不貴！點擊查看價格！）

【字體：小大】【打印文章】【查看評論】

沒有相關內容

[原創]通達信dll公式函數規范,delphi版　[通達信]

相關文章

欄目導航

本月熱門排行

用戶常看內容

會員登錄/注冊

[原創]通達信dll公式函數規范,delphi版 [通達信]

相關文章

欄目導航

本月熱門排行

用戶常看內容

會員登錄/注冊

[原創]通達信dll公式函數規范,delphi版　[通達信]