知识大全用Delphi编制IP地址转换器

Posted 2022-07-21 知

篇首语：不要让世界改变你的微笑，用你的微笑改变世界。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi编制IP地址转换器相关的知识，希望对你有一定的参考价值。

用Delphi编制IP地址转换器 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

现在学校和公司的朋友们大都遇到过这种情况吧计算机需要经常在互联网和局域网之间转换每次转换除了换网线外还需要修改网络配置（IP地址网关 DNS等等）相当麻烦如何能在一个窗口中一步实现呢？有些公司提供了软件如 IPChanger EasyProxy等等但是很遗憾这些软件都不是免费软件只能试用一段时间　　因此笔者经过尝试调试出一个非常简单易行的方法供大家参考使用　　首先看一下原理　　Window的netsh命令通过创建和调用记录网络配置的文本文件即可修改网络配置主要包括一下两个命令 Netsh interface dump > 相对路径\\ netcfg txt　　这条命令可以将计算机现有的网络配置保存在netcfg txt文件中 Netsh f netcfg txt　　这条命令即可将netcfg txt文件中保存的网络配置应用到计算机中　　基于以上的两条命令笔者利用Delphi 编制小程序将它进一步完善运行结果如下图所示　　如上图所示小软件主要功能分成两部分网络设置和网络替换因为一个计算机绝大多数是在两个网络中互换所以本程序只实现了两个网络的互换更多的网络间互换道理是相同的　　网络设置互联网和局域网两个Button的单击事件是将左侧网络设置区的IP地址网关 DNS等信息记录到文本中其中遇到的两个主要困难是IP地址的录入时的出错情况处理和保存文本文件代码如下

procedure TForm BitBtn Click(Sender: TObject); // 局域网 按钮的单击事件begin  　FileAppendProc ();  　RadioButton Checked:=true;end; procedure TForm FileAppendProc (); //保存文件的函数　var NetFile : TextFile;　NetFilename : string;　FileAppend tempStr : string;begin  　NetFilename := netcfg txt ;  　FileAppend :=S +MaskEdit Text+S +MaskEdit Text+S +MaskEdit Text+S +S ;  　//MessageDlg( This is mend +FileAppend mtInformation [mbOK] );　AssignFile(Netfile net txt ); //net txt文件要放在应用程序的同一目录中　Reset(NetFile);  　begin    　try      　　Memo Lines Text:= ;      　　whilenot Eof(NetFile) do      　　begin        　　　Readln(NetFile tempStr);        　　　Memo Lines Add(tempStr) ;        　　end;      　　finally        　begin          　　CloseFile(NetFile);          　end;      end;      AssignFile(Netfile NetFilename);      Rewrite(NetFile);      try        　Writeln(NetFile );        　finally          　CloseFile(NetFile);        end;        　Memo Lines Add(FileAppend);        　Memo Lines SaveToFile(NetFilename);      end;    end;        procedure TForm MaskEdit Exit(Sender: TObject); //IP地址输入出错处理　var ip ip ip ip : Integer;    begin      　if (copy(MaskEdit Text )= ) or (copy(MaskEdit Text )= ) or 　(copy(MaskEdit Text )= ) or (copy(MaskEdit Text )= ) then      　begin        　　showmessage( 请注意 不能有空域值 ) ;        　　MaskEdit SetFocus;        　end;      　if (copy(MaskEdit Text )<> ) and (copy(MaskEdit Text )<> ) and 　　(copy(MaskEdit Text )<> ) and (copy(MaskEdit Text )<> ) then      　begin        　　ip :=strtoint(trim(copy(MaskEdit Text )));        　　ip :=strtoint(trim(copy(MaskEdit Text )));        　　ip :=strtoint(trim(copy(MaskEdit Text )));        　　ip :=strtoint(trim(copy(MaskEdit Text )));        　　if (ip < ) or (ip > ) or (ip < ) or (ip > ) or(ip < ) or (ip > ) or (ip < ) or (ip > ) then        　　begin          　　　showmessage( 您的输入不正确 请重新输入! );          　　　MaskEdit SetFocus;          　　end;        　end;    end;

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

procedure TForm Button Click(Sender: TObject); // 确定 按钮的单击事件begin  　　if RadioButton Checked then winexec( netsh f netcfg txt sw_normal) ;  　　if RadioButton Checked then winexec( netsh f netcfg txt sw_normal) ;end;

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

知识大全 用Delphi编制IP地址转换器

知识大全用Delphi编制IP地址转换器