Vlisp实现从网上下载文件功能.

鱼与熊掌

;这个代码是后台静默下载的.请勿用于恶意用途.

;测试代码.
(cx-DownLoad "http://www.youyicad.com/download/YouYi_Lib.VLX" "c:\\testggggggg.vlx")
;这里代码实现从我的服务器上面下载这个文件.
;没啥用千万不要下载.防止滥用..明经币收的高点..
;论坛上有类似的帖子,因为年代久远,我已经不能下载那个文件了,所以自己写了个

nyistjz

你这个不对啊，少了最后面的两个函数，无法运行的！

;;;(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)
)

MXS

nyistjz 发表于 2022-8-17 15:33
你这个不对啊，少了最后面的两个函数，无法运行的！

;;;(cx-DownLoad "http://www.youyicad.com/downloa ...

您好解决了吗

阿霸jun

有啥子好东西可以下载，把文件名列出来

鱼与熊掌

阿霸jun 发表于 2015-5-19 17:35
有啥子好东西可以下载，把文件名列出来

获取文件夹里面的所有文件名?     有函数吧.

arken

谢谢。但我还没有币，所以下载不了。但以前有了解过LISP的网络下载，想看看能否做在线升级。当时有两个疑问：
1、如果本地文件已存在并在使用中，有没办法使用。能否像杀毒软件升级病毒库那样升级？估计是先将网络文件下载到本地临时文件夹，下载完后在文件没有在使用时再替换覆盖过去。
2、以前了解到这类下载如果网络不顺时，CAD会卡个好几秒，因为CAD不是多线程。曾有个说法是用API调用wininet作网络判断。卡CAD的情况是：电脑的网络连接是正常的但网络访问不通（如：DNS有问题，或路由器禁止了外网访问）,如果本地网络连接是处于禁用状态，反而不会卡CAD，直接下载失败。

鱼与熊掌

arken 发表于 2015-5-20 12:00
谢谢。但我还没有币，所以下载不了。但以前有了解过LISP的网络下载，想看看能否做在线升级。当时有两个疑问 ...

其实可以开个外部程序实现下载.......   不用CAD了

叶曲冰寒

到底有没有传说中的那么厉害，收费这么贵！！！！！！

鱼与熊掌

叶曲冰寒 发表于 2015-5-25 11:17
到底有没有传说中的那么厉害，收费这么贵！！！！！！

推荐不下载~

叶曲冰寒

鱼与熊掌 发表于 2015-5-25 11:18
推荐不下载~

熊掌，有啥好思路，用来从网络更新vlx插件

鱼与熊掌

叶曲冰寒 发表于 2015-5-25 11:20
熊掌，有啥好思路，用来从网络更新vlx插件

有       在服务器上面设置一个版本号  通过获取版本号  来更新文件

叶曲冰寒

鱼与熊掌 发表于 2015-5-25 11:26
有       在服务器上面设置一个版本号  通过获取版本号  来更新文件

很好！！！！！！