IB TWS API获取合约详情异常：contractDetails回调未触发

你的代码存在两个核心问题导致contractDetails回调未触发，同时同步返回逻辑也不符合IB API的异步设计：

• 缺少EReader消息处理循环：IB API的EClientSocket仅负责发送请求，接收TWS返回的消息并触发EWrapper回调必须依赖EReader。你创建了EReaderMonitorSignal但未启动EReader线程处理消息队列，导致TWS返回的数据无法分发到回调函数。
• 同步返回逻辑错误：Return_ContractID发送请求后立刻返回ContractID，但API是异步执行的，此时回调还未触发，返回值必然为空；且你紧接着调用Disconnect断开连接，进一步阻止了回调执行。

另外你提到官方指出编码问题，需确保代码字符串编码与TWS一致（默认UTF-8），但先解决前两个核心问题。

修改后的代码示例 #

IB类代码

Imports IBApi
Imports System.Threading

Public Class IB
    Implements EWrapper

    Public eReaderSignal As EReaderSignal
    Public socketClient As EClientSocket
    Private readerThread As Thread

    Private Client_ID As Integer = 0
    Private IP As String = "127.0.0.1"
    Private Port As Integer = 7497

    ' 用于等待回调完成的信号量
    Private waitHandle As ManualResetEvent

    Public ContractID As String

    Public Sub Connect()
        eReaderSignal = New EReaderMonitorSignal
        socketClient = New EClientSocket(Me, eReaderSignal)
        socketClient.eConnect(IP, Port, Client_ID)

        ' 启动EReader线程处理消息
        readerThread = New Thread(AddressOf RunReader)
        readerThread.IsBackground = True
        readerThread.Start()
    End Sub

    Private Sub RunReader()
        While socketClient.IsConnected()
            eReaderSignal.waitForSignal()
            socketClient.processMsgs()
        End While
    End Sub

    Public Sub Disconnect()
        socketClient.eDisconnect()
        readerThread?.Join()
    End Sub

    Public Function Return_ContractID(ByVal Stock As String) As String
        ContractID = String.Empty
        waitHandle = New ManualResetEvent(False)

        Dim Contract As New Contract
        Contract.Symbol = Stock
        Contract.SecType = "STK"
        Contract.Exchange = "SMART"
        Contract.Currency = "USD"

        socketClient.reqContractDetails(0, Contract)

        ' 等待回调触发，超时时间可按需调整
        waitHandle.WaitOne(5000)

        Return ContractID
    End Function

    Public Sub connectAck() Implements EWrapper.connectAck
        Console.WriteLine("已连接")
    End Sub

    Public Sub contractDetails(reqId As Integer, contractDetails As ContractDetails) Implements EWrapper.contractDetails
        Console.WriteLine($"请求ID: {reqId}")
        Console.WriteLine($"标的代码: {contractDetails.UnderSymbol}")
        ContractID = contractDetails.UnderConId.ToString()
        ' 通知等待线程回调已完成
        waitHandle.Set()
    End Sub

    ' 必须实现EWrapper的所有抽象方法，这里补充必要的空实现
    Public Sub error(reqId As Integer, errorCode As Integer, errorMsg As String, advancedOrderRejectJson As String) Implements EWrapper.error
        Console.WriteLine($"错误: {errorCode} - {errorMsg}")
        waitHandle?.Set() ' 出错时释放信号量，避免程序卡死
    End Sub

    Public Sub contractDetailsEnd(reqId As Integer) Implements EWrapper.contractDetailsEnd
        ' 合约详情返回结束时的可选处理
    End Sub

    ' 根据IB API版本，补充其他EWrapper方法的空实现（如nextValidId、orderStatus等）
End Class

调用代码

Module Module1
    Sub Main()
        Dim ibClient As New IB
        ibClient.Connect()
        ' 等待连接稳定，可选
        Thread.Sleep(1000)
        Dim contractID As String = ibClient.Return_ContractID("AAPL")
        Console.WriteLine($"合约ID: {contractID}")
        ibClient.Disconnect()
        Console.ReadLine()
    End Sub
End Module

关键修改说明 #

• EReader线程：RunReader循环等待TWS消息信号，调用processMsgs()处理消息并触发回调。
• 信号量等待：用ManualResetEvent让Return_ContractID等待回调完成后再返回结果，避免异步导致的空值。
• 错误处理：补充error回调实现，出错时释放信号量，防止程序无限等待。
• 编码适配：若问题仍存在，检查项目编码是否为UTF-8，确保与TWS API的消息编码一致。

内容的提问来源于stack exchange，提问作者K Cardinal