柱哥 发表于 2016-6-15 18:34:18

高，实在是高啊！

自贡黄明儒 发表于 2016-6-21 08:23:17

我首先加载InstallDynamicWrapperX.VLX了，并成功注册。可MMp还是不行，大师呀，是怎么回事呢？

DynamicWrapperX已注册!

Command:
Command:
Command: (LOAD "E:/F/编程hh/Newlsp/Highflygird/MMPlayer-Source/MMPlayer.lsp")
运行命令是:MMP.
Command: mmp
Backtrace:
(VL-BT)
(*ERROR* "DynamicWrapperX.2: Argument value out of range for the
parameter type")
(_call-err-hook #<SUBR @08727a28 *ERROR*> "DynamicWrapperX.2: Argument
value out of range for the parameter type")
(sys-error "DynamicWrapperX.2: Argument value out of range for the
parameter type")
:ERROR-BREAK.98 nil
(IDispatch.Invoke #<VLA-OBJECT 081f3aa0> SELECTOBJECT 1 1291917682
2.0735e+011)
(vlax-invoke #<VLA-OBJECT 081f3aa0> SELECTOBJECT 1291917682 2.0735e+011)
(DWX:LISTTEXTWIDTH #<VLA-OBJECT 081f3aa0> 722278 ("Air
Supply-Goodbye.mp3"))
(MMP:OPENFILE #<VLA-OBJECT 081f3aa0> 722278)
(#<SUBR @0da266a4 -lambda-> "OPEN" "1" "" 1 72 18)
(#<SUBR @098a599c -application-envelope->)
:ENTRY-NAMESPACE.53 (:ENTRY-NAMESPACE)
(#<SUBR @098a59c4 -unwind-protect->)
(_lisplet-apply #<Document-LISPLET> #<SUBR @098a599c
-application-envelope-> nil nil)
(_lisplet-app-apply #<Document-LISPLET> #<SUBR @0da266a4 -lambda->
("OPEN" "1" "" 1 72 18))
(dcl-call-back ("OPEN" "1" "" 1 72 18) nil)
:DCL-ACTION.26 :DCL-ACTION
(START_DIALOG)
(C:MMP)
(#<SUBR @0da2667c -rts_top->)
(#<SUBR @098a0334 veval-str-body> "(C:MMP)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

fan_zh 发表于 2016-6-21 09:24:57

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

highflybird 发表于 2016-6-21 09:42:28

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

Dynamic ...

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

自贡黄明儒 发表于 2016-6-21 10:00:31

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

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

highflybird 发表于 2016-6-21 10:19:32

在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:20:23

本帖最后由 highflybird 于 2016-6-21 10:45 编辑

自贡黄明儒 发表于 2016-6-21 10:00 static/image/common/back.gif
是呀，我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:31

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

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

highflybird 发表于 2016-6-21 10:51:20

自贡黄明儒 发表于 2016-6-21 10:48 static/image/common/back.gif
_1$ pDC
1979778235
_1$ Font


看看我上面的解决办法

自贡黄明儒 发表于 2016-6-21 10:59:22

highflybird 发表于 2016-6-21 10:51 static/image/common/back.gif
看看我上面的解决办法

我选择了一个mp3,击播放，不死机了，但出现如下提示
页: 1 2 [3] 4
查看完整版本: 简易的多媒体播放器