Delphiでファイル名をURLエンコードするにはどうすればよいですか？

Question

私のデスクトップアプリケーションは、インターネットからファイルをダウンロードする必要があります。ファイルへのパスは既知です。ファイル名自体は準変数です。つまり、他の誰かが新しいファイルをそこに置くことになり、私のアプリケーションはそれらをダウンロードする必要があります。

ここで、URLが安全で、正しく解釈されるようにしたいと思います。また、ファイル名に "＃"がある場合（わからない）、私はそれをエンコードしたいと思います。 Javascriptには、encodeURIとencodeURIComponentの2つの異なる機能があります。後者は、とりわけ '＃'文字をエンコードします。 もちろん、私は自分自身をロールバックすることができますが、私はそれのための準備ができていることに気づきました。そして、私は古い間違いを避けることもできます。

WinInetシリーズのAPI関数（InternetOpenとそのilk）を使用するオブジェクトでファイルをダウンロードします。

だから私はMSDNで騒ぎ始めました。確かに、UrlCanonicalizeがあります。しかし、UrlEscape,CreateUri（それはDelphi 2010のユニットにはありません）、そして最後にInternetCreateUrlというURLがあり、URL全体を分割する必要があります。 URLの最初の部分をURLエンコードされたファイル名に連結したいと思います。

また、それらはすべて、異なるバージョンのフラグを持っていますが、Windowsのバージョンによって変更された異なるデフォルトがあります。これ以上の違いはわかりません。誰がこの目的に最も適しているかを知っていますか？

Answer 1

delphiに含まれるIndyライブラリの一部であるTIdURI.PathEncode関数（idURIユニットにあります）を試してください。

{$APPTYPE CONSOLE} 

{$R *.res} 

uses 
    idURI, 
    SysUtils; 

Var 
    FileName : string; 
    Encoded : string; 
begin 
    try 
    FileName:='File with a Very weird f***name*#%*#%<>[]'; 
    Encoded:=TIdURI.PathEncode(FileName); 
    Writeln(Encoded); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

これはまた、あなたがTIdURI.URLDecodeとTIdURI.URLEncode機能で見てみることができます

File%20with%20a%20Very%20weird%20f%2A%2A%2Aname%2A%23%25%2A%23%25%3C%3E%5B%5D 

を返します。 xxmプロジェクトのために

Answer 2

、私は自分のURLENCODE機能を書いた：

http://xxm.svn.sourceforge.net/viewvc/xxm/trunk/Delphi/bin/public/xxm.pas?view=markup#l287