delphi 文件分割与合并

流的使用分割与合并文件的函数

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//分割文件的函数
{参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB}
{分割后的文件名扩展名用序号替换}
function SplitFile(const FileName: string; Size: Cardinal): Boolean;
var
  fStream: TFileStream;    {原始文件}
  toStream: TMemoryStream; {分文件}
  p,i: Integer;            {p 记录当前指针位置; i 记录这是第几个分的文件}
begin
  Result := False;

  Size := Size * 1024;     {把大小的单位转换为字节}

  fStream := TFileStream.Create(FileName, fmOpenRead);
  p := 0;
  i := 0;

  toStream := TMemoryStream.Create;

  while p < fStream.Size do
  begin
    toStream.Clear;        {清空上次数据}
    fStream.Position := p; {放好指针位置}

    if fStream.Size-p < Size then Size := fStream.Size-p; {最后一个时, 有多少算多少}

    toStream.CopyFrom(fStream, Size); {复制}
    toStream.SaveToFile(FileName + '.' + IntToStr(i));        {保存}
    Inc(i);
    p := p + Size;
  end;

  fStream.Free;
  toStream.Free;
  Result := True;
end;


//合并文件, 参数是其中一个分文件名
function MergeFile(const FileName: string): Boolean;
var
  ms: TMemoryStream; {读取分文件}
  fs: TFileStream;   {合并后的文件}
  path: string;
  i: Integer;
begin
  path := ChangeFileExt(FileName,''); {去掉序号扩展名}
  ShowMessage(path);
  i := 0;

  ms := TMemoryStream.Create;
  fs := TFileStream.Create(path, fmCreate);

  while FileExists(path + '.' + IntToStr(i)) do
  begin
    ms.LoadFromFile(path + '.' + IntToStr(i));
    fs.CopyFrom(ms, 0); {TFileStream 不需要 SetSize; 但如果用 TMemoryStream 就需要}
    Inc(i);
  end;

  ms.Free;
  fs.Free;
end;



//测试分割
procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitFile('c:\temp\test.txt', 10);
end;

//测试合并
procedure TForm1.Button2Click(Sender: TObject);
begin
  MergeFile('c:\temp\test.txt.0');
end;

end.
View Code

TFileStream 的读写 合并文件

TFileStream 的读写 合并文件
向TFileStream中写入字符串的问题
sbuff:TString;
S1:Tfilestream;
S1.write(sbuff,length(sbuff))是乱码
S1.write(pChar(sbuff)^,length(sbuff)))是对的~

求解释
S1.write(sbuff,length(sbuff))为什么不可以
还有length(sbuff)和sizaof(sbuff)的区别

解答:
两处错误
1,一定要先为你的string变量t指定长度(分配空间).
2,串变量t并不代表它分配的内存指针.

先SETLENGTH(T,30);
再T.READBUFFER(PCHAR(T)^,30);
不能用T.READBUFFER(T,30);
向TFileStream中写入字符串的问题
sbuff:TString;
S1:Tfilestream;
S1.write(sbuff,length(sbuff))是乱码
S1.write(pChar(sbuff)^,length(sbuff)))是对的~

求解释
S1.write(sbuff,length(sbuff))为什么不可以
还有length(sbuff)和sizaof(sbuff)的区别

解答:
两处错误
1,一定要先为你的string变量t指定长度(分配空间).
2,串变量t并不代表它分配的内存指针.

先SETLENGTH(T,30);
再T.READBUFFER(PCHAR(T)^,30);

//合并文件, 参数是合并后的文件名
function TForm1.MergeFile(const FileName: string): Boolean;
const
s1 = #13#10#13#10#13#10#13#10;
var
ms: TMemoryStream; {读取分文件}
fs: TFileStream; {合并后的文件}
path,spliteStr: string;
i: Integer;
begin
result := False;
ms := TMemoryStream.Create;
fs := TFileStream.Create(FileName, fmCreate);

try
for i := 0 to lst1.items.Count - 1 do
begin
if i = 0then
spliteStr := '#' + lst1.items[i] + #13#10#13#10#13#10
else
spliteStr := #13#10#13#10#13#10 + '#' + lst1.items[i] + #13#10#13#10#13#10;


