多个文件文件的拼接
来源:互联网 发布:汉唐香莎温泉会所 js 编辑:程序博客网 时间:2024/04/19 21:36
procedure CompressFiles(Files: TStrings; const Filename: string; ATmpDir: string);
var
infile, outfile, tmpFile: TFileStream;
compr: TCompressionStream;
i,l: Integer;
s, sTmpGuid: string;
// l : Int64;
begin
if Files.Count > 0 then
begin
outFile := TFileStream.Create(Filename, fmCreate);
try
{ 待合并文件的数量 }
l := Files.Count;
outfile.Write(l, SizeOf(l));
for i := 0 to Files.Count - 1 do
begin
infile := TFileStream.Create(Files[i], fmOpenRead);
try
{ 获取原始文件名 }
s := ExtractFilename(Files[i]);
{ 获取原始文件名长度 }
l := Length(s);
{ 写入文件名长度 }
outfile.Write(l, SizeOf(l));
{ 写入文件名内容 }
outfile.Write(s[1], l);
{ 获取文件大小(字节数) }
l := infile.Size;
{ 写入文件大小(字节数) }
outfile.Write(l, SizeOf(l));
{ 压缩并存储文件内容 }
outfile.CopyFrom(infile, 0);
finally
infile.Free;
end;
end;
finally
outfile.Free;
end;
// DeleteFile(sTmpGuid);
end;
end;
var
infile, outfile, tmpFile: TFileStream;
compr: TCompressionStream;
i,l: Integer;
s, sTmpGuid: string;
// l : Int64;
begin
if Files.Count > 0 then
begin
outFile := TFileStream.Create(Filename, fmCreate);
try
{ 待合并文件的数量 }
l := Files.Count;
outfile.Write(l, SizeOf(l));
for i := 0 to Files.Count - 1 do
begin
infile := TFileStream.Create(Files[i], fmOpenRead);
try
{ 获取原始文件名 }
s := ExtractFilename(Files[i]);
{ 获取原始文件名长度 }
l := Length(s);
{ 写入文件名长度 }
outfile.Write(l, SizeOf(l));
{ 写入文件名内容 }
outfile.Write(s[1], l);
{ 获取文件大小(字节数) }
l := infile.Size;
{ 写入文件大小(字节数) }
outfile.Write(l, SizeOf(l));
{ 压缩并存储文件内容 }
outfile.CopyFrom(infile, 0);
finally
infile.Free;
end;
end;
finally
outfile.Free;
end;
// DeleteFile(sTmpGuid);
end;
end;
- 多个文件文件的拼接
- Python合并(拼接)多个CSV文件
- 用html如何把页面分割成多个文件,由多个文件拼接而成?
- 用html如何把页面分割成多个文件,由多个文件拼接而成?
- 将文件的多行拼接成一行
- java查找读取文件url的拼接
- 本地存储,文件内容的拼接
- JSF上传多个文件的文件
- ffmpeg 拼接文件
- Xml文件合并、拼接
- 文件内容拼接
- 多个文件的下载
- 多个字符串拼接
- python字符串的拼接,文件的读入写出
- 一个字段多个记录拼接和多个字段的拼接
- java读文件,拼接sql
- wav文件拼接详细步骤
- Android多媒体(二) 多段Mp4文件拼接 我用双手成就你的梦想
- cocos2d-x在Android真机上使用Sqlite
- Oracle对xml的支持
- 每个程序员都应该知道的论文和文章
- c# 调用 C++ dll 传入传出 字符串
- delphi7转换编码函数
- 多个文件文件的拼接
- 一种固定内存池的实现(C++)
- 2013年六月GBin1月刊
- Silverlight/WPF 截图保存功能的实现
- android 库里出错分析
- 一个文件(又N个文件组成的)分解成多个文件
- WWDC 2012 Session笔记——405 Modern Objective-C
- [学习笔记]学习主题模型(Topic Model)和PLSA( probabilistic latent semantic analysis)
- Ubuntu下UltraEdit破解方法