Vlisp实现从网上下载文件功能.
本帖最后由 鱼与熊掌 于 2015-5-19 17:26 编辑;这个代码是后台静默下载的.请勿用于恶意用途.
;测试代码.
(cx-DownLoad "http://www.youyicad.com/download/YouYi_Lib.VLX" "c:\\testggggggg.vlx")
;这里代码实现从我的服务器上面下载这个文件.
;没啥用千万不要下载.防止滥用..明经币收的高点..
;论坛上有类似的帖子,因为年代久远,我已经不能下载那个文件了,所以自己写了个
你这个不对啊，少了最后面的两个函数，无法运行的！
;;;(cx-DownLoad "http://www.youyicad.com/download/YouYi_Lib.VLX" "c:\\testggggggg.vlx")
(defun cx-DownLoad(Url_String SaveFile_String / adobd xmlx)
(Setq XmlX (vlax-get-or-create-object "Msxml2.XMLHTTP"))
(vlax-invoke-method XmlX 'open "Get" Url_String 0)
(vlax-invoke-method XmlX 'Send)
(setq AdoBd(vlax-get-or-create-object "ADODB.Stream"))
(vlax-put-property AdoBd 'Mode 3)
(vlax-put-property AdoBd 'Type 1)
(vlax-invoke AdoBd 'open)
(vlax-invoke-method AdoBd 'Write (vlax-Get-property XmlX 'responseBody))
(vlax-invoke-method AdoBd 'SaveToFile SaveFile_String 2)
(cx-ReleaseObject XmlX)
(cx-ReleaseObject AdoBd)
) nyistjz 发表于 2022-8-17 15:33
你这个不对啊，少了最后面的两个函数，无法运行的！
;;;(cx-DownLoad "http://www.youyicad.com/downloa ...
您好解决了吗
有啥子好东西可以下载，把文件名列出来 阿霸jun 发表于 2015-5-19 17:35 static/image/common/back.gif
有啥子好东西可以下载，把文件名列出来
获取文件夹里面的所有文件名? 有函数吧. 谢谢。但我还没有币，所以下载不了。但以前有了解过LISP的网络下载，想看看能否做在线升级。当时有两个疑问：
1、如果本地文件已存在并在使用中，有没办法使用。能否像杀毒软件升级病毒库那样升级？估计是先将网络文件下载到本地临时文件夹，下载完后在文件没有在使用时再替换覆盖过去。
2、以前了解到这类下载如果网络不顺时，CAD会卡个好几秒，因为CAD不是多线程。曾有个说法是用API调用wininet作网络判断。卡CAD的情况是：电脑的网络连接是正常的但网络访问不通（如：DNS有问题，或路由器禁止了外网访问）,如果本地网络连接是处于禁用状态，反而不会卡CAD，直接下载失败。
arken 发表于 2015-5-20 12:00 static/image/common/back.gif
谢谢。但我还没有币，所以下载不了。但以前有了解过LISP的网络下载，想看看能否做在线升级。当时有两个疑问 ...
其实可以开个外部程序实现下载....... 不用CAD了 到底有没有传说中的那么厉害，收费这么贵！！！！！！ 叶曲冰寒 发表于 2015-5-25 11:17 static/image/common/back.gif
到底有没有传说中的那么厉害，收费这么贵！！！！！！
推荐不下载~ 鱼与熊掌 发表于 2015-5-25 11:18 static/image/common/back.gif
推荐不下载~
熊掌，有啥好思路，用来从网络更新vlx插件 叶曲冰寒 发表于 2015-5-25 11:20 static/image/common/back.gif
熊掌，有啥好思路，用来从网络更新vlx插件
有 在服务器上面设置一个版本号通过获取版本号来更新文件 鱼与熊掌 发表于 2015-5-25 11:26 static/image/common/back.gif
有 在服务器上面设置一个版本号通过获取版本号来更新文件
很好！！！！！！
页:
[1]
2