JAVA服务端多个文件合并传到客户端分解

    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;