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》频道 >>



打赏

取消

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

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

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

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

评论

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