[ARX程序]：下面这段程序是否存在资源泄漏问题？

rainmann807

下面这段程序是否存在资源泄漏的问题，只能运行125次，之后就不行了，不知道为什么？
BOOL BpDsnSbProc1(ads_point pt,double &segema)
{
        resbuf *prbEmk;
        double dR;
        ads_name ss,ent;
        int nAdsRtn;
        long lSSLength,i;
        int LB;
        ads_point ptPk={0,0,0};
        double d;
        BOOL bRtn;
        int k,Nanfo;
        double lexp,AngX,Qi;
        double segema1=0;
       

        dR=(double)20*g_nPkDia/1000;  
        prbEmk=ads_buildlist(-4,"<AND",8,g_stLayers[Pk].szName,RTDXF0,"INSERT",2,"PK",-4,"AND>",0);
        ads_ssget_cp(pt,dR,prbEmk,ss);  //得到以pt为圆心，dR为半径，满足条件prbEmk，返回ss
        nAdsRtn=ads_sslength(ss,&lSSLength);
        if(nAdsRtn!=RTNORM || lSSLength<=0)
        {
                ads_relrb(prbEmk);
                return FALSE;
        }
        for(i=0;i<lSSLength;i++)
        {
                nAdsRtn=ads_ssname(ss,i,ent);
                if(nAdsRtn!=RTNORM)
                        return FALSE;
                LB=BpDsnAmntGetPkLB(ent,ptPk);  //获得ent的属性
                d=ads_distance(pt,ptPk);
                if(LB==2 && d>(double)g_nPkDia/2000)
                {
                        bRtn=BpSbGetPkAtt(ent,ptPk,Nanfo,lexp,Qi,k,AngX); //获得属性
                        if(!bRtn)
                                return FALSE;
                        segema1+=BpSbGetSegema(pt,ptPk,Nanfo,lexp,k,AngX);
                }

        }
        segema=segema1;
        ads_relrb(prbEmk);
        return TRUE;
}


QQ：87145681

HillMan

autoCAD只能管理128个选择集，所以在使用完选择集后要及时地用acedSSFree() 函数释放选择集

rave

最初由 rainmann807 发布
[B]下面这段程序是否存在资源泄漏的问题，只能运行125次，之后就不行了，不知道为什么？
[/B]

存在明显的资源泄露

在每一个return FALSE之前,  都应当ads_relrb(prbEmk);

如果return太多的话，是很容易以漏掉的，而且，在每个return之前释放资源并不是高明的方法

引入 SEH 可避免资源泄漏， 使代码简洁，从而提高可读性

这样改

1. 
   
2. BOOL BpDsnSbProc1(ads_point pt,double &segema)
   
3. {
   
4.     resbuf *prbEmk;
   
5.     double dR;
   
6.     ads_name ss,ent;
   
7.     int nAdsRtn;
   
8.     long lSSLength,i;
   
9.     int LB;
   
10.     ads_point ptPk={0,0,0};
    
11.     double d;
    
12.     BOOL bRtn;
    
13.     int k,Nanfo;
    
14.     double lexp,AngX,Qi;
    
15.     double segema1=0;
    
16. 
    
17.     dR=(double)20*g_nPkDia/1000;
    
18. 
    
19.     [color=red]__try{[/color]
    
20.         prbEmk=ads_buildlist(-4,"",0);
    
21.         ads_ssget_cp(pt,dR,prbEmk,ss); //得到以pt为圆心，dR为半径，满足条件prbEmk，返回ss
    
22.         nAdsRtn=ads_sslength(ss,&lSSLength);
    
23.         if(nAdsRtn!=RTNORM || lSSLength<=0)
    
24.         {
    
25.             [color=blue]//ads_relrb(prbEmk);[/color]
    
26.             return FALSE;
    
27.         }
    
28.         for(i=0;i {
    
29.             nAdsRtn=ads_ssname(ss,i,ent);
    
30.             if(nAdsRtn!=RTNORM)
    
31.                 return FALSE;
    
32.             LB=BpDsnAmntGetPkLB(ent,ptPk); //获得ent的属性
    
33.             d=ads_distance(pt,ptPk);
    
34.             if(LB==2 && d>(double)g_nPkDia/2000)
    
35.             {
    
36.                 bRtn=BpSbGetPkAtt(ent,ptPk,Nanfo,lexp,Qi,k,AngX); //获得属性
    
37.             if(!bRtn)
    
38.                    return FALSE;
    
39.                 segema1+=BpSbGetSegema(pt,ptPk,Nanfo,lexp,k,AngX);
    
40.             }
    
41. 
    
42.         }
    
43.         segema=segema1;
    
44.         [color=blue]//ads_relrb(prbEmk);[/color]
    
45.         return TRUE;
    
46.     [color=red]}
    
47.     __finally{
    
48.         ads_relrb(prbEmk);
    
49.     }[/color]
    
50. }
    

复制代码

rainmann807

谢谢二位的帮助，问题解决了！！