为什么对象release掉后还需nil

当系统里某一软件里有一个对象release了。系统不会及时真正摸杀掉该对象,只是把该地址放回可使用的内存列表里。只有真得有内存分配请求才考虑是否使用这个地址,这样处理效率高。

转载于:https://www.cnblogs.com/harveyding/archive/2010/10/11/1847748.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
(VL-LOAD-COM ) (DEFUN GET-MACIP222( / WMI SVR STR MAC S I ) (VL-LOAD-COM ) (setq WMI (vlax-create-object "WbemScripting.SWbemLocator" )) (setq SVR (vlax-invoke WMI 'CONNECTSERVER )) (setq STR "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") (setq MAC (vlax-invoke SVR 'EXECQUERY STR )) (VLAX-FOR I MAC (setq S (CONS (vlax-get I 'MACADDRESS ) S )) ) (vlax-release-object MAC ) (vlax-release-object SVR ) (vlax-release-object WMI ) (if (NULL (setq RETURN (CAR S )) ) (PROGN (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq RETURN (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 ) )) )) )) RETURN ) (DEFUN GET-MACIP( / I MAC RETURN S STR SVR WMI ) (VL-LOAD-COM ) (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq WMI (vlax-create-object "WbemScripting.SWbemLocator" )) (setq SVR (vlax-invoke WMI 'CONNECTSERVER )) (setq STR "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") (setq MAC (vlax-invoke SVR 'EXECQUERY STR )) (VLAX-FOR I MAC (setq S (CONS (vlax-get I 'MACADDRESS ) S )) ) (vlax-release-object MAC ) (vlax-release-object SVR ) (vlax-release-object WMI ) (if (NULL (setq RETURN (CAR S )) ) (PROGN (setq RETURN (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 )) )) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" RETURN ) )) RETURN ) (DEFUN TRANS_MAC( 16STR / MSG 10NUM I STR N16STR ADRESS YSU ) (DEFUN *ERROR*( MSG ) (PRINC MSG ) ) (setq 10NUM 0) (setq I 1) (setq STR "") (setq N16STR "") (setq ADRESS "") (REPEAT (STRLEN 16STR ) (if (/= ":" (setq YSU (SUBSTR 16STR I 1 )) ) (PROGN (setq N16STR (STRCAT N16STR YSU )) )) (setq I (1+ I )) ) (setq I 1) (REPEAT (/ (STRLEN N16STR ) 2 ) (setq STR2 (SUBSTR N16STR I 2 )) (setq ADRESS (STRCAT ADRESS (RTOS (16T10 STR2 ) 2 0 ) )) (setq I (+ 2 I )) ) (setq ADRESS ADRESS) ) (DEFUN MAC_CALCU( STR4 STRNOW BW / TIMES I JISUAN 16STR5 JISUAN2 ) (if (< (STRLEN STR4 ) 17 ) (PROGN (REPEAT (- 17 (STRLEN STR4 ) ) (setq STR4 (STRCAT BW STR4 )) ) )) (setq TIMES (+ (/ (STRLEN STR4 ) 3 ) 1 )) (setq I 1) (setq 16STR5 "") (REPEAT TIMES (if (AND (/= "" (setq JISUAN (SUBSTR STR4 I (+ 2 I ) )) ) (/= "" (setq JISUAN2 (SUBSTR STRNOW I (+ 2 I ) )) ) ) (PROGN (setq JISUAN (+ (ATOI JISUAN ) (ATOI JISUAN2 ) )) (setq 16STR5 (STRCAT 16STR5 (10T16 JISUAN ) )) )) (setq I (+ 3 I )) ) (setq 16STR5 16STR5) ) (DEFUN ZRJC( STRNOW BW / SQM ZM ) (setq SQM (TRANS_MAC (GET-MACIP ) )) (setq ZM (MAC_CALCU SQM STRNOW BW )) (vlax-ldata-put "CZL" "Key" ZM ) (vlax-ldata-put "CZL" "SQM" SQM ) (setq ZM nil) (PRINC ) (if (= (GETVAR "cmdecho" ) 0 ) (PROGN (SETVAR "cmdecho" 1 ) )) (PRINC ) )
07-15

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值