Konwersja ścieżek bezwzględnych i względnych w Delphi

Aby przekonwertować na Absolut MASZ:

ExpandFileName

Aby mieć ścieżkę względną:

ExtractRelativePath

Jeśli to coś warte, moja baza kodowa używa SysUtils.ExtractRelativePath w jednym kierunku i następujące domowe opakowanie wraca:

function ExpandFileNameRelBaseDir(const FileName, BaseDir: string): string;
var
  Buffer: array [0..MAX_PATH-1] of Char;
begin
  if PathIsRelative(PChar(FileName)) then begin
    Result := IncludeTrailingBackslash(BaseDir)+FileName;
  end else begin
    Result := FileName;
  end;
  if PathCanonicalize(@Buffer[0], PChar(Result)) then begin
    Result := Buffer;
  end;
end;

Musisz użyć jednostki ShLwApi dla PathIsRelative i PathCanonicalize.

Wywołanie PathIsRelative oznacza, że funkcja jest odporna na definiowanie ścieżek bezwzględnych.

Więc SysUtils.ExtractRelativePath może być twoje AbsToRel tylko parametry są odwrócone. A mój ExpandFileNameRelBaseDir będzie służył jako twój RelToAbs.

Właśnie zaparzyłem to razem:

uses
  ShLwApi;

function RelToAbs(const ARelPath, ABasePath: string): string;
begin
  SetLength(Result, MAX_PATH);
  if PathCombine(@Result[1], PChar(IncludeTrailingPathDelimiter(ABasePath)), PChar(ARelPath)) = nil then
    Result := ''
  else
    SetLength(Result, StrLen(@Result[1]));
end;

Podziękowania dla Andreasa i Davida za zwrócenie mojej uwagi nafunkcje obsługi ścieżek powłoki .

TPath.Combine(S1, S2);

Powinny być dostępne od Delphi XE.

Alternatywnym rozwiązaniem dla RelToAbs jest po prostu:

ExpandFileName(IncludeTrailingPathDelimiter(BasePath) + RelPath)

Sprawdź, czy Twoje rozwiązanie będzie działać ze ścieżką względną do pełnej ścieżki w przypadku zmiany bieżącego katalogu. To zadziała:

function PathRelativeToFull(APath : string) : string;
var
  xDir : string;
begin
  xDir := GetCurrentDir;
  try
    SetCurrentDir('C:\Projects\Project1\');
    Result := ExpandFileName(APath);
  finally
    SetCurrentDir(xDir);
  end{try..finally};
end;

function PathFullToRelative(APath : string; ABaseDir : string = '') : string;
begin
  if ABaseDir = '' then
    ABaseDir := 'C:\Projects\Project1\';
  Result := ExtractRelativePath(ABaseDir, APath);
end;

Nie jestem zbyt pewien, czy jest to nadal potrzebne po 2+ latach, ale tutaj jest sposób, aby uzyskać względny do absolutnego (co do absolutnego do względnego sugerowałbym philnext ' s ExtractRelativePath ODPOWIEDŹ):

Jednostka: IOUtils

Rodzic: TPath

function GetFullPath(const BasePath: string): string;

Zwróci pełną, bezwzględną ścieżkę dla danej ścieżki względnej. Jeśli dana ścieżka jest już absolutna, po prostu zwróci ją tak, jak jest.

A oto link do procedury manipulacji ścieżką

Kolejna wersja RelToAbs (kompatybilna ze wszystkimi wersjami Delphi XE).

uses
  ShLwApi;

    function RelPathToAbsPath(const ARelPath, ABasePath: string): string;
    var Buff:array[0..MAX_PATH] of Char;
    begin
      if PathCombine(Buff, PChar(IncludeTrailingPathDelimiter(ABasePath)), PChar(ARelPath)) = nil then
        Result := ''
      else Result:=Buff;
    end;