New API programmer

[jorge]

Hi:

I would like to learn how to program the strategy API and would like to study the code for the included strategy in FT: SimpleSMA. Does anybody know if the code is available for download?

Thank you!

---
Pour gagner... il faut avoir faim.
Si se puede!

[Tantalus]

If you have FT then you already have that code... Look in:

\ForexTester\Examples\Strategies\...

There are examples for both Delphi and C++

[jorge]

Thank you, Tantalus.

I looked in the examples/strategies/C++ folder, but could not find the SMA strategy. I did find it in the Delphi folder. Does anyone have it in C++ or should I try to learn Delphi?


---
Pour gagner il faut avoir faim.
Si se puede!

[Tantalus]

Oops, my bad...

I don't do C++ so I have never looked in there. Why don't you PM Terranin and ask if he has code for other examples in C++?

[jorge]

thank you Tantalus:

I will e-mail Terrain. In the meantime, I downloaded Delphi from Borland, installed it, and I'm learning the language.



---
Pour gagner... il faut avoir faim.
Si se puede!

[FinGeR]

hello,

Delphi or C++

indicators with Windows Form Dialog on FT like Screenshot

is possible ?

[FinGeR]

not possible ?

TForm on FT

sample with Delphi

[Terranin]

It should not be done like this. Form must be created manually, so delete it from the list of forms that are created automatically in project.

You should create form in InitStrategy:

Form1 := TForm1.create(nil);

And release it in DoneStrategy:

Form1.free;

To call it in GetSingleTick use:

Pause;
if Form1.ShowModal = mrOk then ... // do some things
Resume;

This example is for strategies. You should not use forms in indicators, for what purpose do you want to use them there??

[FinGeR]

thanks

...for what purpose do you want to use them there??

would like to implement an idea

..This example is for strategies.

example
Not displayed in Strategy list
what have I done wrong?

[Terranin]

thanks

...for what purpose do you want to use them there??

would like to implement an idea

..This example is for strategies.

example
Not displayed in Strategy list
what have I done wrong?

You did not attach the source file, so I can not say anything.

[FinGeR]

sorry

[Terranin]

sorry

You should add this form as a separate unit with delphi. Just add new form to the project like this (File -> New -> Form):

Code: Select all

library DemoStrategy2;

uses
  StrategyInterfaceUnit,
  TechnicalFunctions,
  forms,
  controls,
  Unit1 in 'Unit1.pas' {Form1};

procedure InitStrategy; stdcall;
begin
  StrategyShortName('DemoStrategy2');
  StrategyDescription('Strategy with Form');

  form1 := TForm1.Create(nil);
end;

procedure DoneStrategy; stdcall;
begin
  form1.Free;
end;

procedure ResetStrategy; stdcall;
begin

end;

procedure GetSingleTick; stdcall;
begin
  Pause;
  if form1.ShowModal = mrOk then
    begin

    end;
  Resume;
end;

exports
  InitStrategy,
  DoneStrategy,
  ResetStrategy,
  GetSingleTick;

begin

end.


form:

Code: Select all

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

And you will be able to edit this form with Delphi visual tools. Delphi also creates *.dfm file, maybe this is the reason why form was not created.

[FinGeR]

great
I understand
thanks you

[FinGeR]

i love Delphi much easier than C++ Great Software
and FT

[FinGeR]

hello,

how do I get the SWAP of open positions?

Code: Select all

 for i:=OrdersTotal - 1 downto 0 do
  if OrderSelect(i, SELECT_BY_POS, MODE_TRADES) then
      begin
      Print(Floattostr(TTradePositionType(swap)));
     end;


[Terranin]

hello,

how do I get the SWAP of open positions?

If you mean how to separate open positions from pending orders then:

Code: Select all

for i:=OrdersTotal - 1 downto 0 do
  if OrderSelect(i, SELECT_BY_POS, MODE_TRADES) then
    if OrderType in [tp_Buy, tp_Sell) then
      begin
        Print(Floattostr(TTradePositionType(swap)));
     end;


[FinGeR]

thanks

[FinGeR]

problem

use swap function by System.pas

look image

[Terranin]

problem

use swap function by System.pas

look image

I see,

Code: Select all

var
  info: TTradePosition;

for i:=OrdersTotal - 1 downto 0 do
  if OrderSelect(i, SELECT_BY_POS, MODE_TRADES) then
    if OrderType in [tp_Buy, tp_Sell) then
      begin
        GetOrderInfo(OrderHandle, info);
        Print(format('Swap = %.4f', [info.swap]));
     end;