Форум по Forex Tester 5

skaat писал(а):Привет всем)
Итак С++ интерфейс в процессе...

Те вопросы что обсуждались на пауке решены)

Возможно, еще прийдется поколдовать с типами данных, например такой как OleVariant напрягает, это как раз привязка к Builder/VCL

и надо будет уточнить кое какие детали по совместной работе с памятью, в часности функция замены строк replacestr усли не ошибаюсь, об это позже, некогда сейчас

skaat писал(а):Вот это самое трудное - признаться что не получается), но увы...не выходит пока ничего с ентим апи.
В связи с этим такие есть вопросы: нафиг там эта структура InterfaceProcsRec, и нельзя ли эти функции просто экспортировать... то есть перечислить их в секции export в ForexTester.exe?
Далее функции эти объявлены со словом 'of Object', что есть резервация места под указатель на абстрактный объект, если я правильно понял, так вот в С++ нет аналога такому. Правда в С++билдере есть затычка __closure специально для совместимости с объектным паскалем, но это опять же привязка к VCL(.
Итак нам нужен указатель на определенный клас - контейнер для этих функций, затем этот же класс(указатель) и экспортировать, либо эти функции должны быть глобальными.
В общем необходимо переписать интерфейс так, что бы обеспечить непосредственный импорт функий АПИ или же импорт класса-контейнера.

Вообще-то есть еще вариант(непроверенный пока), попробую реализовать такой импорт из этих же модулей - IndicatorInterfaceUnit - так наверное будет лучше всего. В результате получится комплект из либы IndicatorInterfaceUnit.o и заголовочного файла IndicatorInterfaceUnit.H... в общем будем пробовать.

Терранин, а у тебя есть какие то наработки в этом направлении? Поделись) а то вдруг я велосипед изобретаю......

type
  TFunc = procedure(index: integer) of object; stdcall;

  MyRecord = record
    func1: TFunc;    
  end;

MyRecord.func1(10);

должно быть равно:

type
  TFunc = procedure(ptr: pointer; index: integer); stdcall;

  MyRecord = record
    ObjPtr: pointer;
    func1: TFunc;    
  end;

MyRecord.func1(MyRecord.ObjPtr, 10);

Приставка в конце функции object просто указывает что первым параметром в функцию неявно передастся указатель на объект.

skaat писал(а):Неа, так ничего не выйдет.

Приставка в конце функции object просто указывает что первым параметром в функцию неявно передастся указатель на объект.

Видишь ли это теория, а на практике это значит что адрес функции в памяти(в структуре) занимает 8 байт, а количество и тип параметров вообще ни как на это дело не влияют.

Короче я попробую по своему - сделаю отдельную dll для экспорта, и от нее уже будем плясать)

Terranin писал(а):

skaat писал(а):Неа, так ничего не выйдет.

Приставка в конце функции object просто указывает что первым параметром в функцию неявно передастся указатель на объект.

Видишь ли это теория, а на практике это значит что адрес функции в памяти(в структуре) занимает 8 байт, а количество и тип параметров вообще ни как на это дело не влияют.

Короче я попробую по своему - сделаю отдельную dll для экспорта, и от нее уже будем плясать)

Правильно 8 байт. Я ж тебе написал как эти 8 байт будут выглядеть: сначала указатель на объект потом адрес функции. А при вызове функции этот указатель надо передать перед всеми остальными параметрами вот и все. Сегодня сделаю пример и пришлю.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  public
    function Test(index: integer): double; stdcall;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TFunc1 = function(index: integer): double of object; stdcall;
  TFunc2 = function(ptr: pointer; index: integer): double; stdcall;

  TRecord1 = packed record
    func: TFunc1;
  end;

  TRecord2 = packed record
    func: TFunc2;
    ptr: pointer;
  end;

var
  rec1: TRecord1;
  rec2: TRecord2 absolute rec1;

