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 创建应用程序的快捷方式

Delphi中调用必应搜索(bing)的api函数

Delphi 提升Delphi 启动加载速度

Delphi textfile utf8编码读写

Delphi 写dll注入器

Delphi lockbox 做加密解密

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi comobj调用wmplayer播放音乐

Delphi 获取cpu占用时间

winapi 字符及字符串函数(7): ischarlower - 是否是个小写字母

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

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