А можно ссылочку на эти исходники?
на пауке лень искать, но суть я изложил тут: [url]https://quik2dde.ru/viewtopic.php?pid=2468#p2468[/url] есдли что-то непонятно - спрашивайте.
ps: где-то в середине этой темы: [url]http://forex.kbpauk.ru/showflat.php/Cat/0/Number/342646[/url] в аттачах
интерфейс trans2quik.dll работает через пайпы. сама dll на редкость уродская (как и остальные части quik), но сесть на пайпы напрямую не сложно, и это позволяет работать асинхронно и сразу с несколькими квиками одновременно. я так делал в своей реализации winros. но опять же, как и все в квике, этот интерфейс не полный. там не весь торговый функционал, например, нет стоп-заявок. исходники я выкладывал на пауке, если кому интересно.
ps: и да, они на 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.Недавно вышла 64-битная версия trans2quik API
Там есть изменения в заголовочном файле.
Не планируете ли Вы сделать PAS файл для 64-битной версии?
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]
]]>