ms.LoadFromFile(pathtemp + lst1.items[i]);
fs.Write(PChar(spliteStr)^,length(spliteStr));
fs.Seek(0,soFromEnd);
fs.CopyFrom(ms, 0)
end;
Result := true;
finally
ms.Free;
fs.Free;
end;
end;

//合并文件, 参数是合并后的文件名
function TForm1.MergeFile(const FileName: string): Boolean;
const
s1 = #13#10#13#10#13#10#13#10;
var
ms: TMemoryStream; {读取分文件}
fs: TFileStream; {合并后的文件}
path,spliteStr: string;
i: Integer;
begin
result := False;
ms := TMemoryStream.Create;
fs := TFileStream.Create(FileName, fmCreate);

try
for i := 0 to lst1.items.Count - 1 do
begin
if i = 0then
spliteStr := '#' + lst1.items[i] + #13#10#13#10#13#10
else
spliteStr := #13#10#13#10#13#10 + '#' + lst1.items[i] + #13#10#13#10#13#10;
ms.LoadFromFile(pathtemp + lst1.items[i]);
fs.Write(PChar(spliteStr)^,length(spliteStr));
fs.Seek(0,soFromEnd);
fs.CopyFrom(ms, 0)
end;
Result := true;
finally
ms.Free;
fs.Free;
end;
View Code

文件分割

var i, WantedFragSize, RealToWrite : Integer;
 //声明两个文件流对象
 //InStream为输入源文件流对象,OutStream为输出切割文件流对象
 InStream, OutStream : TFileStream;
 S : String;
begin
if Opendialog1.Execute then
  begin
   SaveDialog1.Title := '输入你要保存的切割文件名';
   If SaveDialog1.Execute then
   begin
    WantedFragSize := StrtoInt(Edit1.Text); //定义切割块大小
    i := 0;
    //以只读的方式创建一个输入文件流对象
    InStream:=TFileStream.Create(
    OpenDialog1.FileName,fmOpenRead);
    Try
     //如果Instream流的当前指针位置不在末尾,就按照定义的块大小//来读出数据并存成文件
     while (InStream.Position < InStream.Size) do
     Begin
      s := IntToStr(I);
      while Length(s) < 3 do s := '0'+s;
      s := '.'+s; 
      //生成切割文件的扩展名,用三位数字来作为扩展名,方便组合文件
      //如果InStream所剩的块大小小于定义的块大小,则将剩下的块数//据存成文件
      If InStream.Size - InStream.Position < WantedFragSize then
       RealToWrite := InStream.Size - InStream.Position
      else
       RealToWrite := WantedFragSize;
       //创建一个输出文件流对象
       OutStream:=TFileStream.Create(SaveDialog1.FileName+s,fmCreate);
       try
        OutStream.CopyFrom(InStream,RealToWrite);
        Inc(i);
       Finally
        //释放输出文件流对象
        OutStream.Free;
        end;
       end;
      Finally
       InStream.Free;
      end;
     end;
    end;
View Code

文件切割组合

//切割文件
procedure TForm1.Button1Click(Sender: TObject);
 var
  i, WantedFragSize, RealToWrite : Integer;
  //声明两个文件流对象
  //InStream为输入源文件流对象,OutStream为输出切割文件流对象
  InStream, OutStream : TFileStream;
  S : String;
 begin
  if Opendialog1.Execute then
  begin
   SaveDialog1.Title := '输入你要保存的切割文件名';
   If SaveDialog1.Execute then
   begin
    WantedFragSize := StrtoInt(Edit1.Text); //定义切割块大小
    i := 0;
    //以只读的方式创建一个输入文件流对象
    InStream:=TFileStream.Create(
    OpenDialog1.FileName,fmOpenRead);
    Try
     //如果Instream流的当前指针位置不在末尾,就按照定义的块大小//来读出数据并存成文件
     while (InStream.Position < InStream.Size) do
     Begin
      s := IntToStr(I);
      while Length(s) < 3 do s := '0'+s;
      s := '.'+s; 
      //生成切割文件的扩展名,用三位数字来作为扩展名,方便组合文件
      //如果InStream所剩的块大小小于定义的块大小,则将剩下的块数//据存成文件
      If InStream.Size - InStream.Position < WantedFragSize then
       RealToWrite := InStream.Size - InStream.Position
      else
       RealToWrite := WantedFragSize;
       //创建一个输出文件流对象
       OutStream:=TFileStream.Create(SaveDialog1.FileName+s,fmCreate);
       try
        OutStream.CopyFrom(InStream,RealToWrite);
        Inc(i);
       Finally
        //释放输出文件流对象
        OutStream.Free;
        end;
       end;
      Finally
       InStream.Free;
      end;
     end;
    end;
   end;
 //组合文件
