移植Delphi7的TClientSocket,TServerSocket

在delphi7以后的版本中已经把TClientSocket,TServerSocket 这2个控件给去掉了，给新版delphi调试老版本代码带来一些麻烦。比较简单的解决办法就是在新版delphi中也装上这些控件，步骤如下（我这里是移植到delphi2006）

1，新建一个package（比如socket7）

2，找delphi7安装盘，找到source目录下（我这边是/Borland Delphi 7 Studio Enterprise/Borland Delphi 7 Studio Enterprise/program files/Borland/Delphi7/Source，是安装文件，不需要真的安装delphi7）搜索到ScktCnst.pas、ScktComp.pas、Sockets.pas拷贝到package下

3，ScktComp.pas、Sockets.pas分别重命名（因为2006下其实已经有这2个同文件名的文件，但是内容不一样）

我这里改成了ScktComp7.pas、Sockets7.pas；

4，package下新建一个pas，做注册控件用，内容如下

unit SockRegister;

interface

uses
  Classes,ScktComp7,Sockets7;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Socket7',[TClientSocket,TServerSocket]);
end;

end.

5，这样package(socket7)下就包含ScktCnst.pas、ScktComp7.pas、Sockets7.pas、SockRegister.pas

这4个文件，然后build，install就搞定了，最后在delphi配置中把package路径加进librarypath就完成了。