Come ottenere l'URL del file dal percorso assoluto in Delphi?

Question

Sto cercando una funzione Delphi che restituisca il percorso dell'URL del file dal percorso di Windows. C'è qualcosa per esso incorporato in Delphi?

Esempio:

Input 
C:\Users\Documents\File.txt 

Output 
file:///C:/Users/Documents/File.txt 

Grazie

Answer 1

È possibile utilizzare la funzione API UrlCreateFromPath.

Ecco l'esempio:

uses 
    ComObj, WinInet, ShLwApi; 

function FilePathToURL(const FilePath: string): string; 
var 
    BufferLen: DWORD; 
begin 
    BufferLen := INTERNET_MAX_URL_LENGTH; 
    SetLength(Result, BufferLen); 
    OleCheck(UrlCreateFromPath(PChar(FilePath), PChar(Result), @BufferLen, 0)); 
    SetLength(Result, BufferLen); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ShowMessage(FilePathToURL('C:\Users\Documents\File.txt')); 
end; 

Answer 2

sguardo a UrlCreateFromPath(). Si noti che esistono comunque avvertimenti con lo schema file:. Non è standardizzato su tutte le piattaforme. Esistono diversi formati per rappresentare lo stesso percorso in modi diversi, anche solo sotto Windows. Da IE4, l'API Win32 si standard su un singolo formato, ma esistono ancora altri formati.