请教各位专家，压缩包使用VCLzip解压后文件名变成乱码。

z15874666325 2018-02-28 05:15:27

如图，请教各位专家，压缩包使用VCLzip解压后文件名变成乱码。

var
M:TMemoryStream;

procedure TFormDownload.Download(Url:String);
begin
M:=TMemoryStream.Create;
try
try
Self.IdHTTP1.Get(Url,M);
except
end;

ForceDirectories(ExtractFileDir(Application.ExeName)+'\DownTemp');
if DirectoryExists(ExtractFileDir(Application.ExeName)+'\DownTemp') then
begin
M.SaveToFile(ExtractFileDir(Application.ExeName)+'\DownTemp\Rain.zip');
// Self.VCLUnZip1.ZipName:=ExtractFileDir(Application.ExeName)+'\DownTemp\Rain.zip';

M.Position:=0;
Self.VCLUnZip1.ArchiveStream:=M;
Self.VCLUnZip1.OverwriteMode:=Always;
Self.VCLUnZip1.ReadZip;
Self.VCLUnZip1.FilesList.Add('*.*');
Self.VCLUnZip1.DestDir:=ExtractFileDir(Application.ExeName)+'\DownTemp\';
Self.VCLUnZip1.DoAll := true;
Self.VCLUnZip1.RecreateDirs := true;
Self.VCLUnZip1.RetainAttributes := True;
Self.VCLUnZip1.UnZip;
Self.Timer.Enabled:=false;
end;
finally
FreeAndNil(M);
end;
Self.IdHTTP1.Disconnect;
end;

...全文

1326 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

frtrnr 2018-03-06

打赏
举报

const
 s1 ='2017年国考行测真题地市级.zip';
s2 ='2015年国家公务员考试申论真题';
s3 = '2016年湖南公务员考试申论真题.doc';
procedure TForm1.btn1Click(Sender: TObject);
var
  i:Integer;
begin
  pm1.Paragraphs.Add(AnsiToUTF8(s1));
  pm1.Paragraphs.Add(AnsiToUTF8(s2));
  pm1.Paragraphs.Add(AnsiToUTF8(s3));
 for i:=0 to 2 do
  begin
    pm1.Paragraphs.Add(UTF8ToAnsi(pm1.Paragraphs[i]));

  end;
end;

2017骞村浗鑰冭娴嬬湡棰樺湴甯傜骇.zip 2015骞村浗瀹跺叕鍔″憳鑰冭瘯鐢宠鐪熼 2016骞存箹鍗楀叕鍔″憳鑰冭瘯鐢宠鐪熼.doc 2017年国考行测真题地市级.zip 2015年国家公务员考试申论真题 2016年湖南公务员考试申论真题.doc