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

革天明 · 发表于 2015-11-16 15:25

cx-ReleaseObject是否等同于vlax-release-object？

革天明 · 发表于 2015-11-16 15:52

当下载的文件较大时（1M左右），下载不下来，结果就是1KB的文件

eechenchun · 发表于 2021-3-16 18:39

我也想要啊可是没有币

MXS · 发表于 2022-8-11 23:30

本帖最后由 MXS 于 2022-8-11 23:52 编辑

想删除此回复

MXS · 发表于 2022-8-11 23:51

想请问为何下载下来的dwg或者lsp都不能使用

nyistjz · 发表于 2022-8-17 15:33

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

;;;(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 · 发表于 2022-9-7 23:25

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

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

您好解决了吗

nyistjz · 发表于 2022-9-8 08:58

MXS 发表于 2022-9-7 23:25
您好解决了吗

当然没有了，需要楼主提供，但他没有啊。发出来的附件，只能用来骗币了

Bdj · 发表于 2022-9-8 13:34

是不是要测试附件程序可行性的话，还得自己要有个服务器

happyboy75 · 发表于 2022-9-9 08:20

vlax-release-object 好像这个

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

[函数] Vlisp实现从网上下载文件功能.

本帖子中包含更多资源