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 利用unigui中的tunipagecontrol实现多页面

Delphi 远程屏幕抓取的源代码

Delphi tfilestream和tmemorystream分别读取、创建、合并文件

Delphi md5加密算法

Delphi文件操作的一些函数

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi 设置本地系统时间

Delphi xe7 rest获取天气实例

Delphi 将label的caption内容竖向显示

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

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

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