dcl1214 发表于 2024-10-23 11:43:56

lisp与远程服务器远程通信时调用系统常用dll组件

本帖最后由 dcl1214 于 2024-10-23 11:45 编辑

大家一起来补充
(DEFUN $xmlhttp$ (lst/ objhttp)
(cond
    ((and (= (getenv "zx-xmlhttp") "1")
    (setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
          ;有缓存速度快,用这个的时候，报文头里面如果有中文，服务器不会乱码
   )
   t
    )
    ((and (= (getenv "zx-xmlhttp") "2")
    (setq objHttp (vlax-create-object "Microsoft.XMLHTTP"))
          ;这个是2.0的
   )
   t
    )
    ((and (= (getenv "zx-xmlhttp") "3")
    (setq objHttp (vlax-create-object "winhttp.winhttprequest.5.1"))
          ;这个没用过，先记录这里
   )
   t
    )
    ((and (= (getenv "zx-xmlhttp") "4")
    (setq objHttp (vlax-create-object "Msxml2.ServerXMLHTTP"))
          ;没有缓存，报文头里面如果有中文服务器会乱码
   )
   t
    )
    (t
   (setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
          ;有缓存速度快,用这个的时候，报文头里面如果有中文，服务器不会乱码
    )
)
objHttp
)

liuhe 发表于 2024-10-23 13:59:32

独领风骚，我估计用lisp玩这个的方面的都是个位数

自贡黄明儒 发表于 2024-10-23 15:01:04

你这个函数要求输入lst，lst是什么？

ludaweb 发表于 2024-10-24 08:19:18

网络通信我一般用这个"winhttp.winhttprequest.5.1"

tryhi 发表于 2024-10-24 09:34:02

自贡黄明儒 发表于 2024-10-23 15:01
你这个函数要求输入lst，lst是什么？

保留函数的扩展性，后面如果需要加东西时，可以不用修改已经在使用的代码
页: [1]
查看完整版本: lisp与远程服务器远程通信时调用系统常用dll组件