在Delphi中URLEncode文件名的最佳方法是什么?
相关资料:
http://www.voidcn.com/article/p-uwvfunpb-bwd.html
https://blog.csdn.net/xieyunc/article/details/81568144
我的桌面应用程序必须从Internet下载文件.该文件的路径是已知的,文件名本身是半变量,即其他人将在那里放置新文件,我的应用程序将不得不下载它们.
现在我想确保URL是安全的,并且它将被正确解释.此外,如果文件名中有“#”(您永远不知道),我确实希望对其进行编码. Javascript有两个不同的功能:encodeURI和encodeURIComponent.后者还编码’#’字符,以及其他内容.
当然,我可以自己动手,但我认为必须有功能准备就绪,我不妨做出一些旧的错误.
我将使用一个使用WinInet系列API函数(InternetOpen及其同类)的对象下载该文件.
所以我开始在MSDN上进行搜索,当然,还有UrlCanonicalize.但是还有UrlEscape,CreateUri(但这在Delphi 2010单元中没有出现),最后是InternetCreateUrl,这要求我拆分整个URL.我宁愿将URL的第一部分与URLEncoded文件名连接起来.
此外,它们都有大量不同的标志,不同的默认值在Windows版本的过程中发生了变化,我再也无法弄清楚它们之间的差异.有人知道哪一个最适合这个目的吗?
尝试TIdURI.PathEncode函数(位于idURI单元中),该函数是delphi附带的Indy库的一部分.
1 {$APPTYPE CONSOLE} 2 3 {$R *.res} 4 5 uses 6 idURI, 7 SysUtils; 8 9 Var 10 FileName : string; 11 Encoded : string; 12 begin 13 try 14 FileName:='File with a Very weird f***name*#%*#%<>[]'; 15 Encoded:=TIdURI.PathEncode(FileName); 16 Writeln(Encoded); 17 except 18 on E: Exception do 19 Writeln(E.ClassName, ': ', E.Message); 20 end; 21 Readln; 22 end.
这将返回
File%20with%20a%20Very%20weird%20f%2A%2A%2Aname%2A%23%25%2A%23%25%3C%3E%5B%5D
您还可以查看TIdURI.URLDecode和TIdURI.URLEncode函数.
方法二:
1 uses 2 Httpapp; 3 4 Edit1.Text := HttpEncode(UTF8EnCode('中'));//%E4%B8%AD
欢迎关注我,一起进步!扫描下方二维码即可加我