RSS订阅 | 匿名投稿
您的位置:网站首页 > 压缩 > 正文

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

作者:admin 来源: 日期:2014/9/2 21:34:15 人气: 标签:

介绍

本文章介绍了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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: