delphi根据网络链接截取域名

转载 2016年05月31日 09:12:52
//根据网络链接获取域名 uses strutils;
function ExtractUrlDomain(const Url: string): string;
var  //QQ282548160 感谢提供
  strA:String;
  strB:String;
  iTmp:Integer;
  iA:Integer;
begin
  strA:=Trim(Url);
  strB:=LowerCase(strA);
  iA:=Length('http://');
  Delete(strB,1,iA);
  iTmp:=pos('/',strB);
  strB:=LeftStr(strA,iA+iTmp);
  Result :=strB;
end; 

获取顶级域名delphi XE实现

  • 2011年09月14日 15:00
  • 474KB
  • 下载

DELPHI域名解析为IP地址

使用 WinSock 单元; 过程如下: function HostToIP(Name: string; var Ip: string): Boolean; var   wsdata : TWSADa...
  • jiqimiao
  • jiqimiao
  • 2007年04月21日 12:29
  • 2233

delphi中用socket解析域名获得IP地址

需引用WinSock单元 procedure TForm1.btn1Click(Sender: TObject);var WSAData:TWSAData; Socket1:TSocket...
  • tg2003
  • tg2003
  • 2009年02月20日 23:50
  • 2791

Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法 : 1: 用默认浏览器打开, uses shellapi procedure TForm1.Button2Click(Sender: TObject)...
  • zhongguoren666
  • zhongguoren666
  • 2011年10月25日 16:54
  • 13583

Delphi中处理URL编码解码

Delphi中处理URL编码解码
  • lyhoo163
  • lyhoo163
  • 2015年08月22日 16:15
  • 3054

delphi 实现URL编码解码函数

最近在写网页抓取程序时候,很多时候需要对字符进行URL编码,其实URL编码就是将每个字节用16进制的文本表示,前边在家上%,了解了这一点,那么写个函数就很简单了,于是就随手写了个两个简单的函数对字符进...
  • gzxiaorou
  • gzxiaorou
  • 2015年03月22日 15:08
  • 1304

delphi 获取网络图片

转自:http://www.delphitop.com/html/wangluo/43.html 代码文件: --------------------------------------------...
  • chelen_jak
  • chelen_jak
  • 2015年11月27日 16:21
  • 2146

DELPHI 获取域用户名

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
  • lxh00789
  • lxh00789
  • 2006年04月13日 10:44
  • 2557

delphi根据网络链接截取域名

//根据网络链接获取域名 uses strutils; function ExtractUrlDomain(const Url: string): string; var  //QQ2825481...
  • chinajobs
  • chinajobs
  • 2016年05月31日 09:12
  • 482

Delphi中打开网页连接的几种方法

Delphi打开网址链接的几种方法:  1:  用默认浏览器打开  uses shellapi procedure TForm1...
  • zisongjia
  • zisongjia
  • 2017年04月06日 17:57
  • 1519
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi根据网络链接截取域名
举报原因:
原因补充:

(最多只允许输入30个字)