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 进程隐藏的若干方法

关于公历与农历换算和时间处理的单元 calendar.pas

Delphi 字符串连接

Delphi的四舍五入函数

Delphi idhttp读取网页重定向

Delphi 处理图片(剪切，压缩)

Delphi类型转换函数

Delphi 的tjpegimage跟image区别

Delphi Delphi中点击dbgrid某一行获得其详细数据方法

进程防杀Delphi版(dll部分)

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

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