Delphi 分解链接主域名和文件名

本文整理自网络，侵删。

 
//Delphi 分解链接主域名和文件名
procedure ParseURL(URL: string; var HostName, FileName: string);
var
  i: Integer;
begin
  if Pos('http://', LowerCase(URL)) <> 0 then
    System.Delete(URL, 1, 7);

  i := Pos('/', URL);
  HostName := Copy(URL, 1, i - 1);
  FileName := Copy(URL, i, 500);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
str1,str2:string;
begin
ParseURL('http://delphitop.com/22.txt',str1,str2);
Memo1.Lines.Add(str1);
Memo1.Lines.Add(str2);
end;

 

相关阅读 >>

Delphi edit中只能输入数字并且只能输入一个小数点

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

sqlite报错database is locked的解决办法

Delphi dbgrid去除滚动条

Delphi vclzip实现分卷压缩

Delphi多线程学习：多线程数据库查询（ado）

Delphi 字符串中末位是双字节字符的处理（避免最后一位为乱码）

Delphi中实现变长函数笔记

Delphi 获取 设置文件时间

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

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

转载请注明出处：木庄网络博客 » Delphi 分解链接主域名和文件名