Jak uzyskać adres URL pliku z bezwzględnej ścieżki w Delphi?

Question

Szukam funkcji Delphi, która zwraca ścieżkę adresu URL pliku ze ścieżki systemu Windows. Czy jest coś, co można wbudować w Delphi?

Przykład:

Input 
C:\Users\Documents\File.txt 

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

Dzięki

Answer 1

Można użyć funkcji API UrlCreateFromPath.

Oto przykład:

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

Look w UrlCreateFromPath(). Pamiętaj jednak, że istnieją zastrzeżenia ze schematem file:. Nie jest stanardyzowany na różnych platformach. Istnieje wiele formatów reprezentujących tę samą ścieżkę na różne sposoby, nawet w systemie Windows. Od IE4, Win32 API standaryzuje się na jednym formacie, ale inne formaty nadal istnieją.