|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2015/10/28 16:09:27 |
标题: |
利用system.zip解压,中文文件名为乱码如何解决? |
浏览:1605 |
|
加入我的收藏 |
楼主: |
利用system.zip解压,只有几行代码,确实方便,
with TZipFile.Create do begin Open('C:\Temp\Test.zip', zmRead); ExtractAll('C:\Temp\Test\'); Free; end;
但在使用中发现中文文件名解压出来为乱码。有没有解决方法?
----------------------------------------------
学习拉! |
作者: |
|
2015/10/28 16:11:10 |
1楼: |
有个 属性 utf8
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
|
2015/10/28 16:53:01 |
2楼: |
解压其他文件生成的zip出现这个问题。比如这个文件。
----------------------------------------------
学习拉!
|
作者: |
|
2015/10/28 17:30:05 |
3楼: |
UTF8Support := True;
----------------------------------------------
天行健,君子以自强不息。
|
作者: |
|
2015/10/28 19:11:11 |
4楼: |
UTF8Support := True; 设置了这个也不行
----------------------------------------------
delphi加油!!
|
作者: |
|
2015/10/28 20:40:32 |
5楼: |
将System.Zip.pas中的两个函数处改下就可以中文不乱码了 第一 TBytesToString 第二StringToTBytes
将E := TEncoding.GetEncoding(437);改为E := TEncoding.GetEncoding(936); 如果闲重编译麻烦,就将改过的system.zip.pas文件复制到自己的工程目录下,然后添加到工程中就o了
----------------------------------------------
一个热爱delphi的人,Golang GUI库。 --我的博客--
|
作者: |
|
2015/10/29 15:32:28 |
6楼: |
谢谢大家,问题解决!
----------------------------------------------
学习拉!
|
作者: |
tonyt (tonyt) |
▲▲▲▲△ |
-
|
普通会员 |
|
2015/10/30 8:41:30 |
7楼: |
@ying32 感谢分享
----------------------------------------------
分享研究Delphi Android开发过程中的点点滴滴,一起努力促进Delphi的Android开发繁荣
|
|