根据根+网络链接确定文件/文件夹路径？ [复制]

Question

可能重复：
Conversion between absolute and relative paths in Delphi

我试图弄清楚如何根据原始网络链接获取文件路径。在我的应用程序中，我有两个值：

fRootDir: String = C:\Some Directory\My Web Site\（应用程序目录）

fImgPath: String = ../Some Other Web Site/SomeImage.jpg（来自网页）

结果必须是：C:\Some Directory\Some Other Web Site\SomeImage.jpg

注意图片路径前面的../。这可能是很多连续的，例如../../../，每个../ 表示上一个文件夹。图片SomeImage.jpg 实际上是C:\Some Directory\Some Other Web Site\ 的位置。

另请注意，网络链接使用/ - 转换为\ 不是问题。问题在于注意到 .. 并实际在上面的目录中查找每个。

现在我需要结合这两个属性，根据根路径和图像路径得出在计算机上找到SomeImage.jpg 的最终路径。

Answer 1

更简单：

const
  RootFolder = 'D:\PerforceThuis\Marjan\Probeersels\StackOverflow';
  RelativeFolder = '..\..\General\Plugins';
begin
  WriteLn(ExpandFileName(IncludeTrailingBackSlash(RootFolder)+RelativeFolder));

在 D6 中测试。输出：

D:\PerforceThuis\Marjan\General\Plugins

Answer 2

这很容易使用PathCanonicalize SHLWAPI function。

做事

function SimplifyPath(const Path: string): string;
var
  buf: array[0..MAX_PATH - 1] of char;
begin
  if PathCanonicalize(buf, PChar(Path)) then
    result := buf
  else
    RaiseLastOSError;
end;