Delphi 获取网址链接协议头

本文整理自网络，侵删。

 uses System.StrUtils;function  ExtractPathURLToCompleteURL ( URL : string ) : string;var    Temp : string;    Position : Integer;begin    if RightStr( Trim(URL) , 1) = '/' then        Temp := URL    else begin        Position := Length( URL );        if Pos( '/', URL ) <> 0 then        begin            while ( Copy( URL, Position, 1 ) <> '/' ) do dec( Position );            Temp := LeftStr( URL, Position  )        end else            Temp := Trim( URL );    end;    Result := Trim(Temp);end;
procedure TForm1.FormCreate(Sender: TObject);beginmemo1.Text:=ExtractPathURLToCompleteURL('http://www.delphitop.com');   //结果  http://end; 

相关阅读 >>

Delphi编程启动服务停止服务新建服务的方法

Delphi中获取guid的函数

idhttp控件的防止异常的处理

Delphi 读取剪粘板内的html格式数据

Delphi 获取鼠标当前位置的相对坐标

Delphi 根据磁盘盘符获取简单的硬盘编号

Delphi 利用unigui中的tunipagecontrol实现多页面

Delphi 通过控件句柄获取控件实例

Delphi 获取文件创建时间

Delphi sendmessage这个函数有很多奇妙的用途

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