Option Explicit



Private Declare Function TdxHq_Connect Lib "TdxHqApi.dll" (ByVal IP As String, ByVal Port As Long, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȯ
Private Declare Function TdxHq_Disconnect Lib "TdxHqApi.dll" () As Boolean   'Ͽ
Private Declare Function TdxHq_GetSecurityCount Lib "TdxHqApi.dll" (ByVal Market As Byte, ByRef Result As Integer, ByVal ErrInfo As String) As Boolean   'ȡг֤ȯĿ
Private Declare Function TdxHq_GetSecurityList Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Start As Integer, ByRef Count As Integer, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡָΧе֤ȯ
Private Declare Function TdxHq_GetSecurityBars Lib "TdxHqApi.dll" (ByVal Category As Byte, ByVal Market As Byte, ByVal Zqdm As String, ByVal Start As Integer, ByRef Count As Integer, ByVal Result As String, ByVal ErrInfo As String) As Boolean  'ȡƱK
Private Declare Function TdxHq_GetIndexBars Lib "TdxHqApi.dll" (ByVal Category As Byte, ByVal Market As Byte, ByVal Zqdm As String, ByVal Start As Integer, ByRef Count As Integer, ByVal Result As String, ByVal ErrInfo As String) As Boolean  'ȡָK
Private Declare Function TdxHq_GetMinuteTimeData Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Result As String, ByVal ErrInfo As String) As Boolean    'ȡʱͼ
Private Declare Function TdxHq_GetHistoryMinuteTimeData Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Date1 As Long, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡʷʱͼ
Private Declare Function TdxHq_GetTransactionData Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Start As Integer, ByRef Count As Integer, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡʱɽ
Private Declare Function TdxHq_GetHistoryTransactionData Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Start As Integer, ByRef Count As Integer, ByVal Date1 As Long, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡʷʱɽ
Private Declare Function TdxHq_VB_GetSecurityQuotes Lib "TdxHqApi.dll" (ByRef Market As Byte, ByVal Zqdm As Variant, ByRef Count As Integer, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡ̿嵵
Private Declare Function TdxHq_GetCompanyInfoCategory Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Result As String, ByVal ErrInfo As String) As Boolean  'ȡF10Ϣ
Private Declare Function TdxHq_GetCompanyInfoContent Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal FileName As String, ByVal Start As Long, ByVal Length As Long, ByVal Result As String, ByVal ErrInfo As String) As Boolean      'ȡF10Ϣ
Private Declare Function TdxHq_GetXDXRInfo Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡȨϢ
Private Declare Function TdxHq_GetFinanceInfo Lib "TdxHqApi.dll" (ByVal Market As Byte, ByVal Zqdm As String, ByVal Result As String, ByVal ErrInfo As String) As Boolean   'ȡϢ


Private Sub Form_Load()

 Dim bool1 As Boolean, Result As String, ErrInfo As String, Zqdms(1) As String, Markets(1) As Byte, ZqdmCount As Integer, Count As Integer
 Result = Space$(409600)
 ErrInfo = Space$(256)
 Count = 10

  Markets(0) = 0
  Zqdms(0) = "000001"
  Markets(1) = 1
  Zqdms(1) = "600000"
  
  ZqdmCount = 2
  
 
 bool1 = TdxHq_Connect("121.14.110.200", 443, Result, ErrInfo)
 
 

 
 bool1 = TdxHq_VB_GetSecurityQuotes10(Markets(0), Zqdms, ZqdmCount, Result, ErrInfo)
 

 

 TdxHq_Disconnect

End Sub