procedure TForm1.Button2Click(Sender: TObject);
var
 i : Integer;
 InStream, OutStream : TFileStream;
 SourcePath, FragName, S : String;
 begin
  Opendialog1.Title := '请选择切割文件';
  if Opendialog1.Execute then
  begin
   //得到当前打开的切割文件的路径
   SourcePath := ExtractFilePath(Opendialog1.FileName);
   //得到当前打开的切割文件的文件名
   FragName := ExtractFileName(Opendialog1.FileName);
   SaveDialog1.Title := '请输入你要组合的文件名';
   If SaveDialog1.Execute then
   begin
    i := 0;
    s := IntToStr(I);
    while Length(s) < 3 do s := '0'+s;
     s := '.'+s;
     FragName := ChangeFileExt(FragName, s);
     //如果目录中有以.000为扩展名的文件存在,则创建一个输出文件流//对象
     If FileExists(SourcePath+FragName) then
     begin
      OutStream:=TFileStream.Create(Savedialog1.FileName,fmCreate);
     Try
      //按照以文件扩展名递增的方式组合文件
      While FileExists(SourcePath+FragName) do
      Begin
       InStream:=TFileStream.Create(SourcePath+FragName,fmOpenRead);
      Try
       //将输入文件流的数据写入到输出文件流中
       OutStream.CopyFrom(InStream,0);
       Inc(i);
       s := IntToStr(I);
       while Length(s) < 3 do s := '0'+s;
        s := '.'+s;
        FragName := ChangeFileExt(FragName, s);
      finally
       InStream.Free;
      end;
     end;
    finally
     OutStream.Free;
    end;
   end;
  end;
 end;
end;
View Code

 

转载于:https://www.cnblogs.com/blogpro/p/11345168.html

相关资源:delphi文件分割合并
已标记关键词 清除标记
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
基本安装 1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可; 3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可; 4、如果以上Install按钮为失效的话,试试Compile按钮; 5、是run time lib则在option下的packages下的runtimepackes加之。 如果编译时提示文件找不到的话,一般是控件的安装目录不在Delphi的Lib目录中,有两种方法可以解决: 1、反安装的源文件拷入到Delphi的Lib目录下; 2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。 注意:所安装的控件是否与你所用的Delphi版本相适应。 RxLib的安装   首先在Delphi 5 的 IDE 中将以前版本的 Rxlib 反安装掉,删除 RXCTL5.BPL、RXDB5.BPL、 RXBDE5.BPL、DCLRX5.BPL、 DCLRXDB5.BPL 和DCLRXBD5.BPL。   打开 Rx 的运行包 RXCTL5.DPK,在 Package 窗口中按 Compile 按钮编译 RXCTL5.DPK ,然后用同样方法编译另两个运行包RXDB5.DPK 和 RXBDE5.DPK ,将编译后的三个 BPL 文件放到搜索路径中,如 WINDOWS\SYSTEM等。   在编译完运行包后你必须将 RX 的设计期包安装到 IDE 环境中。   打开 Rx 的设计期包 DCLRX5.DPK,在 Package 窗口中按 Compile 按钮编译,然后按 Install按钮将设计期包注册到组件面板中。用同样的方法安装 DCLRXDB5.DPK 和 DCLRXBD5.DPK。   注意:不要在 Delphi IDE 中保存包资源(package sources)! 控件删除 在Component/Install Packages中删除。 选Component/configure Palette… 有pages和components两个区域 双击components区域,选中要删除得控件,下面有得Delete按钮 但系统提供的控件只能Hide,不能delete。 打开控件所在的包文件(*.dpk),从中删除控件那个文件,再重新编译该包即可 如果是整个控件包都要删除的话,project->Option->Packages,删掉那个packages,That would be ok~
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页