請教群益新舊版api的差別

frantz

請問一下前輩 OnNotifyFutureTradeInfo 用excel的vba 套的進去嗎??

剛剛嘗試套進去後，會出現編譯錯誤：
事件程序的宣告與同名事件的描述不相符。

1. Private Sub SKQuoteEvents_OnNotifyFutureTradeInfo(ByVal bstrStockNo As String, ByVal sMarketNo As Integer, ByVal sStockIdx As Integer, ByVal nBuyTotalCount As Long, nSellTotalCount As Long, nBuyTotalQty As Long, nSellTotalQty As Long, nByDealTotalCount As Long, neSellDealTotalCount As Long)
   
2. 
   
3.     On Error Resume Next
   
4.    
   
5.     Sheet3.Cells(4, 1) = Sheet3.Cells(4, 1) + 1
   
6.         
   
7.     If Sheet3.Cells(4, 1) > 200 Then
   
8.       
   
9.         Sheet3.Cells(4, 1) = 0
   
10.             
    
11.     End If
    
12.    
    
13.     Dim pSKStock As SKSTOCK
    
14.     Dim nCode As Integer
    
15.    
    
16.     nCode = SKQuoteEvents.SKQuoteLib_GetStockByIndex(sMarketNo, sStockIdx, pSKStock)
    
17.    
    
18.     With Sheet3
    
19.    
    
20.     Dim i As Integer
    
21.     Dim strStock As String
    
22.     Dim nDot As Long
    
23.    
    
24.     For i = 6 To Int(.Cells(2, 5)) + 5
    
25.         strStock = .Cells(i, 1)
    
26.         If strStock = pSKStock.bstrStockNo Then
    
27.         
    
28.             nDot = 10 ^ pSKStock.sDecimal
    
29.             
    
30.             .Cells(i, 17).Value = pSKStock.nBuyTotalCount
    
31.             
    
32.         
    
33.             
    
34.         End If
    
35.     Next i
    
36.     End With
    
37. End Sub

複製代碼

kuolung

>> 事件程序的宣告與同名事件的描述不相符。<<

就跟您說，宣告不相符了

    HRESULT OnNotifyFutureTradeInfo (
        _bstr_t bstrStockNo,
        short sMarketNo,
        short sStockIdx,
        long nBuyTotalCount,
        long nSellTotalCount,
        long nBuyTotalQty,
        long nSellTotalQty,
        long nBuyDealTotalCount,
        long nSellDealTotalCount );

這是 vc++ 解出來 2.13.16 的宣告，

但是說明文件的宣告是這樣的

void OnNotifyFutureTradeInfo ([in]BSTR bstrStockNo, [in]SHORT sMarketNo, [in]SHORT sStockidx, [in]LONG nBuyTotalCount,  [in] LONG nSellTotalCount, [in]LONG nBuyTotalQty, [in]LONG nSellTotalQty, [in]LONG nBuyDealTotalCount, [in] LONGnSellDealTotalCount

);



核對一下吧，看那裡有錯

kuolung

Private Sub SKQuoteEvents_OnNotifyFutureTradeInfo(ByVal bstrStockNo As String, ByVal sMarketNo As Integer, ByVal sStockIdx As Integer, ByVal nBuyTotalCount As Long, nSellTotalCount As Long, nBuyTotalQty As Long, nSellTotalQty As Long, nByDealTotalCount As Long, neSellDealTotalCount As Long)

這是您的宣告，前面的變數都有 ByVal ... ...

但是後面5個變數，ByVal 的字不見了 ????

frantz

kuolung 發表於 19-3-23 20:18
Private Sub SKQuoteEvents_OnNotifyFutureTradeInfo(ByVal bstrStockNo As String, ByVal sMarketNo As In ...

謝謝前輩的提醒，
寫到後面忘了補進去。
剛剛嘗試重新修正如下並存檔後，
重新開啟執行，沒跳出訊息了。但相關欄位會跳出資訊出來。
正瞭解是那邊有問題。。。。。

1. Private Sub SKQuoteEvents_OnNotifyFutureTradeInfo(ByVal bstrStockNo As String, _
   
2.                                                   ByVal sMarketNo As Integer, _
   
3.                                                   ByVal sStockIdx As Integer, _
   
4.                                                   ByVal nBuyTotalCount As Long, _
   
5.                                                   ByVal nSellTotalCount As Long, _
   
6.                                                   ByVal nBuyTotalQty As Long, _
   
7.                                                   ByVal nSellTotalQty As Long, _
   
8.                                                   ByVal nByDealTotalCount As Long, _
   
9.                                                   ByVal neSellDealTotalCount As Long)
   
10. 
    
11.     On Error Resume Next
    
12.     'bstrStockNo 商品代號
    
13.     'sMarketNo   市場別代號
    
14.     'sStockidx   系統編碼後的特殊商品索引代號。
    
15. 
    
16.    
    
17.     Sheet3.Cells(4, 1) = Sheet3.Cells(4, 1) + 1
    
18.         
    
19.     If Sheet3.Cells(4, 1) > 200 Then
    
20.       
    
21.         Sheet3.Cells(4, 1) = 0
    
22.             
    
23.     End If
    
24.    
    
25.     Dim pSKStock As SKSTOCK
    
26.     Dim nCode As Integer
    
27.    
    
28.     nCode = SKQuoteEvents.SKQuoteLib_GetStockByIndex(sMarketNo, sStockIdx, pSKStock)
    
29.    
    
30.     With Sheet3
    
31.    
    
32.     Dim i As Integer
    
33.     Dim strStock As String
    
34.     Dim nDot As Long
    
35.    
    
36.     For i = 6 To Int(.Cells(2, 5)) + 5
    
37.         strStock = .Cells(i, 1)
    
38.         If strStock = pSKStock.bstrStockNo Then
    
39.         
    
40.             nDot = 10 ^ pSKStock.sDecimal
    
41.             
    
42.             .Cells(i, 17).Value = pSKStock.nBuyTotalCount
    
43.             .Cells(i, 18).Value = pSKStock.nSellTotalCount
    
44.             .Cells(i, 19).Value = pSKStock.nBuyTotalQty
    
45.             .Cells(i, 20).Value = pSKStock.nBuyTotalCount
    
46.             .Cells(i, 21).Value = pSKStock.nBuyDealTotalCount
    
47.             .Cells(i, 22).Value = pSKStock.nSellDealTotalCount
    
48.             
    
49.         
    
50.             
    
51.         End If
    
52.     Next i
    
53.     End With
    
54. End Sub

複製代碼

smallMint

回補tick的功能對於各位大大是不是很重要@@?

kuolung

之前很重要 實際使用以後 發覺沒那麼重要了 原因是群益的回補也是不準的 盤中就算補足所有的 tick 再比對交易所的報表也是不準的

smallMint

所以還要想辦法用交易所的報表核對資料嗎~
那沒對的人直接回補的話，也是錯的資料...然後他們都沒發現= ="

或是要自己紀錄tick??