简易的多媒体播放器

柱哥

高，实在是高啊！

自贡黄明儒

我首先加载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)

fan_zh

坐等高大师推出飞鸟操作系统

highflybird

自贡黄明儒 发表于 2016-6-21 08:23
我首先加载InstallDynamicWrapperX.VLX了，并成功注册。可MMp还是不行，大师呀，是怎么回事呢？

Dynamic ...

在32位的CAD会出现这样的问题吗？
另外，你用出错时中断的功能找出出错时的断点

自贡黄明儒

highflybird 发表于 2016-6-21 09:42
在32位的CAD会出现这样的问题吗？
另外，你用出错时中断的功能找出出错时的断点

是呀，我win7 32位　cad2005，打开“白狐.mp3“就不动了。已经设置在错误处断开，击那个红点(last break)发现在(setq ret   (vlax-invoke DWX 'SelectObject pDC Font))

highflybird

在selectobject 之前的
(setq pDC   (vlax-invoke DWX 'GetDC hLST))
(setq Font  (vlax-invoke DWX 'SendMessageW hLST 49 0 0))
这两句中 PDC不是整数值还是font不是整数值？

highflybird

自贡黄明儒 发表于 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")
试试看

自贡黄明儒

highflybird 发表于 2016-6-21 10:20
我怀疑与selectobject 这个函数有关
把(setq ret   (vlax-invoke DWX 'SelectObject pDC Font))
改成 ...

_1$ pDC
1979778235
_1$ Font
2.09565e+011
_1$

highflybird

自贡黄明儒 发表于 2016-6-21 10:48
_1$ pDC
1979778235
_1$ Font

看看我上面的解决办法

自贡黄明儒

highflybird 发表于 2016-6-21 10:51
看看我上面的解决办法

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