大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

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

[原創]通達信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  點擊這里給我發消息進行 有償 編寫！（不貴！點擊查看價格！）


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

相關文章

    沒有相關內容
主站蜘蛛池模板： 精品视频香蕉尹人在线 | 日日干天天干 | 久久天天躁狠狠躁夜夜 | 亚洲国产中文字幕在线观看 | 精品免费久久久久久成人影院 | www.久久久 | 在线观看日韩一区 | 国产在线观看91 | 性视频久久 | 国产1区精品 | avav在线精品 | 中文字幕国产一区 | 精品福利在线观看 | 天天做天天爱天天影视综合 | 天天操天天干视频 | 精品国产一区二区三区久 | 亚洲欧美综合图区官网 | 久久精品www| 亚洲国产精品成人综合久久久 | 日韩美在线 | 中文字幕日韩精品在线 | 久久国产精品吴梦梦 | 国产精品日日做人人爱 | 黄在线观看网站 | 亚洲精品一区二区三区在线看 | 久草视频在线播放 | 日韩免费高清一级毛片在线 | 亚洲精品第五页中文字幕 | 无码免费一区二区三区免费播放 | 国产精品999在线 | 婷婷综合另类小说色区 | 国产香蕉98碰碰久久人人 | 欧美一区二区在线观看免费网站 | 亚洲国产大片 | 99精品视频在线观看免费 | 日韩精品亚洲人成在线播放 | 国产一区曰韩二区欧美三区 | 深夜免费看片 | 男人都懂的网站 | 久久久久久久久中文字幕 | 一区二区视频在线观看 |