Урок 13. Управление шрифтами в CSS
New Page 1
Программирование в среде TEClient Alor trade.
Урок 2. Загрузим таблицу финансовых
инструментов (Delphi, TSlot, TSlotTable,
TStringGrid)
Все статьи по данной теме.
Исходники к уроку можно скачать здесь.
Сегодня мы научимся получать
таблицу финансовых инструментов, которые
котируются на бирже. Нам понадобиться
подключенная библиотека TEClient. Если не
знаете, как ее подключить, то посмотрите предыдущий
урок. И так, давайте создадим новый проект
и кинем туда компоненты
Компонент |
Название |
Примечение |
TLabel |
lbConnectionResult |
|
TSlot |
Slot |
|
TSlotTable |
SlotTable |
|
TEdit |
edLogin |
Очистим свойство текст |
TEdit |
edPassword |
Очистим свойство текст, в
свойство PasswordChar поставим* |
TButton |
btnConnect |
Свойство Caption='Коннект'; |
TButton |
btnStart |
Свойство Caption='Старт'; |
TStringGrid |
sgSecs |
Свойство ColCount=7, RowCount=2 |
И еще добавим несколько меток с текстами,
как показано на рисунке*:
Напишем обработчик кнопочки "Коннект":
procedure
TfrmSec.btnConnectClick(Sender:
TObject);
var
s:WideString;
begin
slot.Connect1('trade.alor.ru',edLogin.Text,edPassword.Text,s);
lbConnectionResult.Caption:=s;
end; |
Вместо 'trade.alor.ru'
может
быть написан другой адрес сервера, если вы
хотите загрузить инструменты не с рынка
ММВБ, а, например, с РТС.
Делаем
обработчики события от SlotTable:
procedure
TfrmSec.SlotTableOpened(ASender:
TObject;
OpenID:
Integer);
begin
MessageDlg('Таблица
финансовых
инструментов
успешно
открыта',mtInformation,[mbOk],0);
end;
procedure
TfrmSec.SlotTableError(ASender:
TObject;
OpenID,
Code:
Integer;
const
Description:
WideString);
begin
MessageDlg('Ошибка
открытия
таблицы
финансовых
инструментов',mtError,[mbOk],0);
end;
procedure
TfrmSec.SlotTableAddRow(ASender:
TObject;
OpenID,
RowID:
Integer;
Fields:
OleVariant);
begin
sgSecs.Cells[0,sgSecs.RowCount-1]:=Fields[0];
sgSecs.Cells[1,sgSecs.RowCount-1]:=Fields[1];
sgSecs.Cells[2,sgSecs.RowCount-1]:=Fields[2];
sgSecs.Cells[3,sgSecs.RowCount-1]:=Fields[3];
sgSecs.Cells[4,sgSecs.RowCount-1]:=Fields[4];
sgSecs.Cells[5,sgSecs.RowCount-1]:=Fields[5];
sgSecs.Cells[6,sgSecs.RowCount-1]:=Fields[6];
sgSecs.RowCount:=sgSecs.RowCount+1;
end; |
Ну, и наконец, что бы сделать у нашей StringGrid
нормальные заголовки, напишем обработчик
создания формы:
procedure
TfrmSec.FormCreate(Sender:
TObject);
begin
sgSecs.Cells[0,0]:='ID';
sgSecs.Cells[1,0]:='Рынок';
sgSecs.Cells[2,0]:='Код
бумаги';
sgSecs.Cells[3,0]:='Название';
sgSecs.Cells[4,0]:='Кратк.
назв';
sgSecs.Cells[5,0]:='Спрос';
sgSecs.Cells[6,0]:='Предложение';
sgSecs.ColWidths[2]:=100;
sgSecs.ColWidths[3]:=200;
sgSecs.ColWidths[4]:=150;
end; |
Все запускаем программу на тестирование:
Исходники к уроку можно скачать здесь
Скриншоты, помеченные знаком * ,
являются цитатами и иллюстрациями
программного продукта "Delphi", авторское
право на который принадлежит "Borland Software
Corporation".
|