以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  admin老大请进，关于RegReportNotify的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2696)
--  作者：wattwei
--  发布时间：2010/9/2 15:14:04
--  admin老大请进，关于RegReportNotify的问题
 写了一段测试代码：
Dim debugFile

Sub Test1()
    logSpec=application.AppPath&"\\debug.log"
    Set fso=createobject("Scripting.FileSystemObject")
    Set debugFile=fso.OpenTextFile(logSpec,2,1)
    Call marketdata.RegReportNotify("ZN12","SQ")
    Call marketdata.RegReportNotify("Y05","DQ")
    Call marketdata.RegReportNotify("L01","DQ")
    Call marketdata.RegReportNotify("M05","DQ")
    Call marketdata.RegReportNotify("CF01","ZQ")
    Call marketdata.RegReportNotify("RB01","SQ")
    Call marketdata.RegReportNotify("RU01","SQ")
    Call marketdata.RegReportNotify("SRY05","ZQ")
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
    debugFile.WriteLine(ReportData.Label)
End Sub

Sub Test2()
    Call marketdata.UnRegReportNotify("ZN12","SQ")
    Call marketdata.UnRegReportNotify("Y05","DQ")
    Call marketdata.UnRegReportNotify("L01","DQ")
    Call marketdata.UnRegReportNotify("M05","DQ")
    Call marketdata.UnRegReportNotify("CF01","ZQ")
    Call marketdata.UnRegReportNotify("RB01","SQ")
    Call marketdata.UnRegReportNotify("RU01","SQ")
    Call marketdata.UnRegReportNotify("SRY05","ZQ")
    debugFile.Close
End Sub


目的测试RegReportNOtify函数，将收到的报告信息写入文件中。先运行Test1，过几分钟后运行Test2。结果写入debug.log中的信息片段如下：
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01

貌似除了开头的3合约，其它注册合约没有数据送过来，请查查原因，谢谢
--  作者：admin
--  发布时间：2010/9/2 15:27:56
--  

目前是这样的，只能最多订阅3个合约。

正式版用户最多可以订阅超过10个。

你有空QQ找我，给你授权
--  作者：wattwei
--  发布时间：2010/9/2 15:39:05
--  
 谢谢，明白了，我还以为是系统纰漏
--  作者：msedu
--  发布时间：2010/9/2 20:28:55
--  
我有个问题，想问问，既然是全推行情，为什么要订阅呢，订阅的好处和用处在什么地方呢?
--  作者：admin
--  发布时间：2010/9/2 22:21:23
--  
订阅得好处是告诉金字塔你对哪些品种感兴趣，行情有变化就通知你，不感谢兴趣就不通知，提高金字塔得工作效率
--  作者：BNF
--  发布时间：2010/11/5 23:49:17
--  

请问不感兴趣的可以让金字塔不接收么？谢谢！
--  作者：wattwei
--  发布时间：2010/11/6 10:11:49
--  
回楼上，这个问题提问过。金字塔不支持这种接收方式，服务器推送过来的数据包格式固定，不能裁减
--  作者：BNF
--  发布时间：2010/11/6 13:40:11
--  
以下是引用wattwei在2010-11-6 10:11:49的发言：
回楼上，这个问题提问过。金字塔不支持这种接收方式，服务器推送过来的数据包格式固定，不能裁减

非常感谢！

那么数据过来，解压缩，可以直接传到vba么？而不是软件里先公式调用或者图形显示。谢谢！