Наш сайт: https://forextester.ru/
https://www.forextester.ru/forum/
После создания библиотеки заходите в тестере в меню Файл -> Установить новый индикатор/стратегию.Эдуард писал(а):Подскажите как создать библиотеку dll и прикрепить ее к FT на примере простого индикатора для Delphi7, интересен не код индикатора или советника, а порядок установки библиотеки.
//
Скрипт из индикатора не получится. Структура скрипта:Николай Тарасов писал(а):Не получается скрипт
Михаил, доброе утро.
1. У меня не получается «Установить новый скрипт».
FT2 ругается: ‘Can not install script, file will be deleted.’
// Сделал две попытки.
Один пробный скрипт переделал из индикатора ‘ObjectsTest.dpr’, другой – из одноимённой стратегии ‘ObjectsTest.dpr’.
Делал по-тупому – просто все слова ‘Indicator’ и ‘Strategy’ заменил на ‘Script’.
Проблем при создании dll-файлов не возникало. //
2. Опубликуйте, пожалуйста, хоть один образец скрипта.
Для наглядности желательно с тем же наполнением, что и индикатор/стратегия ‘ObjectsTest.dpr’.
Заранее благодарю.
Код: Выделить всё
library <Script name>;
uses
// интерфейсный модуль
ScriptInterfaceUnit;
var
// внешние параметры
...
// внутренние переменные
...
//-------------------------------------------
// процедура инициализации
//-------------------------------------------
procedure Init; stdcall;
begin
// определяем внешние параметры и внутренние переменные
// тоже самое что и в стратегии/индикаторе
...
end;
//-------------------------------------------
// процедура деинициализации
//-------------------------------------------
procedure Done; stdcall;
begin
// освобождаем память если ее занимали для некоторых переменных
...
end;
//-------------------------------------------
// Выполнить скрипт
//-------------------------------------------
procedure Execute; stdcall;
begin
// что-то делаем
...
end;
exports
Init, Done, Execute;
end.
Странно. Неужели скрипт не сможет один раз нарисовать несколько объектов, как это делают ваши индикатор ObjectsTest и стратегия ObjectsTest?Terranin писал(а): Скрипт из индикатора не получится.
А что, разве в FT2 скриптом нельзя "капнуть" на график? В МТ4 эту функцию очень удобно использовать - ведь снимается информация о баре, на который "упала капля" (технология "drag and drop"). И уже потом, опираясь на этот опорный бар, можно делать всё что пожелаешь.Terranin писал(а): ... скрипты вызывается по комбинации клавиш.
1. Сможет, я имел ввиду что он работает как стратегия (можно использовать все теже функции что и в стратегии кроме создания индикаторов) но не как индикатор.Николай Тарасов писал(а):Вопрс 1.Странно. Неужели скрипт не сможет один раз нарисовать несколько объектов, как это делают ваши индикатор ObjectsTest и стратегия ObjectsTest?Terranin писал(а): Скрипт из индикатора не получится.
Вопрос 2.А что, разве в FT2 скриптом нельзя "капнуть" на график? В МТ4 эту функцию очень удобно использовать - ведь снимается информация о баре, на который "упала капля" (технология "drag and drop"). И уже потом, опираясь на этот опорный бар, можно делать всё что пожелаешь.Terranin писал(а): ... скрипты вызывается по комбинации клавиш.
А жаль!Terranin писал(а): Капнуть на график нельзя...
//
Код: Выделить всё
//--------------------------------------------------------------------------
// Objects test - Example how to work with objects from Script
//--------------------------------------------------------------------------
library ObjectsTest;
uses
ScriptInterfaceUnit;
//-------------------------------------------
// Initialize Script
//-------------------------------------------
procedure Init; stdcall;
begin
ScriptShortName('ObjectsTest');
ScriptDescription('Objects'' interface test');
end;
//-------------------------------------------
// Deinitialize Script
//-------------------------------------------
procedure Done; stdcall;
begin
end;
//-------------------------------------------
// Execute Script
//-------------------------------------------
procedure Execute; stdcall;
var
i: integer;
const
names: array[0..8] of string = ('Line0', 'Line1', 'Line2', 'Line3', 'Fibo1',
'Fibo2', 'Fibo3', 'Fibo4', 'Text1');
begin
if Bars < 80 then
exit;
// create vertical line
if not(ObjectExists(names[0])) then
begin
ObjectCreate(names[0], obj_VLine, 0, Time(0), 0);
/// ObjectSet(names[0], OBJPROP_STYLE, integer(psDot));
/// ObjectSet(names[0], OBJPROP_COLOR, clYellow);
ObjectSet(names[0], OBJPROP_WIDTH, 1);
end;
// create horizontal line
if not(ObjectExists(names[1])) then
ObjectCreate(names[1], obj_HLine, 0, 0, Close(0));
// create trend line
if not(ObjectExists(names[2])) then
ObjectCreate(names[2], obj_TrendLine, 0, Time(10), Close(10),
Time(0), Close(0));
// create ray
if not(ObjectExists(names[3])) then
ObjectCreate(names[3], obj_Ray, 0, Time(10), Open(10),
Time(0), Open(0));
// create fibo retracement
if not(ObjectExists(names[4])) then
begin
ObjectCreate(names[4], obj_FiboRetracement, 0, Time(40), Close(40),
Time(10), Close(10));
ObjectSet(names[4], OBJPROP_FIBOCLOSEDENDS, 1);
ObjectSet(names[4], OBJPROP_FIBOSHOWPRICE, 0);
ObjectSet(names[4], OBJPROP_FIBOENDWIDTH, 40);
// define 3 levels
ObjectSet(names[4], OBJPROP_FIBOLEVELS, 3);
for i:=0 to 2 do
begin
ObjectSet(names[4], OBJPROP_FIBOLEVELN, i);
ObjectSet(names[4], OBJPROP_LEVELVALUE, i*50);
/// ObjectSet(names[4], OBJPROP_LEVELCOLOR, clBlue);
/// ObjectSet(names[4], OBJPROP_LEVELSTYLE, integer(psDot));
ObjectSet(names[4], OBJPROP_LEVELWIDTH, 1);
end;
end;
// create fibo fan
if not(ObjectExists(names[5])) then
begin
ObjectCreate(names[5], obj_FiboFan, 0, Time(80), Close(80),
Time(50), Close(50));
// define 3 levels
ObjectSet(names[5], OBJPROP_FIBOLEVELS, 3);
for i:=0 to 2 do
begin
ObjectSet(names[5], OBJPROP_FIBOLEVELN, i);
ObjectSet(names[5], OBJPROP_LEVELVALUE, i*30);
/// ObjectSet(names[5], OBJPROP_LEVELCOLOR, clGreen);
/// ObjectSet(names[5], OBJPROP_LEVELSTYLE, integer(psSolid));
ObjectSet(names[5], OBJPROP_LEVELWIDTH, 1);
end;
end;
// create text
if not(ObjectExists(names[8])) then
begin
ObjectCreate(names[8], obj_Text, 0, Time(10), Close(0));
/// ObjectSetText(names[8], 'Test text', 12, 'Arial', clYellow);
ObjectSet(names[8], OBJPROP_VALIGNMENT, tlBottom);
ObjectSet(names[8], OBJPROP_HALIGNMENT, taLeftJustify);
end;
// set vertical line props
ObjectSet(names[0], OBJPROP_TIME1, Time(0));
// set horizontal line props
ObjectSet(names[1], OBJPROP_PRICE1, Close(0));
// set trend line props
ObjectSet(names[2], OBJPROP_TIME1, Time(10));
ObjectSet(names[2], OBJPROP_PRICE1, Close(10));
ObjectSet(names[2], OBJPROP_TIME2, Time(0));
ObjectSet(names[2], OBJPROP_PRICE2, Close(0));
// set ray props
ObjectSet(names[3], OBJPROP_TIME1, Time(10));
ObjectSet(names[3], OBJPROP_PRICE1, Open(10));
ObjectSet(names[3], OBJPROP_TIME2, Time(0));
ObjectSet(names[3], OBJPROP_PRICE2, Open(0));
// set fibo retracement props
ObjectSet(names[4], OBJPROP_TIME1, Time(40));
ObjectSet(names[4], OBJPROP_PRICE1, Close(40));
ObjectSet(names[4], OBJPROP_TIME2, Time(10));
ObjectSet(names[4], OBJPROP_PRICE2, Close(10));
// set fibo fan props
ObjectSet(names[5], OBJPROP_TIME1, Time(80));
ObjectSet(names[5], OBJPROP_PRICE1, Close(80));
ObjectSet(names[5], OBJPROP_TIME2, Time(50));
ObjectSet(names[5], OBJPROP_PRICE2, Close(50));
// set text props
ObjectSet(names[8], OBJPROP_TIME1, Time(10));
ObjectSet(names[8], OBJPROP_PRICE1, Close(0));
end;
exports
Init, Done, Execute;
end.Код: Выделить всё
// create trend
if not(ObjectExists(name[0])) then
begin
ObjectCreate(name[0], obj_TrendLine, 0,
time1, price1,
time2, price2);
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, clGreen);
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, 'clGreen');
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, 'Green');
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, clGreen);
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, integer(clGreen));
// ObjectSet(name[0], OBJPROP_LEVELCOLOR, 64);
ObjectSet(name[0], OBJPROP_LEVELCOLOR, $01000000);
// ObjectSet(name[0], OBJPROP_LEVELSTYLE, integer(psDot));
ObjectSet(name[0], OBJPROP_LEVELSTYLE, 4);
ObjectSet(name[0], OBJPROP_LEVELWIDTH, 4);
end;
Код: Выделить всё
ObjectCreate(name[0], obj_Text, 0, Time(40), Close(40));
/// ObjectSetText(names[0], 'Text1', 10, 'Arial', clYellow);
ObjectSetText(names[0], 'Text1', 10, 'Arial');Код: Выделить всё
ObjectSetText(name[0], StrPriceType(Time(40)), 10, 'Arial');
Код: Выделить всё
ObjectSetText(name[0], StrPriceType(Time(40)), 10, 'Arial');Код: Выделить всё
Print(StrPriceType(pt_Close));
// в этом случае функция вернёт "Close"
Замечательно!FT Support писал(а):Здравствуйте, Николай, скрипт у себя проверили, оказывается нужно просто добавить библиотеку graphics и всё будет работать...
Да, да. Это нам, скромным любителям МТ4, известно.FT Support писал(а):... Кстати обратите внимание на то, что пунктирные линии будут рисоваться только при толщине 1, если сделать линию толще, то она будет сплошной, это ограничения Windows, в МетаТрейдере например та же ситуация.
Код: Выделить всё
uses
ScriptInterfaceUnit, TechnicalFunctions, graphics;Ох, простите, в своём вопросе я допустил опечатку.FT Support писал(а):По поводу ошибки с вот этим кодом:Код неверный потому что функция StrPriceType принимает тип цены, а Вы передаёте туда дату/время, и вот несоответствие типов...Код: Выделить всё
ObjectSetText(name[0], StrPriceType(Time(40)), 10, 'Arial');
Код: Выделить всё
ObjectSetText(PointName[0], StrPriceType(Time(40)), 10, 'Arial');Код: Выделить всё
ObjectSetText(PointName[0], StrPriceType(Close(40)), 10, 'Arial');После вашего первого совета я попробовал сделать так:FT Support писал(а):...Пример использования функции StrPriceType такой:Код: Выделить всё
Print(StrPriceType(pt_Close)); // в этом случае функция вернёт "Close"
Код: Выделить всё
ObjectSetText(PointName[0], Print(StrPriceType(Close(40))), 12, 'Arial');Вот. Это уже кое-что.FT Support писал(а):...Чтобы присвоить текстовому объекту числовое значение нужно использовать стандартные функции дельфи например IntToStr чтобы перевести число в строку
Код: Выделить всё
uses
ScriptInterfaceUnit, TechnicalFunctions, graphics, SysUtils;Код: Выделить всё
ObjectSetText(name[0], FloatToStr(Close(40)), 10, 'Arial'); Благодарю за помощь.FT Support писал(а):... Если компилятор будет выдавать ошибки вида:
[Pascal Error] TestScript.dpr(58 ): E2034 Too many actual parameters
на строки, где используется вызов функции Time(0), то заменить этот вызов таким образом: ScriptInterfaceUnit.Time(0)
Код: Выделить всё
//--------------------------------------------------------------------------
// Objects test - Example how to work with objects from Script
//--------------------------------------------------------------------------
library ObjectsTest;
//-------------------------------------------
// Initialize Script
//-------------------------------------------
uses
ScriptInterfaceUnit,
TechnicalFunctions,
graphics;
procedure Init; stdcall;
begin
ScriptShortName('ObjectsTest');
ScriptDescription('Objects'' interface test');
end;
//-------------------------------------------
// Deinitialize Script
//-------------------------------------------
procedure Done; stdcall;
begin
end;
//-------------------------------------------
// Execute Script
//-------------------------------------------
procedure Execute; stdcall;
var
i: integer;
const
names: array[0..8] of string = ('Line0', 'Line1', 'Line2', 'Line3', 'Fibo1',
'Fibo2', 'Fibo3', 'Fibo4', 'Text1');
begin
if Bars < 80 then
exit;
// create vertical line
if not(ObjectExists(names[0])) then
begin
ObjectCreate(names[0], obj_VLine, 0,
ScriptInterfaceUnit.Time(0), 0);
ObjectSet(names[0], OBJPROP_STYLE, integer(psDot));
ObjectSet(names[0], OBJPROP_COLOR, clYellow);
ObjectSet(names[0], OBJPROP_WIDTH, 1);
end;
// create horizontal line
if not(ObjectExists(names[1])) then
ObjectCreate(names[1], obj_HLine, 0, 0, Close(0));
// create trend line
if not(ObjectExists(names[2])) then
ObjectCreate(names[2], obj_TrendLine, 0,
ScriptInterfaceUnit.Time(10), Close(10),
ScriptInterfaceUnit.Time(0), Close(0));
// create ray
if not(ObjectExists(names[3])) then
ObjectCreate(names[3], obj_Ray, 0,
ScriptInterfaceUnit.Time(10), Open(10),
ScriptInterfaceUnit.Time(0), Open(0));
// create fibo retracement
if not(ObjectExists(names[4])) then
begin
ObjectCreate(names[4], obj_FiboRetracement, 0,
ScriptInterfaceUnit.Time(40), Close(40),
ScriptInterfaceUnit.Time(10), Close(10));
ObjectSet(names[4], OBJPROP_FIBOCLOSEDENDS, 1);
ObjectSet(names[4], OBJPROP_FIBOSHOWPRICE, 0);
ObjectSet(names[4], OBJPROP_FIBOENDWIDTH, 40);
// define 3 levels
ObjectSet(names[4], OBJPROP_FIBOLEVELS, 3);
for i:=0 to 2 do
begin
ObjectSet(names[4], OBJPROP_FIBOLEVELN, i);
ObjectSet(names[4], OBJPROP_LEVELVALUE, i*50);
ObjectSet(names[4], OBJPROP_LEVELCOLOR, clBlue);
ObjectSet(names[4], OBJPROP_LEVELSTYLE, integer(psDot));
ObjectSet(names[4], OBJPROP_LEVELWIDTH, 1);
end;
end;
// create fibo fan
if not(ObjectExists(names[5])) then
begin
ObjectCreate(names[5], obj_FiboFan, 0,
ScriptInterfaceUnit.Time(80), Close(80),
ScriptInterfaceUnit.Time(50), Close(50));
// define 3 levels
ObjectSet(names[5], OBJPROP_FIBOLEVELS, 3);
for i:=0 to 2 do
begin
ObjectSet(names[5], OBJPROP_FIBOLEVELN, i);
ObjectSet(names[5], OBJPROP_LEVELVALUE, i*30);
ObjectSet(names[5], OBJPROP_LEVELCOLOR, clGreen);
ObjectSet(names[5], OBJPROP_LEVELSTYLE, integer(psSolid));
ObjectSet(names[5], OBJPROP_LEVELWIDTH, 1);
end;
end;
// create text
if not(ObjectExists(names[8])) then
begin
ObjectCreate(names[8], obj_Text, 0,
ScriptInterfaceUnit.Time(10), Close(0));
ObjectSetText(names[8], 'Test text', 12, 'Arial', clYellow);
ObjectSet(names[8], OBJPROP_VALIGNMENT, tlBottom);
ObjectSet(names[8], OBJPROP_HALIGNMENT,
ScriptInterfaceUnit.taLeftJustify);
end;
// set vertical line props
ObjectSet(names[0], OBJPROP_TIME1, ScriptInterfaceUnit.Time(0));
// set horizontal line props
ObjectSet(names[1], OBJPROP_PRICE1, Close(0));
// set trend line props
ObjectSet(names[2], OBJPROP_TIME1, ScriptInterfaceUnit.Time(10));
ObjectSet(names[2], OBJPROP_PRICE1, Close(10));
ObjectSet(names[2], OBJPROP_TIME2, ScriptInterfaceUnit.Time(0));
ObjectSet(names[2], OBJPROP_PRICE2, Close(0));
// set ray props
ObjectSet(names[3], OBJPROP_TIME1, ScriptInterfaceUnit.Time(10));
ObjectSet(names[3], OBJPROP_PRICE1, Open(10));
ObjectSet(names[3], OBJPROP_TIME2, ScriptInterfaceUnit.Time(0));
ObjectSet(names[3], OBJPROP_PRICE2, Open(0));
// set fibo retracement props
ObjectSet(names[4], OBJPROP_TIME1, ScriptInterfaceUnit.Time(40));
ObjectSet(names[4], OBJPROP_PRICE1, Close(40));
ObjectSet(names[4], OBJPROP_TIME2, ScriptInterfaceUnit.Time(10));
ObjectSet(names[4], OBJPROP_PRICE2, Close(10));
// set fibo fan props
ObjectSet(names[5], OBJPROP_TIME1, ScriptInterfaceUnit.Time(80));
ObjectSet(names[5], OBJPROP_PRICE1, Close(80));
ObjectSet(names[5], OBJPROP_TIME2, ScriptInterfaceUnit.Time(50));
ObjectSet(names[5], OBJPROP_PRICE2, Close(50));
// set text props
ObjectSet(names[8], OBJPROP_TIME1, ScriptInterfaceUnit.Time(10));
ObjectSet(names[8], OBJPROP_PRICE1, Close(0));
end;
exports
Init,
Done,
Execute;
end.Подписать цену на графике можно так:FT Support писал(а):С точки зрения программирования конвертация типов это очень даже стандартные средства.
В Вашем случае следует сделать примерно так:
1) Добавить библиотеку SysUtils2) Использовать функцию FloatToStr из этой библиотеки:Код: Выделить всё
uses ScriptInterfaceUnit, TechnicalFunctions, graphics, SysUtils;3) Если компилятор будет выдавать ошибки вида:Код: Выделить всё
ObjectSetText(name[0], FloatToStr(Close(40)), 10, 'Arial');
[Pascal Error] TestScript.dpr(58 ): E2034 Too many actual parameters
на строки, где используется вызов функции Time(0), то заменить этот вызов таким образом: ScriptInterfaceUnit.Time(0)
Код: Выделить всё
// create point1
if not(ObjectExists(name[0])) then
ObjectCreate(name[0], obj_Text, 0, ScriptInterfaceUnit.Time(40), Close(40));
// set point1 props
ObjectSet(name[0], OBJPROP_TIME1, ScriptInterfaceUnit.Time(40));
ObjectSet(name[0], OBJPROP_PRICE1, Close(40));
ObjectSetText(Name[0], '<1: '+FloatToStrF(Close(40),ffFixed,Digits+1,Digits),
12, 'Arial', graphics.clOrangeRed);
ObjectSet(name[0], OBJPROP_VALIGNMENT, tlCenter);
ObjectSet(name[0], ScriptInterfaceUnit.OBJPROP_HALIGNMENT,
ScriptInterfaceUnit.taLeftJustify);Код: Выделить всё
color1 := RGB($FF, $45, $00); // OrangeRed
color2 := RGB($32, $CD, $32); // LimeGreen
color3 := RGB($00, $BF, $FF); // DeepSkyBlue
color4 := RGB($1E, $90, $FF); // DodgerBlue
color5 := RGB($BA, $55, $D3); // MediumOrchid