使用cnvcl中的TCnIp提取IP段

var
    IP:TCnIp;
    i:Integer;
    CurIP:string;
begin
    IP := TCnIp.Create(nil);
    IP.IPAddress := '192.168.0.1';
    CurIP := IP.IPAddress;
    while CurIP <> '192.168.255.255' do
    begin
        mmo1.Lines.Add( CurIP );
        CurIP := IP.NextIP( CurIP );

    end;

    IP.Free;

end;

 

 

经测试，cnvcl的CnIP类占用资源严重。

测试的方法为创建一个线程池，每个线程执行的操作就是实例化对象和释放对象，在执行过程中CPU占用在50%左右