OpenDCL、打印设定、文件上传、oracle数据库、sql数据库、程序自动更新、MD5加密等

479274135

猫老师太高深了 N年过来再看

zlzxtfl

点赞，赞老猫的精神

xinxirong

不安全 密码放到客户机上

war32

留个脚印，以后慢慢研究。
重点关注在自动更新，目前的原理是比较两个文件，但前提是文件名没有经过更改，能否判断更改以后的vlx文件名，从而与新的文件进行比较？

war32

2. ;更新模块
   
3. ;当版本文件存在则读取服务器版本号
   
4. (setq dver "3.0.0.0") ;当前版本号
   
5. (if (setq file (open "\\\\192.168.1.11\\1\\ver.txt" "r"))
   
6.   (progn (setq xver (read-line file))(close file)
   
7.    
   
8.     ;将版本号去小数点后连在一起作为数字处理，比较其大小得到是否有新版本
   
9.     (while (vl-string-search "." dver)
   
10.       (setq dver (vl-string-subst "" "." dver))
    
11.     )
    
12.     (while (vl-string-search "." xver)
    
13.       (setq xver (vl-string-subst "" "." xver))
    
14.     )
    
15.     (if (< dver xver)
    
16.       (progn
    
17.         (setq fso (vlax-create-object "Scripting.FileSystemObject"))
    
18.         (setq newfile (vlax-invoke-method fso 'getfile "\\\\192.168.1.11\\1\\1.vlx"))
    
19.         (vlax-invoke-method newfile 'copy "D:\\cad.vlx" :vlax-true)
    
20.         (princ (strcat "\n\t更新完成，新版本号为：V" xver "。请重启CAD以完成更新！"))  
    
21.         (setq file nil xver nil dver nil fso nil newfile nil)
    
22.       )
    
23.       (princ (strcat "\n\t 插件V" dver "已加载."))
    
24.       
    
25.     )
    
26.   )
    
27.   (princ (strcat "\n\t 插件V" dver "已加载."))
    
28. )
    
29. 
    
30. ;更新模块结束

;更新模块<br /> ;当版本文件存在则读取服务器版本号<br /> (setq dver "3.0.0.0") ;当前版本号<br /> (if (setq file (open "\\\\192.168.1.11\\1\\ver.txt" "r"))<br />   (progn (setq xver (read-line file))(close file)<br />     <br />     ;将版本号去小数点后连在一起作为数字处理，比较其大小得到是否有新版本<br />     (while (vl-string-search "." dver)<br />       (setq dver (vl-string-subst "" "." dver))<br />     )<br />     (while (vl-string-search "." xver)<br />       (setq xver (vl-string-subst "" "." xver))<br />     )<br />     (if (< dver xver)<br />       (progn <br />         (setq fso (vlax-create-object "Scripting.FileSystemObject"))<br />         (setq newfile (vlax-invoke-method fso 'getfile "\\\\192.168.1.11\\1\\1.vlx"))<br />         (vlax-invoke-method newfile 'copy "D:\\cad.vlx" :vlax-true)<br />         (princ (strcat "\n\t更新完成，新版本号为：V" xver "。请重启CAD以完成更新！"))  <br />         (setq file nil xver nil dver nil fso nil newfile nil)<br />       )<br />       (princ (strcat "\n\t 插件V" dver "已加载."))<br />       <br />     )<br />   )<br />   (princ (strcat "\n\t 插件V" dver "已加载."))<br /> )<br /> <br /> ;更新模块结束

猫老师，在采用自动更新模块的时候出现一个问题，当服务器关机而客户机网络连接存在时，会耗费很长的时间来判断服务器不存在，从而导致程序在加载的时候非常耗时，有没有什么办法能解决呢。以下是我判断版本的代码。

LIULISHENG

神作哦

cn0yahoo

看不懂

cn0yahoo

好深奥

chengduld028

好好学习

chengduld028

看不懂，在学习