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;

推荐分享