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

dcl1214

大家一起来补充

1. (DEFUN $xmlhttp$ (lst  / objhttp)
   
2.   (cond
   
3.     ((and (= (getenv "zx-xmlhttp") "1")
   
4.     (setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
   
5.           ;有缓存速度快,用这个的时候，报文头里面如果有中文，服务器不会乱码
   
6.      )
   
7.      t
   
8.     )
   
9.     ((and (= (getenv "zx-xmlhttp") "2")
   
10.     (setq objHttp (vlax-create-object "Microsoft.XMLHTTP"))
    
11.           ;这个是2.0的
    
12.      )
    
13.      t
    
14.     )
    
15.     ((and (= (getenv "zx-xmlhttp") "3")
    
16.     (setq objHttp (vlax-create-object "winhttp.winhttprequest.5.1"))
    
17.           ;这个没用过，先记录这里
    
18.      )
    
19.      t
    
20.     )
    
21.     ((and (= (getenv "zx-xmlhttp") "4")
    
22.     (setq objHttp (vlax-create-object "Msxml2.ServerXMLHTTP"))
    
23.           ;没有缓存，报文头里面如果有中文服务器会乱码
    
24.      )
    
25.      t
    
26.     )
    
27.     (t
    
28.      (setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
    
29.           ;有缓存速度快,用这个的时候，报文头里面如果有中文，服务器不会乱码
    
30.     )
    
31.   )
    
32.   objHttp
    
33. )

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

liuhe

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

自贡黄明儒

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

ludaweb

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

tryhi

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

保留函数的扩展性，后面如果需要加东西时，可以不用修改已经在使用的代码