Trans2QuikAPI_1.3 - пример для Excel

Да
он такой же как для х32
Возьмите пример из 1.2

Спасибо за информацию.

Можно попдробнее: для какого именно невиндовса? и какую именно библиотеку на джаве?

В ней содержательно нет ничего нового.
Только другая разрядность.
Так что пользуясь версией 1.2 (если у вас 32-х битное внешнее приложение) вы ничего не теряете в плане функционала.

Добрый день.

Убедитесь, что версия QUIK у Вас не ниже 7.0.
Проверьте работу на наших примерах:
http://arqatech.com/upload/iblock/80a/Trans2QuikAPI_1.3_x64.zip

Пример для Excel версии  trans2quik 1.2 будет работать и для версии  trans2quik 1.3 .

Добрый день.

Да, в 64х разрядном Excel работать не будет.
Возвращаемся в к первоначальной ошибки. Пришлите полный код, который вы загружаете.

Здравствуйте,

Сергей, попробуйте во всех функция указать следующим образом. Заменить строки типа: _TRANS2QUIK_SEND_ASYNC_TRANSACTION@16 на TRANS2QUIK_SEND_ASYNC_TRANSACTION, заменить _TRANS2QUIK_IS_QUIK_CONNECTED@12 на TRANS2QUIK_IS_QUIK_CONNECTED и так далее по всему коду.
Сообщите результат.

Здравствуйте!

Ваше обращение получено, проблема изучается. Постараемся в ближайшее время дать ответ.

Спасибо за разъяснения.
А что посоветуете делать тем, кто использует Excel и trans2quik.dll для своих роботов?
(вариант с текстовым файлом я знаю, но это прошлый век к сожалению)

Добрый день.

Такого примера в текущий момент нет. Можем зарегистрировать пожелание на доработку.

Здравствуйте!

Ваше пожелание зарегистрировано. Мы постараемся рассмотреть его и сообщить Вам результаты анализа. Впоследствии, по результатам анализа, будет приниматься решение о реализации пожелания в будущих версиях ПО.

Здравствуйте.
Вы можете скачать x64 версию библиотеки по следующей ссылке.
К сожалению, для trans2quik.dll x64 пример использования в Excel x64/VBA не представлен. Пример использования trans2quik.dll приведён для x32-версии библиотеки. Также нам известны примеры успешного использования x64-версии библиотеки вместе с x64-версией Excel.
Если у Вас имеются какие-либо конкретные вопросы по использованию API, либо затруднения - просим их сформулировать для дальнейшего разбора.К сожалению, в чистом виде такой возможности не предусмотрено.
Экспорт времени сервера по DDE можно выполнить из таблицы, созданной при помощи lua-скрипта. Для получения значения времени сервера следует использовать функцию getInfoParam("SERVERTIME").

Здравствуйте, rman.

При подготовке дистрибутива модуля API импорта транзакций 1.3 x64 нами не был реализован и добавлен в дистрибутив пример использования данного API совместно с Excel x64/VBA.

Запустилось, после того, как поменял в описании Private на Public ...

Поделюсь описаниями с теми, кто так и не одолел запуск 64-разрядной версии trans2quik.dll
Нужно просто вставить в код VBA вместо текущего описания функций из библиотеки следующие строки (здесь описаны функции, что я использую):

' Для 64-битной версии Excel (VBA)
#If VBA7 Then
   ' Используется в Excel 2010 и новее
   #If Win64 Then
       ' 64-битная версия
dwErrorMessageSize As LongPtr) As Long
       Public Declare PtrSafe Function TRANS2QUIK_DISCONNECT Lib "Q:\trans2quik.dll" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long
       
       Public Declare PtrSafe Function TRANS2QUIK_CONNECT Lib "Q:\trans2quik.dll" _
           (ByVal lpstConnectionParamsString As String, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function TRANS2QUIK_SEND_SYNC_TRANSACTION Lib "Q:\trans2quik.dll" _
           (ByVal lpstTransactionString As String, ByRef pnReplyCode As Long, ByRef pdwTransId As Long, ByRef pdOrderNum As Double, _
            ByVal lpstrResultMessage As String, ByVal dwResultMessageSize As Long, _
            ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function TRANS2QUIK_SEND_ASYNC_TRANSACTION Lib "Q:\trans2quik.dll" _
           (ByVal lpstTransactionString As String, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long


       Public Declare PtrSafe Function TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK Lib "Q:\trans2quik.dll" _
           (ByVal pfConnectionStatusCallback As LongPtr, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK Lib "Q:\trans2quik.dll" _
           (ByVal pfTransactionReplyCallback As LongPtr, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function TRANS2QUIK_IS_QUIK_CONNECTED Lib "Q:\trans2quik.dll" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function TRANS2QUIK_IS_DLL_CONNECTED Lib "Q:\trans2quik.dll" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Public Declare PtrSafe Function lstrlen Lib "kernel32.dll" (ByVal lpString As LongPtr) As Long

       Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

   #Else
       ' 32-битная версия (остаётся как была)
       Private Declare Function TRANS2QUIK_SEND_SYNC_TRANSACTION Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_SEND_SYNC_TRANSACTION@36" _
           (ByVal lpstTransactionString As String, ByRef pnReplyCode As Long, ByRef pdwTransId As Long, ByRef pdOrderNum As Double, _
            ByVal lpstrResultMessage As String, ByVal dwResultMessageSize As Long, _
            ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_SEND_ASYNC_TRANSACTION Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_SEND_ASYNC_TRANSACTION@16" _
           (ByVal lpstTransactionString As String, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_CONNECT Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_CONNECT@16" _
           (ByVal lpstConnectionParamsString As String, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_DISCONNECT Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_DISCONNECT@12" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_SET_CONNECTION_STATUS_CALLBACK@16" _
           (ByVal pfConnectionStatusCallback As Long, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_SET_TRANSACTIONS_REPLY_CALLBACK@16" _
           (ByVal pfTransactionReplyCallback As Long, ByRef pnExtendedErrorCode As Long, _
            ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_IS_QUIK_CONNECTED Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_IS_QUIK_CONNECTED@12" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function TRANS2QUIK_IS_DLL_CONNECTED Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_IS_DLL_CONNECTED@12" _
           (ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

       Private Declare Function lstrlen Lib "kernel32.dll" (ByVal lpString As Long) As Long

       Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

   #End If
#Else
   ' Для старых версий VBA (до Excel 2007), но сейчас почти не используется
   Private Declare Function TRANS2QUIK_SEND_SYNC_TRANSACTION Lib "Q:\trans2quik.dll" Alias "_TRANS2QUIK_SEND_SYNC_TRANSACTION@36" _
       (ByVal lpstTransactionString As String, ByRef pnReplyCode As Long, ByRef pdwTransId As Long, ByRef pdOrderNum As Double, _
        ByVal lpstrResultMessage As String, ByVal dwResultMessageSize As Long, _
        ByRef pnExtendedErrorCode As Long, ByVal lpstrErrorMessage As String, ByVal dwErrorMessageSize As Long) As Long

   ' ... (остальные аналогично, но можно опустить, если не нужно поддерживать старые версии)
#End If