【飞鸟集】LISP.net?在LISP中调用C++,ARX函数以及汇编语言

skynoon · 发表于 2011-7-27 21:35

又学了一招，谢谢

Jack_PC · 发表于 2011-7-27 21:51

本帖最后由 Jack_PC 于 2011-7-27 22:07 编辑

highflybird 发表于 2011-7-27 21:13
回复 Jack_PC 的帖子

参见这个帖子。

非常感谢,测试已成功转出来了,真的很神奇

Jack_PC · 发表于 2011-7-27 22:06

本帖最后由 Jack_PC 于 2011-7-27 22:08 编辑

highflybird 发表于 2011-7-27 21:13
回复 Jack_PC 的帖子

参见这个帖子。

再请教一下，刚才用你那例子转成了二进制的txt文件，但是我将此二进制的txt文件打包到VLX中之后在LISP中如何才能调出来。（附件是我转成了二进制的txt文件）

highflybir · 发表于 2011-7-27 22:10

本帖最后由 highflybir 于 2011-7-27 22:12 编辑

Jack_PC 发表于 2011-7-27 22:06
再请教一下，刚才用你那例子转成了二进制的txt文件，但是我将此二进制的txt文件打包到VLX中之后在LISP中 ...

(vl-get-resource "test") -->你打包的txt文件名
你再仔细看看我的例子。
这个方法不宜广泛传播，自己知道就可以了。
本无意写出这个方法，但是看到这个方法还是有很多用处。故而贴出来。

Jack_PC · 发表于 2011-7-27 22:27

highflybir 发表于 2011-7-27 22:10
(vl-get-resource "test") -->你打包的txt文件名
你再仔细看看我的例子。
这个方法不宜广泛传播，自 ...

版主,(vl-get-resource "test") 这个是读出文件,但是之后在LISP中如何调用打包到VLX中的EXE文件,请指导一下,如果不宜广泛传播,能否做个例子发到我的邮箱中呢,先谢谢了
我的邮箱: jackpc@foxmail.com

highflybird · 发表于 2011-7-27 22:48

本帖最后由 highflybird 于 2011-7-27 23:21 编辑

Jack_PC 发表于 2011-7-27 22:27
版主,(vl-get-resource "test") 这个是读出文件,但是之后在LISP中如何调用打包到VLX中的EXE文件,请指导一 ...

(setq stream (vl-get-resource "test")) ;we can wrap this text file into .vlx file
(setq array (read stream))
(setq dat (vlax-make-safearray 17 (cons 0 (1- (length array))))) ;17 for unsigned char
(vlax-safearray-fill dat array)
(setq bin (vlax-make-variant dat))
(writeBinary "C:\\test.jpg" bin) ;write binary file.

Jack_PC · 发表于 2011-7-27 23:00

highflybird 发表于 2011-7-27 22:48
(setq stream (vl-get-resource "test")) ;we can wrap this text file ...

非常感谢,请问是否所有打包到VLX中的文件都要这样还原之后才能用呢?

highflybird · 发表于 2011-7-27 23:07

Jack_PC 发表于 2011-7-27 23:00
非常感谢,请问是否所有打包到VLX中的文件都要这样还原之后才能用呢?

那当然，vlx 不能打包二进制文件。所以只能通过中间的办法。

Jack_PC · 发表于 2011-7-27 23:11

highflybird 发表于 2011-7-27 23:07
那当然，vlx 不能打包二进制文件。所以只能通过中间的办法。

在你的指导下,现总算对此问题有少许的了解了,再次感谢了.

cheng5276 · 发表于 2011-7-28 00:07

相当的强悍，佩服

账号		自动登录	找回密码
密码			注册

[【高飞鸟】] 【飞鸟集】LISP.net?在LISP中调用C++,ARX函数以及汇编语言