Программирование в среде TEClient Alor trade. Урок 3. Ввод заявки (sfxOrder).
Исходники к уроку можно скачать здесь.
Доп исходники (выставление стоп-заявки) к уроку можно скачать здесь.
Берем пример предыдущего урока. Добавляем к нему кнопочку btnSendOrder и поле ввода edPrice, так же компонент sfxOrder*
пишем обработчик нажатия на кнопку "Послать заявку":
|
procedure
TfrmSec.btnSendOrderClick(Sender:
TObject); var
nord:integer;
res:WideString; begin
sfxOrder.SlotID:=Slot.ID;
sfxOrder.SplitFlag:='S';
sfxOrder.ImmCancel:='
';
sfxOrder.EnterType:='P';
sfxOrder.OrderMode:='N';
sfxOrder.BuySell:='B';
sfxOrder.SecBoard:=sgSecs.Cells[1,sgSecs.Row];
sfxOrder.SecCode:=sgSecs.Cells[2,sgSecs.Row];
sfxOrder.Account:='<Торговый
счет>';
sfxOrder.Price:=StrToFloat(edPrice.Text);
sfxOrder.Quantity:=1;
sfxOrder.BrokerRef:=Slot.BrokerRef;
sfxOrder.Add(nOrd,Res);
MessageDlg(Res,mtInformation,[mbOk],0); end; |
Что бы узнать торговый счет, откройте в AlorTrade любую заявку:
Теперь запускаем программу на тестирование:
И проверяем, действительно ли заявки попадают в систему:
Исходники к уроку можно скачать здесь.
Доп исходники (выставление стоп-заявки) к уроку можно скачать здесь.
Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".