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中tstringlist分割字符串的用法

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

Delphi format 另类用法

Delphi 怎么截取文件路径字符串,只保留文件名

Delphi获取当前计算机所有盘符

Delphi 从一个html返回所有的图片链接

Delphi listview导出到excel

Delphi 如何确定access数据库中存在某一个已知名的表

选择 Delphi 的 9 条理由

Delphi superobject 序列数据集

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...