Java平台远程调用Lisp的实现

不死猫

声明：本文由不死猫在明经通道首发，转载请注明出处和作者（也就是猫老师我啦）。
运行环境Win7x64+JRE1.5+Tomcat6+AutoCAD2006
首先我们需要准备的架包是jacob.jar
然后需要jacob-1.15-M3-x64.dll或jacob-1.15-M3-x86.dll放在JDK的bin下面和JRE的bin下面。

我们先简单用控制台程序来测试

2. 
   
3. import com.jacob.activeX.ActiveXComponent;
   
4. import com.jacob.com.Dispatch;
   
5. import com.jacob.com.Variant;
   
6. 
   
7. public class main {
   
8.   /**
   
9.    * 不死猫出品
   
10.    */
    
11.   public static void main(String[] args) {
    
12.     // TODO 自动生成的方法存根
    
13.     try {
    
14.       ActiveXComponent ACAD = new ActiveXComponent("AutoCAD.Application");
    
15.       ACAD.setProperty("visible",true);
    
16.       //调用方法1
    
17.       Dispatch VL = ACAD.invoke("GetInterfaceObject","vl.application.16").toDispatch();
    
18.       Dispatch VLD = Dispatch.get(VL,"ActiveDocument").toDispatch();
    
19.       Dispatch Functions = Dispatch.get(VLD,"Functions").toDispatch();
    
20.       Dispatch eval = Dispatch.call(Functions,"item","eval").toDispatch();
    
21.       Dispatch read = Dispatch.call(Functions,"item","read").toDispatch();
    
22.       Dispatch lispcode;
    
23.       lispcode = Dispatch.call(read,"funcall","(defun test()(print 123)(print 345))").toDispatch();
    
24.       Dispatch.call(eval,"funcall",lispcode);
    
25.       lispcode = Dispatch.call(read,"funcall","(test)").toDispatch();
    
26.       Dispatch.call(eval,"funcall",lispcode);
    
27.       //调用方法2
    
28.       Dispatch Adoc = Dispatch.get(ACAD,"ActiveDocument").toDispatch();
    
29.       Dispatch.call(Adoc, "SendCommand","(test) ");
    
30.       //Dispatch retval = Dispatch.call(eval,"funcall",new Variant(lispcode)).toDispatch();
    
31.       System.out.println(ACAD.getProperty("name"));
    
32.     } catch (Exception e) {
    
33.       // TODO: handle exception
    
34.     }
    
35.     //ACAD.invoke("quit");
    
36.     System.out.println("ok");
    
37.   }
    
38. }
    
39. 
    
40. 
    

