Добрый день!
На компьютере установлен QUIK версии 7.19.3.1 и Excel из Office-365 32-разрядный.
В папке Quik размещены файлы из архива Trans2QuikAPI_1.3_x64.rar.
Пытаюсь передать в Quik транзакцию:
Public Declare Function TRANS2QUIK_SEND_SYNC_TRANSACTION Lib "C:\MyBroker\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
TransStr = "ACTION=NEW_ORDER; TRANS_ID=1; CLASSCODE=SPBFUT; SECCODE=RTS-9.19; ACCOUNT=XXX; CLIENT_CODE=YYY; TYPE=L; OPERATION=S; QUANTITY=1; PRICE=134000;"
FunctionResult = TRANS2QUIK_SEND_SYNC_TRANSACTION(TransStr, nReturnCode, dwTransID, dOrderNum, lpstrResultMessage, dwResultMessageSize, pnExtendedErrorCode, lpstrErrorMessage, dwErrorMessageSize)
FunctionResultString = Trans2QuikResultToStr(FunctionResult)
If Asc(lpstrErrorMessage) = 0 Then lpstrErrorMessage = Empty
MsgBox "F: " & vbCrLf & _
"FunctionResult = " & FunctionResult & vbCrLf ...
Результат: "File not found C:\MyBroker\trans2quik.dll". Поиск решения результата не принес.
Как все-таки обратиться из excel к квику через вашу же dll после изменения версии 1.2 на 1.3?
На компьютере установлен QUIK версии 7.19.3.1 и Excel из Office-365 32-разрядный.
В папке Quik размещены файлы из архива Trans2QuikAPI_1.3_x64.rar.
Пытаюсь передать в Quik транзакцию:
Public Declare Function TRANS2QUIK_SEND_SYNC_TRANSACTION Lib "C:\MyBroker\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
TransStr = "ACTION=NEW_ORDER; TRANS_ID=1; CLASSCODE=SPBFUT; SECCODE=RTS-9.19; ACCOUNT=XXX; CLIENT_CODE=YYY; TYPE=L; OPERATION=S; QUANTITY=1; PRICE=134000;"
FunctionResult = TRANS2QUIK_SEND_SYNC_TRANSACTION(TransStr, nReturnCode, dwTransID, dOrderNum, lpstrResultMessage, dwResultMessageSize, pnExtendedErrorCode, lpstrErrorMessage, dwErrorMessageSize)
FunctionResultString = Trans2QuikResultToStr(FunctionResult)
If Asc(lpstrErrorMessage) = 0 Then lpstrErrorMessage = Empty
MsgBox "F: " & vbCrLf & _
"FunctionResult = " & FunctionResult & vbCrLf ...
Результат: "File not found C:\MyBroker\trans2quik.dll". Поиск решения результата не принес.
Как все-таки обратиться из excel к квику через вашу же dll после изменения версии 1.2 на 1.3?