明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: highflybird

[【高飞鸟】] 简易的多媒体播放器

  [复制链接]
发表于 2016-6-15 18:34 | 显示全部楼层
高,实在是高啊!
发表于 2016-6-21 08:23 | 显示全部楼层
我首先加载InstallDynamicWrapperX.VLX了,并成功注册。可MMp还是不行,大师呀,是怎么回事呢?

DynamicWrapperX已注册!

Command:
Command:
Command: (LOAD "E:/F/编程hh/Newlsp/Highflygird/MMPlayer-Source/MMPlayer.lsp")
运行命令是:MMP.
Command: mmp
Backtrace:
[0.118] (VL-BT)
[1.114] (*ERROR* "DynamicWrapperX.2: Argument value out of range for the
parameter type")
[2.109] (_call-err-hook #<SUBR @08727a28 *ERROR*> "DynamicWrapperX.2: Argument
value out of range for the parameter type")
[3.103] (sys-error "DynamicWrapperX.2: Argument value out of range for the
parameter type")
:ERROR-BREAK.98 nil
[4.95] (IDispatch.Invoke #<VLA-OBJECT 081f3aa0> SELECTOBJECT 1 1291917682
2.0735e+011)
[5.86] (vlax-invoke #<VLA-OBJECT 081f3aa0> SELECTOBJECT 1291917682 2.0735e+011)
[6.78] (DWX:LISTTEXTWIDTH #<VLA-OBJECT 081f3aa0> 722278 ("Air
Supply-Goodbye.mp3"))
[7.71] (MMP:OPENFILE #<VLA-OBJECT 081f3aa0> 722278)
[8.65] (#<SUBR @0da266a4 -lambda-> "OPEN" "1" "" 1 72 18)
[9.56] (#<SUBR @098a599c -application-envelope->)
:ENTRY-NAMESPACE.53 (:ENTRY-NAMESPACE)
[10.50] (#<SUBR @098a59c4 -unwind-protect->)
[11.47] (_lisplet-apply #<Document-LISPLET> #<SUBR @098a599c
-application-envelope-> nil nil)
[12.39] (_lisplet-app-apply #<Document-LISPLET> #<SUBR @0da266a4 -lambda->
("OPEN" "1" "" 1 72 18))
[13.32] (dcl-call-back ("OPEN" "1" "" 1 72 18) nil)
:DCL-ACTION.26 :DCL-ACTION
[14.23] (START_DIALOG)
[15.19] (C:MMP)
[16.15] (#<SUBR @0da2667c -rts_top->)
[17.12] (#<SUBR @098a0334 veval-str-body> "(C:MMP)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)
发表于 2016-6-21 09:24 | 显示全部楼层
坐等高大师推出飞鸟操作系统
 楼主| 发表于 2016-6-21 09:42 | 显示全部楼层
自贡黄明儒 发表于 2016-6-21 08:23
我首先加载InstallDynamicWrapperX.VLX了,并成功注册。可MMp还是不行,大师呀,是怎么回事呢?

Dynamic ...

在32位的CAD会出现这样的问题吗?
另外,你用出错时中断的功能找出出错时的断点
发表于 2016-6-21 10:00 | 显示全部楼层
highflybird 发表于 2016-6-21 09:42
在32位的CAD会出现这样的问题吗?
另外,你用出错时中断的功能找出出错时的断点

是呀,我win7 32位 cad2005,打开“白狐.mp3“就不动了。已经设置在错误处断开,击那个红点(last break)发现在(setq ret   (vlax-invoke DWX 'SelectObject pDC Font))
 楼主| 发表于 2016-6-21 10:19 | 显示全部楼层
在selectobject 之前的
(setq pDC   (vlax-invoke DWX 'GetDC hLST))
(setq Font  (vlax-invoke DWX 'SendMessageW hLST 49 0 0))
这两句中 PDC不是整数值还是font不是整数值?
 楼主| 发表于 2016-6-21 10:20 | 显示全部楼层
本帖最后由 highflybird 于 2016-6-21 10:45 编辑
自贡黄明儒 发表于 2016-6-21 10:00
是呀,我win7 32位 cad2005,打开“白狐.mp3“就不动了。已经设置在错误处断开,击那个红点(last break) ...


我怀疑与selectobject 这个函数有关
把(setq ret   (vlax-invoke DWX 'SelectObject pDC Font))
改成:
(setq ret   (vlax-invoke DWX 'SelectObject pDC (rtos Font 2 0)))

(vlax-invoke DWX 'Register "GDI32" "SelectObject" "i=hh" "r=h")
改成:
(vlax-invoke DWX 'Register "GDI32" "SelectObject" "i=mm" "r=h")
试试看
发表于 2016-6-21 10:48 | 显示全部楼层
highflybird 发表于 2016-6-21 10:20
我怀疑与selectobject 这个函数有关
把(setq ret   (vlax-invoke DWX 'SelectObject pDC Font))
改成 ...

_1$ pDC
1979778235
_1$ Font
2.09565e+011
_1$
 楼主| 发表于 2016-6-21 10:51 | 显示全部楼层
自贡黄明儒 发表于 2016-6-21 10:48
_1$ pDC
1979778235
_1$ Font

看看我上面的解决办法
发表于 2016-6-21 10:59 | 显示全部楼层
highflybird 发表于 2016-6-21 10:51
看看我上面的解决办法

我选择了一个mp3,击播放,不死机了,但出现如下提示

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 20:50 , Processed in 0.223869 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表