1 Тема от admin

  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2012-09-21
  • Сообщений: 241

Тема: Trans2quik.dll и Delphi

К сожалению, в поставку архива с Trans2Quik API перестали включать примеры на Delphi. Хотелось бы этой веткой восполнить сей пробел.

1) Интерфейсный файл trans2quik_api.pas - сконвертированный заголовочный файл trans2quik_api.h. Дополнил его всеми функциями, которые имеются в версии 1.2.

2)  Выложенный когда-то на форуме ARQA пример работа с trans2quik.dll на Delphi, включая класс-обертку. Для работы откимпилированного приложения не забыть подложить TRANS2QUIK.dll.

[url=https://quik2dde.ru/static-img/48/trans2quik_api.pas.zip]Скачать trans2quik_api для Delphi[/url]

[url=https://quik2dde.ru/static-img/48/SAMPLE_Delphi.zip]Скачать пример для Delphi[/url]

2 Ответ от admin

  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2012-09-21
  • Сообщений: 241

Re: Trans2quik.dll и Delphi

< reserved >

3 Ответ от admin

  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2012-09-21
  • Сообщений: 241

Re: Trans2quik.dll и Delphi

< reserved >

4 Ответ от Mikalas

  • Mikalas
  • New member
  • Неактивен
  • Зарегистрирован: 2015-08-04
  • Сообщений: 4

Re: Trans2quik.dll и Delphi

Добрый день!

Недавно вышла 64-битная версия trans2quik API
Там есть изменения в заголовочном файле.
Не планируете ли Вы сделать PAS файл для 64-битной версии?

5 Ответ от admin

  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2012-09-21
  • Сообщений: 241

Re: Trans2quik.dll и Delphi

Постараюсь сделать.

6 Ответ от Mikalas

  • Mikalas
  • New member
  • Неактивен
  • Зарегистрирован: 2015-08-04
  • Сообщений: 4

Re: Trans2quik.dll и Delphi

сделал сам

unit trans2quik_api_x64;

interface

uses
  WinApi.Windows;

const
  DllName = 'TRANS2QUIK.DLL';
//---
  TRANS2QUIK_SUCCESS = 0;
  TRANS2QUIK_FAILED = 1;
  TRANS2QUIK_QUIK_TERMINAL_NOT_FOUND = 2;
  TRANS2QUIK_DLL_VERSION_NOT_SUPPORTED = 3;
  TRANS2QUIK_ALREADY_CONNECTED_TO_QUIK = 4;
  TRANS2QUIK_WRONG_SYNTAX = 5;
  TRANS2QUIK_QUIK_NOT_CONNECTED = 6;
  TRANS2QUIK_DLL_NOT_CONNECTED = 7;
  TRANS2QUIK_QUIK_CONNECTED = 8;
  TRANS2QUIK_QUIK_DISCONNECTED = 9;
  TRANS2QUIK_DLL_CONNECTED = 10;
  TRANS2QUIK_DLL_DISCONNECTED = 11;
  TRANS2QUIK_MEMORY_ALLOCATION_ERROR = 12;
  TRANS2QUIK_WRONG_CONNECTION_HANDLE = 13;
  TRANS2QUIK_WRONG_INPUT_PARAMS = 14;
//---
  ORDER_QUIKDATE = 0;
  ORDER_QUIKTIME = 1;
  ORDER_MICROSEC = 2;
  ORDER_WITHDRAW_QUIKDATE = 3;
  ORDER_WITHDRAW_QUIKTIME = 4;
  ORDER_WITHDRAW_MICROSEC = 5;
//---
  TRADE_QUIKDATE = 0;
  TRADE_QUIKTIME = 1;
  TRADE_MICROSEC = 2;

type
  intptr_t = intptr;
  Quantity = int64;
  EntityNumber = uint64;
  PEntityNumber = ^EntityNumber;

  OrderDescriptor = intptr_t;
  TradeDescriptor = intptr_t;
  TransactionReplyDescriptor = intptr_t;

  TRANS2QUIK_CONNECTION_STATUS_CALLBACK = procedure(nConnectionEvent: long; nExtendedErrorCode: long; lpcstrInfoMessage: LPCSTR); stdcall;

  TRANS2QUIK_TRANSACTION_REPLY_CALLBACK = procedure(nTransactionResult: long; nTransactionExtendedErrorCode: long;
                                                    nTransactionReplyCode: long;
                                                                  dwTransId: Dword;
                                                                  nOrderNum: EntityNumber;
                                                                  lpcstrTransactionReplyMessage: LPCSTR;
                                                                  transReplyDescriptor: TransactionReplyDescriptor); stdcall;

  TRANS2QUIK_ORDER_STATUS_CALLBACK = procedure(nMode: long;
                                                             dwTransID: Dword;
                                                             dNumber: EntityNumber;
                                                             ClassCode: LPCSTR;
                                                             SecCode: LPCSTR;
                                                             dPrice: Double;
                                                             nBalance: Quantity;
                                                             dValue: Double;
                                                             nIsSell: long;
                                                             nStatus: long;
                                                             orderDscr: OrderDescriptor); stdcall;

  TRANS2QUIK_TRADE_STATUS_CALLBACK = procedure(nMode: long;
                                                             dNumber: EntityNumber;
                                                             dOrderNumber: EntityNumber;
                                                             ClassCode: LPCSTR;
                                                             SecCode: LPCSTR;
                                                             dPrice: double;
                                                             nQty: Quantity;
                                                             dValue: double;
                                                             nIsSell: long;
                                                             tradeDscr: TradeDescriptor); stdcall;

  function TRANS2QUIK_SEND_SYNC_TRANSACTION(lpstTransactionString: LPSTR; var pnReplyCode: long; pdwTransId: PDWORD; pnOrderNum: PEntityNumber; lpstrResultMessage: LPSTR; dwResultMessageSize: DWORD; var pnExtendedErrorCode: long; lpstErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_SEND_ASYNC_TRANSACTION(lpstTransactionString: LPSTR; var pnExtendedErrorCode: long; lpstErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_CONNECT(lpstConnectionParamsString: LPSTR; var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_DISCONNECT(var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK(pfConnectionStatusCallback: TRANS2QUIK_CONNECTION_STATUS_CALLBACK; var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK(pfTransactionReplyCallback: TRANS2QUIK_TRANSACTION_REPLY_CALLBACK; var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_IS_QUIK_CONNECTED(var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_IS_DLL_CONNECTED(var pnExtendedErrorCode: long; lpstrErrorMessage: LPSTR; dwErrorMessageSize: DWORD): long; stdcall;
  function TRANS2QUIK_SUBSCRIBE_ORDERS(ClassCode: LPSTR; Seccodes: LPSTR): long; stdcall;
  function TRANS2QUIK_UNSUBSCRIBE_ORDERS(): long; stdcall;
  function TRANS2QUIK_START_ORDERS(pfnOrderStatusCallback: TRANS2QUIK_ORDER_STATUS_CALLBACK): long; stdcall;
  function TRANS2QUIK_ORDER_QTY(orderDscr: OrderDescriptor): Quantity; stdcall;
  function TRANS2QUIK_ORDER_DATE(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_TIME(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_DATE_TIME(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_ACTIVATION_TIME (orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_WITHDRAW_TIME(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_EXPIRY(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_ACCRUED_INT(orderDscr: OrderDescriptor): double; stdcall;
  function TRANS2QUIK_ORDER_YIELD(orderDscr: OrderDescriptor): double; stdcall;
  function TRANS2QUIK_ORDER_UID(orderDscr: OrderDescriptor): long;  stdcall;
  function TRANS2QUIK_ORDER_VISIBLE_QTY(orderDscr: OrderDescriptor): Quantity; stdcall;
  function TRANS2QUIK_ORDER_PERIOD(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_FILETIME(orderDscr: OrderDescriptor): FILETIME; stdcall;
  function TRANS2QUIK_ORDER_WITHDRAW_FILETIME(orderDscr: OrderDescriptor): FILETIME; stdcall;
  function TRANS2QUIK_ORDER_VALUE_ENTRY_TYPE(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_EXTENDED_FLAGS(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_MIN_QTY(orderDscr: OrderDescriptor): Quantity; stdcall;
  function TRANS2QUIK_ORDER_EXEC_TYPE(orderDscr: OrderDescriptor): long; stdcall;
  function TRANS2QUIK_ORDER_AWG_PRICE(orderDscr: OrderDescriptor): double; stdcall;
  function TRANS2QUIK_ORDER_USERID(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_ORDER_ACCOUNT(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_ORDER_BROKERREF(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_ORDER_CLIENT_CODE(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_ORDER_FIRMID(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_ORDER_REJECT_REASON(orderDscr: OrderDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_SUBSCRIBE_TRADES(ClassCode: LPSTR; Seccodes: LPSTR): long; stdcall;
  function TRANS2QUIK_UNSUBSCRIBE_TRADES(): long; stdcall;
  function TRANS2QUIK_START_TRADES(pfnTradeStatusCallback: TRANS2QUIK_TRADE_STATUS_CALLBACK): long; stdcall;
  function TRANS2QUIK_TRADE_DATE (tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_SETTLE_DATE (tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_TIME (tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_IS_MARGINAL (tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_ACCRUED_INT(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_YIELD(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_TS_COMMISSION(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_CLEARING_CENTER_COMMISSION(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_EXCHANGE_COMMISSION(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_TRADING_SYSTEM_COMMISSION(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_PRICE2(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_REPO_RATE(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_REPO_VALUE(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_REPO2_VALUE(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_ACCRUED_INT2(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_REPO_TERM(tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_START_DISCOUNT(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_LOWER_DISCOUNT(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_UPPER_DISCOUNT(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_BLOCK_SECURITIES(tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_PERIOD(tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_KIND(tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_FILETIME(tradeDscr: TradeDescriptor): FILETIME; stdcall;
  function TRANS2QUIK_TRADE_DATE_TIME(tradeDscr: TradeDescriptor; nTimeType: long): long; stdcall;
  function TRANS2QUIK_TRADE_BROKER_COMMISSION(tradeDscr: TradeDescriptor): double; stdcall;
  function TRANS2QUIK_TRADE_TRANSID(tradeDscr: TradeDescriptor): long; stdcall;
  function TRANS2QUIK_TRADE_CURRENCY(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_SETTLE_CURRENCY(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_SETTLE_CODE(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_ACCOUNT(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_BROKERREF(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_CLIENT_CODE(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_USERID(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_FIRMID(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_PARTNER_FIRMID(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_EXCHANGE_CODE(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRADE_STATION_ID(tradeDscr: TradeDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_CLASS_CODE(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_SEC_CODE(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_PRICE(tradeDscr: TransactionReplyDescriptor): double; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_QUANTITY(tradeDscr: TransactionReplyDescriptor): Quantity; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_BALANCE(tradeDscr: TransactionReplyDescriptor): Quantity; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_FIRMID(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_ACCOUNT(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_CLIENT_CODE(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_BROKERREF(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;
  function TRANS2QUIK_TRANSACTION_REPLY_EXCHANGE_CODE(tradeDscr: TransactionReplyDescriptor): LPTSTR; stdcall;

implementation

  function TRANS2QUIK_SEND_SYNC_TRANSACTION; external DllNAme  name 'TRANS2QUIK_SEND_SYNC_TRANSACTION';
  function TRANS2QUIK_SEND_ASYNC_TRANSACTION; external DllNAme  name 'TRANS2QUIK_SEND_ASYNC_TRANSACTION';
  function TRANS2QUIK_CONNECT; external DllNAme  name 'TRANS2QUIK_CONNECT';
  function TRANS2QUIK_DISCONNECT; external DllNAme  name 'TRANS2QUIK_DISCONNECT';
  function TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK; external DllNAme  name 'TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK';
  function TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK; external DllNAme  name 'TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK';
  function TRANS2QUIK_IS_QUIK_CONNECTED; external DllNAme  name 'TRANS2QUIK_IS_QUIK_CONNECTED';
  function TRANS2QUIK_IS_DLL_CONNECTED; external DllNAme  name 'TRANS2QUIK_IS_DLL_CONNECTED';
  function TRANS2QUIK_SUBSCRIBE_ORDERS; external DllNAme  name 'TRANS2QUIK_SUBSCRIBE_ORDERS';
  function TRANS2QUIK_UNSUBSCRIBE_ORDERS; external DllNAme  name 'TRANS2QUIK_UNSUBSCRIBE_ORDERS';
  function TRANS2QUIK_START_ORDERS; external DllNAme  name 'TRANS2QUIK_START_ORDERS';
  function TRANS2QUIK_ORDER_QTY; external DllNAme  name 'TRANS2QUIK_ORDER_QTY';
  function TRANS2QUIK_ORDER_DATE; external DllNAme  name 'TRANS2QUIK_ORDER_DATE';
  function TRANS2QUIK_ORDER_TIME; external DllNAme  name 'TRANS2QUIK_ORDER_TIME';
  function TRANS2QUIK_ORDER_DATE_TIME; external DllNAme  name 'TRANS2QUIK_ORDER_DATE_TIME';
  function TRANS2QUIK_ORDER_ACTIVATION_TIME; external DllNAme  name 'TRANS2QUIK_ORDER_ACTIVATION_TIME';
  function TRANS2QUIK_ORDER_WITHDRAW_TIME; external DllNAme  name 'TRANS2QUIK_ORDER_WITHDRAW_TIME';
  function TRANS2QUIK_ORDER_EXPIRY; external DllNAme  name 'TRANS2QUIK_ORDER_EXPIRY';
  function TRANS2QUIK_ORDER_ACCRUED_INT; external DllNAme  name 'TRANS2QUIK_ORDER_ACCRUED_INT';
  function TRANS2QUIK_ORDER_YIELD; external DllNAme  name 'TRANS2QUIK_ORDER_YIELD';
  function TRANS2QUIK_ORDER_UID; external DllNAme  name 'TRANS2QUIK_ORDER_UID';
  function TRANS2QUIK_ORDER_VISIBLE_QTY; external DllNAme  name 'TRANS2QUIK_ORDER_VISIBLE_QTY';
  function TRANS2QUIK_ORDER_PERIOD; external DllNAme  name 'TRANS2QUIK_ORDER_PERIOD';
  function TRANS2QUIK_ORDER_FILETIME; external DllNAme  name 'TRANS2QUIK_ORDER_FILETIME';
  function TRANS2QUIK_ORDER_WITHDRAW_FILETIME; external DllNAme  name 'TRANS2QUIK_ORDER_WITHDRAW_FILETIME';
  function TRANS2QUIK_ORDER_VALUE_ENTRY_TYPE; external DllNAme  name 'TRANS2QUIK_ORDER_VALUE_ENTRY_TYPE';
  function TRANS2QUIK_ORDER_EXTENDED_FLAGS; external DllNAme  name 'TRANS2QUIK_ORDER_EXTENDED_FLAGS';
  function TRANS2QUIK_ORDER_MIN_QTY; external DllNAme  name 'TRANS2QUIK_ORDER_MIN_QTY';
  function TRANS2QUIK_ORDER_EXEC_TYPE; external DllNAme  name 'TRANS2QUIK_ORDER_EXEC_TYPE';
  function TRANS2QUIK_ORDER_AWG_PRICE; external DllNAme  name 'TRANS2QUIK_ORDER_AWG_PRICE';
  function TRANS2QUIK_ORDER_USERID; external DllNAme  name 'TRANS2QUIK_ORDER_USERID';
  function TRANS2QUIK_ORDER_ACCOUNT; external DllNAme  name 'TRANS2QUIK_ORDER_ACCOUNT';
  function TRANS2QUIK_ORDER_BROKERREF; external DllNAme  name 'TRANS2QUIK_ORDER_BROKERREF';
  function TRANS2QUIK_ORDER_CLIENT_CODE; external DllNAme  name 'TRANS2QUIK_ORDER_CLIENT_CODE';
  function TRANS2QUIK_ORDER_FIRMID; external DllNAme  name 'TRANS2QUIK_ORDER_FIRMID';
  function TRANS2QUIK_ORDER_REJECT_REASON; external DllNAme  name 'TRANS2QUIK_ORDER_REJECT_REASON';
  function TRANS2QUIK_SUBSCRIBE_TRADES; external DllNAme  name 'TRANS2QUIK_SUBSCRIBE_TRADES';
  function TRANS2QUIK_UNSUBSCRIBE_TRADES; external DllNAme  name 'TRANS2QUIK_UNSUBSCRIBE_TRADES';
  function TRANS2QUIK_START_TRADES; external DllNAme  name 'TRANS2QUIK_START_TRADES';
  function TRANS2QUIK_TRADE_DATE; external DllNAme  name 'TRANS2QUIK_TRADE_DATE';
  function TRANS2QUIK_TRADE_SETTLE_DATE; external DllNAme  name 'TRANS2QUIK_TRADE_SETTLE_DATE';
  function TRANS2QUIK_TRADE_TIME; external DllNAme  name 'TRANS2QUIK_TRADE_TIME';
  function TRANS2QUIK_TRADE_IS_MARGINAL; external DllNAme  name 'TRANS2QUIK_TRADE_IS_MARGINAL';
  function TRANS2QUIK_TRADE_ACCRUED_INT; external DllNAme  name 'TRANS2QUIK_TRADE_ACCRUED_INT';
  function TRANS2QUIK_TRADE_YIELD; external DllNAme  name 'TRANS2QUIK_TRADE_YIELD';
  function TRANS2QUIK_TRADE_TS_COMMISSION; external DllNAme  name 'TRANS2QUIK_TRADE_TS_COMMISSION';
  function TRANS2QUIK_TRADE_CLEARING_CENTER_COMMISSION; external DllNAme  name 'TRANS2QUIK_TRADE_CLEARING_CENTER_COMMISSION';
  function TRANS2QUIK_TRADE_EXCHANGE_COMMISSION; external DllNAme  name 'TRANS2QUIK_TRADE_EXCHANGE_COMMISSION';
  function TRANS2QUIK_TRADE_TRADING_SYSTEM_COMMISSION; external DllNAme  name 'TRANS2QUIK_TRADE_TRADING_SYSTEM_COMMISSION';
  function TRANS2QUIK_TRADE_PRICE2; external DllNAme  name 'TRANS2QUIK_TRADE_PRICE2';
  function TRANS2QUIK_TRADE_REPO_RATE; external DllNAme  name 'TRANS2QUIK_TRADE_REPO_RATE';
  function TRANS2QUIK_TRADE_REPO_VALUE; external DllNAme  name 'TRANS2QUIK_TRADE_REPO_VALUE';
  function TRANS2QUIK_TRADE_REPO2_VALUE; external DllNAme  name 'TRANS2QUIK_TRADE_REPO2_VALUE';
  function TRANS2QUIK_TRADE_ACCRUED_INT2; external DllNAme  name 'TRANS2QUIK_TRADE_ACCRUED_INT2';
  function TRANS2QUIK_TRADE_REPO_TERM; external DllNAme  name 'TRANS2QUIK_TRADE_REPO_TERM';
  function TRANS2QUIK_TRADE_START_DISCOUNT; external DllNAme  name 'TRANS2QUIK_TRADE_START_DISCOUNT';
  function TRANS2QUIK_TRADE_LOWER_DISCOUNT; external DllNAme  name 'TRANS2QUIK_TRADE_LOWER_DISCOUNT';
  function TRANS2QUIK_TRADE_UPPER_DISCOUNT; external DllNAme  name 'TRANS2QUIK_TRADE_UPPER_DISCOUNT';
  function TRANS2QUIK_TRADE_BLOCK_SECURITIES; external DllNAme  name 'TRANS2QUIK_TRADE_BLOCK_SECURITIES';
  function TRANS2QUIK_TRADE_PERIOD; external DllNAme  name 'TRANS2QUIK_TRADE_PERIOD';
  function TRANS2QUIK_TRADE_KIND; external DllNAme  name 'TRANS2QUIK_TRADE_KIND';
  function TRANS2QUIK_TRADE_FILETIME; external DllNAme  name 'TRANS2QUIK_TRADE_FILETIME';
  function TRANS2QUIK_TRADE_DATE_TIME; external DllNAme  name 'TRANS2QUIK_TRADE_DATE_TIME';
  function TRANS2QUIK_TRADE_BROKER_COMMISSION; external DllNAme  name 'TRANS2QUIK_TRADE_BROKER_COMMISSION';
  function TRANS2QUIK_TRADE_TRANSID; external DllNAme  name 'TRANS2QUIK_TRADE_TRANSID';
  function TRANS2QUIK_TRADE_CURRENCY; external DllNAme  name 'TRANS2QUIK_TRADE_CURRENCY';
  function TRANS2QUIK_TRADE_SETTLE_CURRENCY; external DllNAme  name 'TRANS2QUIK_TRADE_SETTLE_CURRENCY';
  function TRANS2QUIK_TRADE_SETTLE_CODE; external DllNAme  name 'TRANS2QUIK_TRADE_SETTLE_CODE';
  function TRANS2QUIK_TRADE_ACCOUNT; external DllNAme  name 'TRANS2QUIK_TRADE_ACCOUNT';
  function TRANS2QUIK_TRADE_BROKERREF; external DllNAme  name 'TRANS2QUIK_TRADE_BROKERREF';
  function TRANS2QUIK_TRADE_CLIENT_CODE; external DllNAme  name 'TRANS2QUIK_TRADE_CLIENT_CODE';
  function TRANS2QUIK_TRADE_USERID; external DllNAme  name 'TRANS2QUIK_TRADE_USERID';
  function TRANS2QUIK_TRADE_FIRMID; external DllNAme  name 'TRANS2QUIK_TRADE_FIRMID';
  function TRANS2QUIK_TRADE_PARTNER_FIRMID; external DllNAme  name 'TRANS2QUIK_TRADE_PARTNER_FIRMID';
  function TRANS2QUIK_TRADE_EXCHANGE_CODE; external DllNAme  name 'TRANS2QUIK_TRADE_EXCHANGE_CODE';
  function TRANS2QUIK_TRADE_STATION_ID; external DllNAme  name 'TRANS2QUIK_TRADE_STATION_ID';
  function TRANS2QUIK_TRANSACTION_REPLY_CLASS_CODE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_CLASS_CODE';
  function TRANS2QUIK_TRANSACTION_REPLY_SEC_CODE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_SEC_CODE';
  function TRANS2QUIK_TRANSACTION_REPLY_PRICE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_PRICE';
  function TRANS2QUIK_TRANSACTION_REPLY_QUANTITY; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_QUANTITY';
  function TRANS2QUIK_TRANSACTION_REPLY_BALANCE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_BALANCE';
  function TRANS2QUIK_TRANSACTION_REPLY_FIRMID; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_FIRMID';
  function TRANS2QUIK_TRANSACTION_REPLY_ACCOUNT; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_ACCOUNT';
  function TRANS2QUIK_TRANSACTION_REPLY_CLIENT_CODE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_CLIENT_CODE';
  function TRANS2QUIK_TRANSACTION_REPLY_BROKERREF; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_BROKERREF';
  function TRANS2QUIK_TRANSACTION_REPLY_EXCHANGE_CODE; external DllNAme  name 'TRANS2QUIK_TRANSACTION_REPLY_EXCHANGE_CODE';

end.

7 Ответ от toxa (2019-11-01 01:41:16 отредактировано toxa)

  • toxa
  • Member
  • Неактивен
  • Зарегистрирован: 2019-10-31
  • Сообщений: 262

Re: Trans2quik.dll и Delphi

интерфейс trans2quik.dll работает через пайпы. сама dll на редкость уродская (как и остальные части quik), но сесть на пайпы напрямую не сложно, и это позволяет работать асинхронно и сразу с несколькими квиками одновременно. я так делал в своей реализации winros. но опять же, как и все в квике, этот интерфейс не полный. там не весь торговый функционал, например, нет стоп-заявок. исходники я выкладывал на пауке, если кому интересно.
ps: и да, они на delphi

8 Ответ от Balug

  • Balug
  • Member
  • Неактивен
  • Зарегистрирован: 2013-11-08
  • Сообщений: 12

Re: Trans2quik.dll и Delphi

toxa пишет:

интерфейс trans2quik.dll работает через пайпы. сама dll на редкость уродская (как и остальные части quik), но сесть на пайпы напрямую не сложно, и это позволяет работать асинхронно и сразу с несколькими квиками одновременно. я так делал в своей реализации winros. но опять же, как и все в квике, этот интерфейс не полный. там не весь торговый функционал, например, нет стоп-заявок. исходники я выкладывал на пауке, если кому интересно.
ps: и да, они на delphi

А можно ссылочку на эти исходники?

9 Ответ от Balug

  • Balug
  • Member
  • Неактивен
  • Зарегистрирован: 2013-11-08
  • Сообщений: 12

Re: Trans2quik.dll и Delphi

Уважаемый Админ!
Прошлые Ваши примеры на Delphi для 32-битной версии trans2quik API очень помогли. Нет ли у Вас возможности выложить здесь аналогичные примеры для 64-битной версии trans2quik API?

10 Ответ от toxa (2019-12-28 00:17:28 отредактировано toxa)

  • toxa
  • Member
  • Неактивен
  • Зарегистрирован: 2019-10-31
  • Сообщений: 262

Re: Trans2quik.dll и Delphi

Balug пишет:

А можно ссылочку на эти исходники?

на пауке лень искать, но суть я изложил тут: [url]https://quik2dde.ru/viewtopic.php?pid=2468#p2468[/url] есдли что-то непонятно - спрашивайте.
ps: где-то в середине этой темы: [url]http://forex.kbpauk.ru/showflat.php/Cat/0/Number/342646[/url] в аттачах