delphi7中出现未定义ActiveConnections-1

Question

  procedure tform1.refresh_memo3;
          var i:integer;
             begin
               memo3.Lines.clear;
               memo3.Lines.add(membername+'('+serversocket1.socket.localhost+')(主席)');
             for i:=0 to serversocket1.ActiveConnections-1 do
             begin
               memo2.lines.add(serversocket1.socket.connections[i].remoteHost+(成员)');             end;
          end;
在delphi6又没有找到serversocket
问题一:如何在delphi6装入serversocket；
问题二:如何解决标题问题。

Answer 1

Component->Install Packages->Add->delphi安装目录Bin下选择dclsockets70.bplTTcpServer TTcpClient是用来代替TServerSocket和TClientSocket的，我之前也喜欢用TServerSocket和TClientSocket，使用的时候出现很多问题，所以改用TTcpServer和TTcpClient了