delphi - una - url relativos y absolutos

Conversión entre rutas absolutas y relativas en Delphi

Question

¿Hay funciones estándar para realizar la conversión de ruta relativa absoluta <-> en Delphi?

Por ejemplo:

• La ruta ''Base'' es ''C:/Projects/Project1/'
• La ruta relativa es ''../Shared/somefile.pas''
• La ruta absoluta es ''C:/Projects/Shared/somefile.pas''

Estoy buscando algo como esto:

function AbsToRel(const AbsPath, BasePath: string): string;
// ''../Shared/somefile.pas'' =
// AbsToRel(''C:/Projects/Shared/somefile.pas'', ''C:/Projects/Project1/')
function RelToAbs(const RelPath, BasePath: string): string;
// ''C:/Projects/Shared/somefile.pas'' =
// RelToAbs(''../Shared/somefile.pas'', ''C:/Projects/Project1/')

Answer 1

Acabo de elaborar esto juntos:

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;

Gracias a Andreas y David por llamar mi atención sobre las funciones de manejo de la ruta de Shell .

Answer 2

Compruebe si su solución funcionará con la ruta relativa a la ruta completa en caso de que cambie el directorio actual. Esto funcionará:

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;

Answer 3

No estoy muy seguro de si esto todavía es necesario después de más de 2 años, pero aquí hay una manera de hacer que el Relativo sea Absoluto (En cuanto a Absoluto a Relativo sugeriría la respuesta ExtractRelativePath ):

Unidad: IOUtils

Padre: TPath

function GetFullPath(const BasePath: string): string;

Devolverá la ruta completa y absoluta para una ruta relativa dada. Si la ruta dada ya es absoluta, simplemente la devolverá tal como está.

Aquí está el enlace en Embarcadero: Get Full Path

Y aquí hay un enlace para Rutinas de Manipulación de Caminos

Answer 4

Otra versión de RelToAbs (compatible con todas las versiones de 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;

Answer 5

Para convertir a lo absoluto tienes:

ExpandFileName

Para tener la ruta relativa que tiene:

ExtractRelativePath

Answer 6

Por lo que vale, mi base de código usa SysUtils.ExtractRelativePath en una dirección y regresa la siguiente envoltura local:

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;

Tendrá que usar la unidad PathIsRelative para PathIsRelative y PathCanonicalize .

La llamada a PathIsRelative significa que la rutina es robusta para las rutas absolutas que se especifican.

Entonces, SysUtils.ExtractRelativePath puede ser su AbsToRel solo los parámetros están invertidos. Y mi ExpandFileNameRelBaseDir servirá como tus RelToAbs .

Answer 7

Una solución alternativa para RelToAbs es simplemente:

ExpandFileName(IncludeTrailingPathDelimiter(BasePath) + RelPath)

Answer 8

Utilizaría PathRelativePathTo como la primera función y PathCanonicalize como el segundo. En el último caso, como argumento, pasa la suma de cadena de la ruta base y la ruta relativa.

function PathRelativePathTo(pszPath: PChar; pszFrom: PChar; dwAttrFrom: DWORD;
pszTo: PChar; dwAtrTo: DWORD): LongBool; stdcall; external ''shlwapi.dll'' name ''PathRelativePathToW'';
function AbsToRel(const AbsPath, BasePath: string): string;
var
Path: array[0..MAX_PATH-1] of char;
begin
PathRelativePathTo(@Path[0], PChar(BasePath), FILE_ATTRIBUTE_DIRECTORY, PChar(AbsPath), 0);
result := Path;
end;
function PathCanonicalize(lpszDst: PChar; lpszSrc: PChar): LongBool; stdcall;
external ''shlwapi.dll'' name ''PathCanonicalizeW'';
function RelToAbs(const RelPath, BasePath: string): string;
var
Dst: array[0..MAX_PATH-1] of char;
begin
PathCanonicalize(@Dst[0], PChar(IncludeTrailingBackslash(BasePath) + RelPath));
result := Dst;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
ShowMessage(AbsToRel(''C:/Users/Andreas Rejbrand/Desktop/file.txt'', ''C:/Users/Andreas Rejbrand/Pictures''));
ShowMessage(RelToAbs(''../Videos/movie.wma'', ''C:/Users/Andreas Rejbrand/Desktop''));
end;

Por supuesto, si utiliza una versión de Delphi que no es Unicode (es decir, <= Delphi 2007), debe usar las funciones Ansi ( *A ) en lugar de las funciones Unicode ( *W ).

Answer 9

TPath.Combine(S1, S2);

Debería estar disponible desde Delphi XE.