Delphi XE5在Zip文件中添加某个Txt文件并写入文字

本文整理自网络，侵删。

 介绍

本文章介绍了Delphi XE5在Zip文件中添加某个Txt文件并写入文字，首先我们定义一个Zip文件，并通过ZipFile组件打开这个ZIP文件，然后操作TStringStream对象，将字符串写入到TStringStream里面，并写入到ZIP文件中，下面是具体代码

procedure TForm1.Button1Click(Sender: TObject);
var
  ZipFile: TZipFile;
  SS: TStringStream;
const
ZipDocument = 'd:\temp.zip';
begin
  ZipFile := TZipFile.Create; //Zipfile: TZipFile
  SS := TStringStream.Create('hello');
  try
    if FileExists(ZipDocument) then
      ZipFile.Open(ZipDocument, zmReadWrite)
    else
      ZipFile.Open(ZipDocument, zmWrite);

    ZipFile.Add(SS, 'document.txt');

    ZipFile.Close;
  finally
    SS.Free;
    ZipFile.Free;
  end;
end;
 

相关阅读 >>

Delphi初级教程之Delphi断点调试

Delphi窗口最小化和还原事件捕获

Delphi 结束360safe和360保险箱进程 for Delphi

Delphi 检查注册表键、键值是否存在

floattostr 将“浮点型”转换成“字符型”

Delphi 测试字符串读取类: tstringreader

Delphi中用idhttp获取json数据乱码问题

Delphi idhashmessagedigest md5用法

Delphi的ttreeview类使用大全

Delphi控件安装与删除

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE5在Zip文件中添加某个Txt文件并写入文字