JAVA服务端多个文件合并传到客户端分解
来源:互联网 发布:数据结构与算法 入门 编辑:程序博客网 时间:2024/05/04 03:01
If Not FileExists(fromFileName) Then Exit;
Filestream:= TFilestream.Create(fromFileName,fmOpenRead);
vSize := 1024;
Filestream.Position := 0;
count :=1;
vStart := 0;
vSize := Filestream.Read(vArray,vSize);
for i :=0 to vSize-1 do
begin
if count>5 then
Break;
str := Chr(vArray[i]);
messageStr:=messageStr+str;
if str='\' then
count := count+1;
Inc(vStart);
end;
total := PosCopy(messageStr,'\',1);
head := PosCopy(messageStr,'\',2);
state := PosCopy(messageStr,'\',3);
Filestream.Position := vStart;
for i:=4 to PosNum(messageStr,'\') do
begin
fileInfo := PosCopy(messageStr,'\',i);
fileName := StrLeft(fileInfo,'-');
fileName := destSrc+'\'+ fileName;
filelen := StrToInt64(StrRight(fileInfo,'-'));
outfile := TFileStream.Create(fileName, fmCreate);
try
outfile.CopyFrom(Filestream,filelen);
finally
outfile.Free;
end;
end;
finally
freeandnil(Filestream);
end;
Filestream:= TFilestream.Create(fromFileName,fmOpenRead);
vSize := 1024;
Filestream.Position := 0;
count :=1;
vStart := 0;
vSize := Filestream.Read(vArray,vSize);
for i :=0 to vSize-1 do
begin
if count>5 then
Break;
str := Chr(vArray[i]);
messageStr:=messageStr+str;
if str='\' then
count := count+1;
Inc(vStart);
end;
total := PosCopy(messageStr,'\',1);
head := PosCopy(messageStr,'\',2);
state := PosCopy(messageStr,'\',3);
Filestream.Position := vStart;
for i:=4 to PosNum(messageStr,'\') do
begin
fileInfo := PosCopy(messageStr,'\',i);
fileName := StrLeft(fileInfo,'-');
fileName := destSrc+'\'+ fileName;
filelen := StrToInt64(StrRight(fileInfo,'-'));
outfile := TFileStream.Create(fileName, fmCreate);
try
outfile.CopyFrom(Filestream,filelen);
finally
outfile.Free;
end;
end;
finally
freeandnil(Filestream);
end;
- JAVA服务端多个文件合并传到客户端分解
- JAVA服务端合并多个文件
- 合并分解多个可执行文件为一个文件
- java 合并多个文件
- JAVA 中多线程服务端 多个客户端的实现
- JAVA 中多线程服务端 多个客户端的实现
- socket ( java ) 简单多个客户端、服务端通信(多线程)
- socket ( java ) 简单多个客户端、服务端通信(多线程)
- Java Socket实现多个客户端连接同一个服务端
- java Socket 多个客户端连接同一个服务端
- java--实现多个客户端与服务端连接
- 多文件的上传 Android客户端与java服务端
- JAVA服务端分解
- 如何使用java合并多个文件
- 如何使用java合并多个文件
- Java下合并多个文件
- Java中SequenceInputStream合并流实现多个文件合并
- 多文件的合并与分解
- WWDC 2012 Session笔记——405 Modern Objective-C
- [学习笔记]学习主题模型(Topic Model)和PLSA( probabilistic latent semantic analysis)
- Ubuntu下UltraEdit破解方法
- 跟踪对象持久化状态,掌握对象持久化
- 实现 Cocos2d-x 全局定时器
- JAVA服务端多个文件合并传到客户端分解
- 黑马程序员-java学习笔记-枚举
- 前端开发攻城师绝对不可忽视的五个HTML5新特性
- [OpenCV2]遍历图像的临近像素
- 一款java写的将汉字转为拼音的工具类
- 数据库设计(树形结构)
- 封装html的select标签的js操作
- Definition of 'Journal'
- system的返回值