Delphi IdWhois1 简单的用法

本文整理自网络，侵删。

 
var
  Line, FindResult: string;
  iPos: integer;
begin
  FindResult := IdWhois1.Whois(Edit1.Text); //Edit1.Text = 域名 如 www.delphitop.com
  while Length(FindResult) > 0 do
  begin
    iPos := Pos(#10, FindResult);
    Line := Copy(FindResult, 1, iPos - 1);
    Memo1.Lines.Add(Line);
    Delete(FindResult, 1, Length(Line) + 1);
  end;

 

相关阅读 >>

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi编程禁止用户关闭操作系统

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi float转换int

Delphi tlog 日志

Delphi 字符串加单引号

Delphi recodedatetime、recodedate、recodetime、recodeyear ... 修改时间

Delphi 创建应用程序的快捷方式

Delphi 对指定dbgrid进行排序

Delphi 泛型搜索字符串数组

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IdWhois1 简单的用法