<br /> import com.jacob.activeX.ActiveXComponent;<br /> import com.jacob.com.Dispatch;<br /> import com.jacob.com.Variant;<br /> <br /> public class main {<br />   /**<br />    * 不死猫出品<br />    */<br />   public static void main(String[] args) {<br />     // TODO 自动生成的方法存根<br />     try {<br />       ActiveXComponent ACAD = new ActiveXComponent("AutoCAD.Application");<br />       ACAD.setProperty("visible",true);<br />       //调用方法1<br />       Dispatch VL = ACAD.invoke("GetInterfaceObject","vl.application.16").toDispatch();<br />       Dispatch VLD = Dispatch.get(VL,"ActiveDocument").toDispatch();<br />       Dispatch Functions = Dispatch.get(VLD,"Functions").toDispatch();<br />       Dispatch eval = Dispatch.call(Functions,"item","eval").toDispatch();<br />       Dispatch read = Dispatch.call(Functions,"item","read").toDispatch();<br />       Dispatch lispcode;<br />       lispcode = Dispatch.call(read,"funcall","(defun test()(print 123)(print 345))").toDispatch();<br />       Dispatch.call(eval,"funcall",lispcode);<br />       lispcode = Dispatch.call(read,"funcall","(test)").toDispatch();<br />       Dispatch.call(eval,"funcall",lispcode);<br />       //调用方法2<br />       Dispatch Adoc = Dispatch.get(ACAD,"ActiveDocument").toDispatch();<br />       Dispatch.call(Adoc, "SendCommand","(test) ");<br />       //Dispatch retval = Dispatch.call(eval,"funcall",new Variant(lispcode)).toDispatch();<br />       System.out.println(ACAD.getProperty("name"));<br />     } catch (Exception e) {<br />       // TODO: handle exception<br />     }<br />     //ACAD.invoke("quit");<br />     System.out.println("ok");<br />   }<br /> }<br /> <br /> <br />

执行结果：
一个新的ACAD进程起动，输出我们的结果
命令:
123
345 (test)
123
345 345

然后我们用远程执行代码：

2. package com.lisp.plot;
   
3. 
   
4. import java.io.IOException;
   
5. import java.io.PrintWriter;
   
6. import javax.servlet.ServletException;
   
7. import javax.servlet.http.HttpServlet;
   
8. import javax.servlet.http.HttpServletRequest;
   
9. import javax.servlet.http.HttpServletResponse;
   
10. 
    
11. import com.jacob.activeX.ActiveXComponent;
    
12. import com.jacob.com.Dispatch;
    
13. 
    
14. public class FileUploadServlet extends HttpServlet {
    
15.   @Override
    
16.   public void doGet(HttpServletRequest request, HttpServletResponse response)
    
17.       throws ServletException, IOException {
    
18.     PrintWriter out = response.getWriter();
    
19.     out.println("<html>");//输出的内容要放在body中
    
20.     out.println("<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />");
    
21.     out.println("<body>");
    
22.     String modeString = request.getParameter("mode");
    
23.    
    
24.     if (modeString.equals("draw")){
    
25.       out.println("ok");
    
26.       try {
    
27.         ActiveXComponent ACAD = new ActiveXComponent("AutoCAD.Application");
    
28.         ACAD.setProperty("visible",true);
    
29.         
    
30.         Dispatch VL = ACAD.invoke("GetInterfaceObject","vl.application.16").toDispatch();
    
31.         Dispatch VLD = Dispatch.get(VL,"ActiveDocument").toDispatch();
    
32.         Dispatch Functions = Dispatch.get(VLD,"Functions").toDispatch();
    
33.         Dispatch eval = Dispatch.call(Functions,"item","eval").toDispatch();
    
34.         Dispatch read = Dispatch.call(Functions,"item","read").toDispatch();
    
35.         Dispatch lispcode;
    
36.         lispcode = Dispatch.call(read,"funcall","(defun test()(print 123)(print 345))").toDispatch();
    
37.         Dispatch.call(eval,"funcall",lispcode);
    
38.         lispcode = Dispatch.call(read,"funcall","(test)").toDispatch();
    
39.         Dispatch.call(eval,"funcall",lispcode);
    
40.         
    
41.         Dispatch Adoc = Dispatch.get(ACAD,"ActiveDocument").toDispatch();
    
42.         Dispatch.call(Adoc, "SendCommand","(test) ");
    
43.         //Dispatch retval = Dispatch.call(eval,"funcall",new Variant(lispcode)).toDispatch();
    
44.         out.println(ACAD.getProperty("name"));
    
45.       } catch (Exception e) {
    
46.         // TODO: handle exception
    
47.       }
    
48.       //ACAD.invoke("quit");
    
49.       System.out.println("ok");
    
50.     }
    
51.     out.println("</body>");
    
52.     out.println("</html>");
    
53.     out.close();
    
54.   }
    
55.   @Override
    
56.   public void doPost(HttpServletRequest request, HttpServletResponse response)
    
57.       throws ServletException, IOException {
    
58.     //System.out.println("post\n");
    
59.    
    
60.    
    
61.   }
    
62. }

package com.lisp.plot;<br /> <br /> import java.io.IOException;<br /> import java.io.PrintWriter;<br /> import javax.servlet.ServletException;<br /> import javax.servlet.http.HttpServlet;<br /> import javax.servlet.http.HttpServletRequest;<br /> import javax.servlet.http.HttpServletResponse;<br /> <br /> import com.jacob.activeX.ActiveXComponent;<br /> import com.jacob.com.Dispatch;<br /> <br /> public class FileUploadServlet extends HttpServlet {<br />   @Override<br />   public void doGet(HttpServletRequest request, HttpServletResponse response)<br />       throws ServletException, IOException {<br />     PrintWriter out = response.getWriter();<br />     out.println("<html>");//输出的内容要放在body中<br />     out.println("<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />");<br />     out.println("<body>");<br />     String modeString = request.getParameter("mode");<br />     <br />     if (modeString.equals("draw")){<br />       out.println("ok");<br />       try {<br />         ActiveXComponent ACAD = new ActiveXComponent("AutoCAD.Application");<br />         ACAD.setProperty("visible",true);<br />         <br />         Dispatch VL = ACAD.invoke("GetInterfaceObject","vl.application.16").toDispatch();<br />         Dispatch VLD = Dispatch.get(VL,"ActiveDocument").toDispatch();<br />         Dispatch Functions = Dispatch.get(VLD,"Functions").toDispatch();<br />         Dispatch eval = Dispatch.call(Functions,"item","eval").toDispatch();<br />         Dispatch read = Dispatch.call(Functions,"item","read").toDispatch();<br />         Dispatch lispcode;<br />         lispcode = Dispatch.call(read,"funcall","(defun test()(print 123)(print 345))").toDispatch();<br />         Dispatch.call(eval,"funcall",lispcode);<br />         lispcode = Dispatch.call(read,"funcall","(test)").toDispatch();<br />         Dispatch.call(eval,"funcall",lispcode);<br />         <br />         Dispatch Adoc = Dispatch.get(ACAD,"ActiveDocument").toDispatch();<br />         Dispatch.call(Adoc, "SendCommand","(test) ");<br />         //Dispatch retval = Dispatch.call(eval,"funcall",new Variant(lispcode)).toDispatch();<br />         out.println(ACAD.getProperty("name"));<br />       } catch (Exception e) {<br />         // TODO: handle exception<br />       }<br />       //ACAD.invoke("quit");<br />       System.out.println("ok");<br />     }<br />     out.println("</body>");<br />     out.println("</html>");<br />     out.close();<br />   }<br />   @Override<br />   public void doPost(HttpServletRequest request, HttpServletResponse response)<br />       throws ServletException, IOException {<br />     //System.out.println("post\n");<br />     <br />     <br />   }<br /> }

tomcat发布后，通过远程页面访问:
http://192.168.0.66:8080/LispPlot/upload?mode=draw
远程页面返回内容：
ok AutoCAD
此时服务器ACAD进程打开执行了Lisp程序。
CAD执行结果同上。

由于每个远程会话需要开启一个CAD进程来执行，因此多用户访问会对服务器开销产生压力。
不过Lisp也可以实现远程执行，也是比较有趣的。

风树

沙发，
怎么有种要把lisp搓圆摁扁的感觉呢

xiaotao

猫教师，这样是不是偏离了轨道?

emk

啥都没看懂。。。。。。

机械工程师

同没看懂，很高大上的样子。

ynhh

虽然什么也看不懂
但猫老师的为人师表
精湛高超的开发技术
高端大气上档次的形象
总是要支持一下的

fl202

曲高和寡，路远人稀。。。

AbnerXk

玩的就是高深...

我爱lisp

猫的理想远大，你懂的
猫请看：
http://www.hqew.com/tech/doc/486166.html

柯达时刻

不明觉厉啊！不明白，但是感觉很厉害的样子