Описание функций tslink.dll

 

Функция "TS_StartExcel"

 

Инициализирует и открывает файл приложения Excel

 

defineDLLFunc: "tslink.dll", int, "TS_StartExcel",LPSTR, LPSTR;

 

I. Указатель на название и месторасположение используемого файла Excel

II. Указатель на название файла Excel.

 

Функция "TS_SetValue"

 

Передает значение из TradeStation в приложение Excel

 

defineDLLFunc: "tslink.dll", int, "TS_SetValue",float,int,int,int,int;

 

I. Номер используемого листа в excel начиная с 1 (sheet1 = 1, и т.п.).

II. Значение которое необходимо передать в Excel.

III. Номер Строки (Row) в которую будет передаваться значение из TradeStation.

IV. Номер Столбца (Column) в которую будет передаваться значение из TradeStation.

V. Задержка в милисекундах (Sleep) после передачи значения в Excel.

 

Функция "TS_GetValue"

 

Получает значение из приложения Excel и передает его в TradeStation

 

defineDLLFunc: "tslink.dll", float, "TS_GetValue",int,int,int,int;

 

I.Номер используемого листа в excel начиная с 1 (sheet1 = 1, и т.п.).

II. Номер Строки (Row) в которой находится нужное значение.

III. Номер Столбца (Column) в котором находится нужное значение.

IV. Задержка в милисекундах (Sleep) перед получением значения из Excel.

 

Функция " TS_SetString"

 

Передает укзатель на строку (текст) из TradeStation в приложение Excel

 

defineDLLFunc: "tslink.dll", int, "TS_SetString",lpstr,int,int,int,int;

 

I. Значение которое необходимо передать в Excel

II. Номер используемого листа в excel начиная с 1 (sheet1 = 1, и т.п.).

III. Номер Строки (Row) в которую будет передаваться значение из TradeStation.

IV. Номер Столбца (Column) в которую будет передаваться значение из TradeStation.

V. Задержка в милисекундах (Sleep) после передачи значения в Excel.

 

 

 

 

 

 

Функция " TS_GetString"

 

Получает указатель настроку (текст) из приложения Excel и передает его в TradeStation

defineDLLFunc: "tslink.dll", int, "TS_GetString",int,int,int,int;

 

I. Номер используемого листа в excel начиная с 1 (sheet1 = 1, и т.п.).

I. Номер Строки (Row) в которой находится нужное значение.

II. Номер Столбца (Column) в котором находится нужное значение.

III. Задержка в милисекундах (Sleep) перед получением значения из Excel.

 

Важное замечание !

 

В демонстрационной версии tslink.dll невозможна передача и получение значений из Excel из других ячеек кроме:

- Листа в Excel № 1

- Ячейки R1C2 для передачи данных типа String (Text) в Excel

- Ячейки R2C2 для получения данных типа String (Text) из Excel и передачи их в TradeStation.

- Ячейки R3C2 для передачи данных типа Int в Excel

- Ячейки R4C2 для получения данных типа Int из Excel и передачи их в TradeStation.

 

Остальные параметры работы демнстрационной версии модуля Dll от рабочей версии, отличий не имеют и функционируют в полном объеме.

 

Пример индикатора TS_Link(Example):

 

{*******************************************************************

Description : Trade Smart Research Link DLL for TradeStation (Omega Research)

Used: tslink.dll

Provided By : Trade Smart Research Group (c) Copyright 2001 - 2002

www.tsresearchgroup.com

********************************************************************}

Inputs: Price(close),SetSheet(1),SetRow(3),SetColum(2),GetSheet(1),GetRow(4),GetColum(2);

Var: StartValue(0),SetValue(0), GetValue(0), StrName(""),Str1("");

 

{Declaration functions}

defineDLLFunc: "tslink.dll", int, "TS_StartExcel",LPSTR,LPSTR; {initalisation excel file 1 - Short BookName, 2 - full path bookname}

defineDLLFunc: "tslink.dll", int, "TS_SetValue",float,int,int,int,int; {value,sheet number, row, column, spleep milisekonds}

defineDLLFunc: "tslink.dll", float, "TS_GetValue",int,int,int,int; {sheet number,row, column, spleep milisekonds}

defineDLLFunc: "tslink.dll", int, "TS_SetString",lpstr,int,int,int,int; {text,sheet number, row, column, spleep milisekonds}

defineDLLFunc: "tslink.dll", lpstr, "TS_GetString",int,int,int,int; {sheet number, row, column, spleep milisekonds}

 

if currentbar = 1 then begin

If DataCompression = 1 then Str1 = NumToStr(barinterval,0) + "Min";

if DataCompression = 2 then Str1 = "Daily";

if DataCompression = 3 then Str1 = "Weekly";

if DataCompression = 4 then Str1 = "Monthly";

if DataCompression = 5 then Str1 = "P&F";

if DataCompression = 0 then Str1 = NumToStr(barinterval,0) + " " + "Tick";

StrName =GetSymbolName + " " + GetStrategyName + " " + Str1+" ";

StartValue = TS_StartExcel("TSLinkDemo.xls","C:\Program Files\TS Link\TSLinkDemo.xls");

TS_SetString(StrName,SetSheet,1,2,0);

end;

 

{Call Dll and send and receive to it of the value}

SetValue = TS_SetValue(Price,SetSheet,SetRow,SetColum,0);

GetValue = TS_GetValue(GetSheet,GetRow,GetColum,0);

 

Plot1(GetValue, "Value");