用Delphi编制IP地址转换器
现在学校和公司的朋友们大都遇到过这种情况吧：计算机需要经常在互联网和局域网之间转换，每次转换除了换网线外，还需要修改网络配置（IP地址、网关、DNS等等），相当麻烦。如何能在一个窗口中一步实现呢？有些公司提供了软件如：IPChanger、EasyProxy等等，但是很遗憾这些软件都不是免费软件，只能试用一段时间。

　　因此，笔者经过尝试，调试出一个非常简单、易行的方法，供大家参考使用。

　　首先看一下原理：

　　Window的netsh命令通过创建和调用记录网络配置的文本文件即可修改网络配置。主要包括一下两个命令：

Netsh interface dump > 相对路径\ netcfg1.txt

　　这条命令可以将计算机现有的网络配置保存在netcfg1.txt文件中。

Netsh -f netcfg1.txt

　　这条命令即可将netcfg1.txt文件中保存的网络配置应用到计算机中。

　　基于以上的两条命令，笔者利用Delphi6.0编制小程序，将它进一步完善。运行结果如下图所示：
图链接http://www.tommstudio.com/articles/117355.jpg

　　　如上图所示，小软件主要功能分成两部分：网络设置和网络替换。因为一个计算机绝大多数是在两个网络中互换，所以本程序只实现了两个网络的互换，更多的网络间互换道理是相同的。

　　网络设置 "互联网 "和 "局域网 "两个Button的单击事件是将左侧网络设置区的IP地址、网关、DNS等信息记录到文本中。其中遇到的两个主要困难是IP地址的录入时的出错情况处理和保存文本文件。

代码如下：


procedure TForm1.BitBtn2Click(Sender: TObject); // "局域网 "按钮的单击事件
begin
　FileAppendProc1();
　RadioButton2.Checked:=true;
end;
procedure TForm1.FileAppendProc1(); //保存文件的函数
　var NetFile : TextFile;
　NetFilename : string;
　FileAppend,tempStr : string;
begin
　NetFilename := 'netcfg2.txt ';
　FileAppend :=S5+MaskEdit1.Text+S1+MaskEdit2.Text+S2+MaskEdit3.Text+S3+S4;
　//MessageDlg( 'This is commend '+FileAppend,mtInformation,[mbOK],0);
　AssignFile(Netfile, 'net.txt '); //net.txt文件要放在应用程序的同一目录中
　Reset(NetFile);
　begin
　try
　　Memo1.Lines.Text:= ' ';
　　while not Eof(NetFile) do
　　begin
　　　Readln(NetFile,tempStr);
　　　Memo1.Lines.Add(tempStr) ;
　　end;
　　finally
　begin
　　CloseFile(NetFile);
　end;
end;
AssignFile(Netfile,NetFilename);
Rewrite(NetFile);
try
　Writeln(NetFile, ' ');
　finally
　CloseFile(NetFile);
end;
　Memo1.Lines.Add(FileAppend);
　Memo1.Lines.SaveToFile(NetFilename);
end;
end;

procedure TForm1.MaskEdit1Exit(Sender: TObject); //IP地址输入出错处理
　var ip1,ip2,ip3,ip4: Integer;
begin
　if (copy(MaskEdit1.Text,1,3)= ' ') or (copy(MaskEdit1.Text,5,3)= ' ') or 　(copy(MaskEdit1.Text,9,3)= ' ') or (copy(MaskEdit1.Text,13,3)= ' ') then

　begin
　　showmessage( '请注意，不能有空域值 ') ;
　　MaskEdit1.SetFocus;
　end;
　if (copy(MaskEdit1.Text,1,3) <> ' ') and (copy(MaskEdit1.Text,5,3) <> ' ') and 　　(copy(MaskEdit1.Text,9,3) <> ' ') and (copy(MaskEdit1.Text,13,3) <> ' ') then
　begin
　　ip1:=strtoint(trim(copy(MaskEdit1.Text,1,3)));
　　ip2:=strtoint(trim(copy(MaskEdit1.Text,5,3)));
　　ip3:=strtoint(trim(copy(MaskEdit1.Text,9,3)));
　　ip4:=strtoint(trim(copy(MaskEdit1.Text,13,3)));
　　if (ip1 <0) or (ip1> 254) or (ip2 <0) or (ip2> 254) or(ip3 <0) or (ip3> 254) or (ip4 <0) or (ip4> 254) then
　　begin
　　　showmessage( '您的输入不正确,请重新输入! ');
　　　MaskEdit1.SetFocus;
　　end;
　end;
end;



　　右侧网络替换功能的编制相对简单些，通过两个radiobutton控件选择要使用哪个网络，然后点击 "确定 "按钮即可。


procedure TForm1.Button1Click(Sender: TObject); // "确定 "按钮的单击事件
begin
　　if RadioButton1.Checked then winexec( 'netsh -f netcfg1.txt ',sw_normal) ;
　　if RadioButton2.Checked then winexec( 'netsh -f netcfg2.txt ',sw_normal) ;
end;



　　这样，功能就实现了，这个小软件简单易用，在我周围的同学中已经广为流传，希望大家能够从中学习到简单易行的网

[解决办法]
哥们，这篇文章好像在哪里见过，内容一模一样，当时看的还有图片。
[解决办法]
写的不错!~给你顶起来!~
[解决办法]
3q
[解决办法]
关注