欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]为什么得不到即时的行情阿

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有5561人关注过本帖树形打印复制链接

主题：[求助]为什么得不到即时的行情阿
帅哥哟，离线，有人找我吗？
wangwatercup
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01 		[求助]为什么得不到即时的行情阿  发帖心情 Post By：2010/12/27 9:41:07 [只看该作者]

代码如下：

dim may
dim sz1
dim sz2
dim aup
dim adn
dim dmJYS,dmHY
dim o,h,l,c
dim timePart
dim NumI,insertArr

Sub m0()
sz1=5    'pw+1
sz2=32    'N

aup=1.222992898
adn=2.92591016405253

redim may(sz1,sz2)
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\output.xlsx")   
   
    for i=1 to sz1
        for j=1 to sz2
            may(i,j)= cdbl(objExcel.Cells(i, j).Value)  '取第一个单元格数据
        next
    next            
    objExcel.Quit
   
    dmJYS="ZJ"
    dmHY="IF01"
    call marketdata.RegReportNotify(dmHY,dmJYS)
   
    NumI=1
    redim insertArr(NumI,5)

End Sub


Sub MARKETDATA_ReportNotify(ReportData)
 '响应注册的品种行情变化通知
 msgbox dmHY
 Set rpt = marketdata.GetReportData(dmHY,dmJYS)'得到这个品种的行情报价
    c=rpt.newprice
    if o=0 then o=c
    if c>h then h=c
    if l>c then l=c
        msgbox c
end sub

在运行的时候dmHY始终没有弹出对话框，由此判断MARKETDATA_ReportNotify并没有执行；但是交易始终提示
2010-12-27 09:40:39
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 09:40:39
40009975 : CF111 - 综合交易平台：找不到合约


这是为啥啊啊啊啊啊啊啊啊？？？？？


另外重新写了一个简单的版本

Sub test()
    dmJYS="ZJ"
    dmHY="IF01"
    call marketdata.RegReportNotify(dmHY,dmJYS)
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
 Set rpt = marketdata.GetReportData("ZJ","IF01")'得到这个品种的行情报价
    c=rpt.newprice
        msgbox c
end sub

但是弹出几个时间之后就不再有反映了，也不知道为啥。
[此贴子已经被作者于2010-12-27 9:56:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Morgan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：134 积分：905 威望：0 精华：0 注册：2010/9/29 9:33:49 		  发帖心情 Post By：2010/12/27 10:24:05 [只看该作者]

Sub TLStart()
 End Sub

'响应注册的品种行情变化通知
Sub MARKETDATA_ReportNotify(ReportData)

end sub

配合使用
 回到顶部
帅哥哟，离线，有人找我吗？
Morgan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：134 积分：905 威望：0 精华：0 注册：2010/9/29 9:33:49 		  发帖心情 Post By：2010/12/27 10:24:25 [只看该作者]

2个缺一不可

 回到顶部
帅哥哟，离线，有人找我吗？
wangwatercup
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01 		  发帖心情 Post By：2010/12/27 11:05:31 [只看该作者]

 Sub TLStart()
    dmJYS="ZJ"
    dmHY="IF01"
    call marketdata.RegReportNotify(dmHY,dmJYS)
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
msgbox "fuck"
 Set rpt = marketdata.GetReportData("IF01","ZJ")'得到这个品种的行情报价
    c=rpt.newprice
        msgbox c
end sub

但是没有任何反馈，除了如下信息：

2010-12-27 11:04:30
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:30
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:37
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:37
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:39
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:39
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:41
40009975 : CF111 - 综合交易平台：找不到合约
 回到顶部
帅哥哟，离线，有人找我吗？
wangwatercup
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01 		  发帖心情 Post By：2010/12/27 11:22:39 [只看该作者]

 问题找到了，是因为我在此之前运行了一段程序

Sub TLStart()
 '注册CF09和CF11品种
 call marketdata.RegReportNotify("CF09","ZQ")
 call marketdata.RegReportNotify("CF11","ZQ")
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
 '得到这两个品种的行情报价
 
 Set Report1 = marketdata.GetReportData("CF09","ZQ")
 Set Report2 = marketdata.GetReportData("CF11","ZQ")
 
、、、、、、略
End Sub

虽然我注册了上面的品种，但是当我再次注册股指期货IF01合约的时候就咋都不行了，也许是因为我使用的是免费版，至多注册3个。现在不知道如何取消品种数据注册，试了以下的语句还是不行：

sub test2()
call  marketdata.UnRegReportNotify("CF09","ZQ")
call marketdata.UnRegReportNotify("CF11","ZQ")
msgbox "fuckssss"
end sub

除非关掉金字塔然后重新启动才会避免上面注册的品种，但是当我试图注册if01数据的时候又跳出了下面的信息：
2010-12-27 11:25:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约


[此贴子已经被作者于2010-12-27 11:26:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wangwatercup
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01 		  发帖心情 Post By：2010/12/27 18:23:51 [只看该作者]

 解决问题了。感觉：
（1）只要没有关掉金字塔，即使重新启动vba，注册数据反映还会进行；
（2）不知道命令UnRegReportNotify有问题，还是我下面的代码有问题，总之无法在不重新启动金字塔的条件下取消数据注册。代码如下：

sub test2()
call  marketdata.UnRegReportNotify("CF09","ZQ")
call marketdata.UnRegReportNotify("CF11","ZQ")
msgbox "****ssss"
end sub
 回到顶部
帅哥哟，离线，有人找我吗？
一亩三分地
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：51 积分：245 威望：0 精华：0 注册：2010/12/4 11:32:48 		  发帖心情 Post By：2010/12/27 18:37:24 [只看该作者]

 再实盘测试看看。我使用的情况是UnRegReportNotify有效

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15625 秒, 5 次数据查询