朽木大师 发表于 2012-8-23 10:15:54

如何读取 世界时间 而非本电脑时间

如题
感谢帮助

革天明 发表于 2012-8-23 10:34:37

不联网是无法实现的，可以去国家授时中心http://www.time.ac.cn/stime.asp看看

朽木大师 发表于 2012-8-23 10:45:48

我是指用LSP怎么去读取

革天明 发表于 2012-8-23 11:11:04

下面是ZML84的代码，可惜不能用了
http://zml84.blog.sohu.com/118763091.html
(defun get-time        (/ xpost var)
   (vl-load-com)
   (if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
   (progn
       ;;同步打开连接
       (vlax-invoke-method
        XPOST 'OPEN "Put" "Http://time.nist.gov:13" :vlax-false)
       ;;发送请求
       (vlax-invoke-method XPOST 'Send)
       ;;判断状态
       (while (/= (vlax-get-property xpost 'readyState) 4))
       ;;取出结果
       (while
        (not (setq var (vlax-get-property xpost 'responsetext)))
       )
       ;;释放资源
       (vlax-release-object xPost)
       ;;返回
       var
   )
   )
)

朽木大师 发表于 2012-8-23 12:29:51

革天明 发表于 2012-8-23 11:11 static/image/common/back.gif
下面是ZML84的代码，可惜不能用了
http://zml84.blog.sohu.com/118763091.html
(defun get-time        (/ xpost ...

我试了一下，可以用的啊

革天明 发表于 2012-8-23 13:39:02

朽木大师 发表于 2012-8-23 12:29 static/image/common/back.gif
我试了一下，可以用的啊

(GET-TIME)
; 错误: Automation 错误。 系统未找到指定的资源。
我的是这样，局域网，可以上互联网

朽木大师 发表于 2012-8-23 13:54:51

的确是有部分电脑不行，有部分可以行

革天明 发表于 2012-8-23 15:16:57

本帖最后由 革天明 于 2012-8-23 15:34 编辑

如何注册DLL：
regsvr32 "C:\GetNetTimeAPP.dll"首先注册附件中的DLL文件，然后加载GetNetTime.vlx，命令名为GetNetTime，返回值与CDATE相似
;;; (GETNETTIME)
;;; "20120823070555"

需要注意的是本时间为GMT时间，北京时间比这个时间快8小时

朽木大师 发表于 2012-8-23 15:54:31

上一个我也觉得挺好用，已使用上了

xiaxiang 发表于 2012-8-23 16:18:57

接口

本帖最后由 xiaxiang 于 2012-8-23 16:19 编辑

请教GetNetTimeAPP.dll是如何来的，提供什么接口以供调用？可以开源吗？
页: [1] 2
查看完整版本: 如何读取 世界时间 而非本电脑时间