如何将相对URL 转换为绝对URL

如何将相对URL 转换为绝对URL

2006-09-19 16:18

function   GetAbsPath(CurPath:string;DirPath:string):string;     var   Buffer:array[0..MAX_PATH   -   1]   of   Char;             cBuf:Cardinal;     begin         cBuf:=sizeof(Buffer);         InternetCombineUrl(PChar(CurPath),PChar(DirPath),             Buffer,cBuf,ICU_BROWSER_MODE);         Result:=StrPas(Buffer);     end;   （HTML相关问题）         当前URL   ，   相对URL   ，   如何将相对URL   转换为绝对URL             例如：     已知页面当前的URL为     http://community.csdn.net/Expert/topic/xxxxx.asp     页面中的某个链接的href值为   ../link.asp     显然该链接的绝对地址应该为：http://community.csdn.net/Expert/link.asp         请问             哪位有这样的函数   ，               补充：           相对   URL   有很多地方需要注意，           每个   ../   表示上一级目录           ./   表示当前目录   ，可加可不加           /     表示根目录    ----------------------------------------------------- function   GetAbsPath(CurPath:string;DirPath:string):string;     var   Buffer:array[0..MAX_PATH   -   1]   of   Char;             cBuf:Cardinal;     begin         cBuf:=sizeof(Buffer);         InternetCombineUrl(PChar(CurPath),PChar(DirPath),             Buffer,cBuf,ICU_BROWSER_MODE);         Result:=StrPas(Buffer);     end;         要引用单元:WinInet     调用举例：         ShowMessage(GetAbsPath('http://community.csdn.net/Expert/topic/xxxxx.asp',                                   '../link.asp'));     转自： http://hi.baidu.com/hupoo/blog/item/822d5eee532b70fbb3fb9565.html