Delphi获取URI的查询参数

本文整理自网络，侵删。

 
function ExtractURIQueryString(const URI: string): string;var  QueryStart: Integer;  QueryEnd: Integer;begin  Result := '';  QueryStart := SysUtils.AnsiPos('?', URI);  if QueryStart = 0 then    Exit;  Inc(QueryStart);  QueryEnd := SysUtils.AnsiPos('#', URI);  if QueryEnd < QueryStart then    QueryEnd := Length(URI)  else    Dec(QueryEnd);  Result := Copy(URI, QueryStart, QueryEnd - QueryStart + 1);end;//该代码片段来自于: http://www.sharejs.com/codes/delphi/2260
 

相关阅读 >>

Delphi中判断是否是64位操作系统

Delphi controls 属性与继承 tshape 类的小练习

Delphi 键盘记录源代码

Delphi crc32算法

Delphi stream对象

Delphi webbrowser1 querystatuswb

Delphi设置窗口透明

Delphi中使用tpathanimation

Delphi 取字符串中间

Delphi 调用单元unit代码

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

转载请注明出处：木庄网络博客 » Delphi获取URI的查询参数