function TForm1.Test(index: integer): double;
begin
  result := index;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  rec1.func := Test;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(round(rec2.func(rec2.ptr, 20)));
end;

end.

type
  // indicator interface procedures
  TGetCurrencyInfoFunc = function(Symbol: PChar; var info: PCurrencyInfo): boolean of object; stdcall;
   ....

  // pointers to interface procedures
  PInterfaceProcRec = ^TInterfaceProcRec;
  TInterfaceProcRec = packed record
    dwSize: longword;

    GetCurrencyInfo: TGetCurrencyInfoFunc;
    ...
  end;

type
  // indicator interface procedures
  TGetCurrencyInfoFunc = function(ptr: pointer; Symbol: PChar; var info: PCurrencyInfo): boolean; stdcall;
   ....

  // pointers to interface procedures
  PInterfaceProcRec = ^TInterfaceProcRec;
  TInterfaceProcRec = packed record
    dwSize: longword;

    GetCurrencyInfo: TGetCurrencyInfoFunc;
    ptr1: pointer;
    ...
  end;

Terranin писал(а):Хм, оказывается давным давно один человек уже портировал мой модуль индикаторов на С++ и написал советник с его помощью и все прекрасно работало. Исходники прикрепил. Он писал для Лазаруса (не знаю что за зверь но С++).

wellx писал(а):

Terranin писал(а):Хм, оказывается давным давно один человек уже портировал мой модуль индикаторов на С++ и написал советник с его помощью и все прекрасно работало. Исходники прикрепил. Он писал для Лазаруса (не знаю что за зверь но С++).

судя по аттачу писался на dev-C++ . а лазарь - это фрипаскаль (альтернатива делфи). Тут не причем.

Terranin писал(а):Хм, оказывается давным давно один человек уже портировал мой модуль индикаторов на С++ и написал советник с его помощью и все прекрасно работало. Исходники прикрепил. Он писал для Лазаруса (не знаю что за зверь но С++).

skaat писал(а):Давненько сюда не заглядывал....а жизь кипит:)

Terranin писал(а):Хм, оказывается давным давно один человек уже портировал мой модуль индикаторов на С++ и написал советник с его помощью и все прекрасно работало. Исходники прикрепил. Он писал для Лазаруса (не знаю что за зверь но С++).

Аднака А ты сам то проверял? У меня это не работает, да и не советник тут вовсе....

duh писал(а):Скачал из этой ветки файл api+example.zip, там есть TFT.dll - закинул в соответствующую папку - форекстестер стратегию увидел.

Поставил с++6.0 , взял исходные файлы (Graphics.h ; StrategyInterfaceUnit.h ; TechnicalFunctions.h ; TFT.h ; TFT.cpp), попытался сам создать dll - все создалось (правда ругнулось что переменная x два раза в одном из файлов определена как int - я в одном месте поправил), но dll, который сделал я, не видит форекстестер - отказывается его показывать в списке и перезапуски не помогают.

Вот думаю что я не так делаю? В с++ создавал проект Win32DLL, туда добавил указанные файлы и запустил на компиляцию и создание - м.б. еще чего сделать надо? М.б. я не так компилирую - подскажите?

duh писал(а):А я то думал зачем этот файл Test.def нужен !

В общем у меня MSDev98 и соответственно такого: "And add it to Project -> Options -> Configuration Properties -> Linker -> Input -> Module Definition File ..." я там не нашел.

Я этот файлик просто добавил в проект и сделал dll - форекс тестер ее увидел. Достаточно ли этого в MSDev98 или кроме добавления файла в проект его еще в какие-нибудь настройки надо прописать?

Запустил тест, включил эту стратегию - никакие сделки так и не открылись - так и должно быть (т.е. это просто пустой демо файл) или все таки сделки должны какие-то происходить (это и с оригинальной дллкой тоже)?

И еще такой вопрос - этот файл будет всегда одинаковый для всех стратегий? Что этим файлом задается - для чего он нужен (на простом языке для чайников)?