Cách lấy URL của tệp từ đường dẫn tuyệt đối trong Delphi?

Question

Tôi đang tìm một hàm Delphi trả về đường dẫn URL của tệp từ đường dẫn Windows. Có một cái gì đó cho nó được xây dựng trong Delphi?

Ví dụ:

Input 
C:\Users\Documents\File.txt 

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

Cảm ơn

Answer 1

Bạn có thể sử dụng chức năng API UrlCreateFromPath.

Đây là ví dụ:

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

Nhìn vào UrlCreateFromPath(). Lưu ý rằng, hãy cẩn thận với sơ đồ file:. Nó không phải là stanardized trên nền tảng. Có nhiều định dạng để thể hiện cùng một đường dẫn theo nhiều cách khác nhau, ngay cả trong Windows. Kể từ IE4, API Win32 tiêu chuẩn hóa trên một định dạng duy nhất, nhưng các định dạng khác vẫn tồn tại.