請教各位前輩 如何把多個檔案合併為一個檔案,之後又可以解開 如 WinRAR or WinZip 但我不用壓縮的功能 但我只要可以合併及解開就可以了

參考: http://www.1delphistreet.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=311&lngWId=7            !**************************************     ! for :File Splitter / Joiner     !**************************************     Zip     !**************************************     ! Name: File Splitter / Joiner     ! Description:The Functions Can Split A File Into Many Pieces And Then Rejoin At A Later Date.     ! By: wrastus     !     !     ! Inputs:Two Sample Calls:     SplitFile('C:\afilename.exe',40000);     UnSplit('C:\samefilenameasabovewith-rtr-extension.rtr',40000);     !     ! Returns:None     !     !Assumes:None     !     !Side Effects:None     !This code is copyrighted and has limited warranties.     !Please see http://www.1DelphiStreet.com/xq/ASP/txtCodeId.311/lngWId.7/qx/vb/scripts/ShowCode.htm     !for details.     !**************************************

    
function Smaller(const a,b:LongInt) :LongInt; 
begin
  if(a < b)then
  begin
    Result := a;
  end else
    if(b > 0)then
    begin
      Result := b
    end else Result := 0;
end;
  
Function SplitFile(FFileName : AnsiString; SplitSize : Longint): Boolean;
Var
  InFile : TFileStream;
  OutFile : TFileStream;
  FilePlace : Integer;
  INI : TIniFile;
  FileInfo : TFinfo;
Begin
  InFile := TFileStream.Create(FFileName,fmOpenRead);
  If InFile.Size > SplitSize Then
  Begin
    FilePlace := 0;
    While InFile.Position < InFile.Size Do Begin
      Inc(FilePlace);
      OutFile := TFileStream.Create(FFileName   '.'   FormatFloat('000',FilePlace), fmCreate);
      OutFile.CopyFrom(InFile,Smaller(SplitSize,InFile.Size - InFile.Position));
      OutFile.Free;
    End;
  End Else 
    ShowMessage('The File Is To Small To Split');
  InFile.Free;
  INI := TIniFile.Create(ChangeFileExt(FFileName,'.rtr'));
  INI.WriteString('Files','Number',IntToStr(FilePlace));
  INI.WriteString('Files','Name',FFileName);
  INI.Free;
  Result := True;
End;
  
Function UnSplit(FFileName : TFileName; BufferSize : LongInt):Boolean;
Var
  INI : TIniFile;
  InFile : TFileStream;
  OutFile : TFileStream;
  FilePlace : Integer;
  NFiles : Integer;
  FFile : TFileName;
  BytesRead : LongInt;
  Buffer : Pointer;
  FString : TFileName;
Begin
  GetMem(Buffer,BufferSize);
  INI := TIniFile.Create(FFileName);
  NFiles := StrToInt(INI.ReadString('Files','Number','0'));
  FFile := INI.ReadString('Files','Name','0');
  OutFile := TFileStream.Create(FFile,fmCreate);
  FilePlace := 1;
  While FilePlace <= NFiles Do
  Begin
    FString := (FFile   '.'   FormatFloat('000',FilePlace));
    InFile := TFileStream.Create(FString,fmOpenRead);
    While InFile.Size <> InFile.Position Do
    Begin
      Inc(FilePlace);
      BytesRead := InFile.Read(Buffer^,BufferSize);
      OutFile.Write(Buffer^,BytesRead);
    End;
    InFile.Free;
  End;
  Result := True;
  OutFile.Free;
End;

Also Two Sample Calls:

    SplitFile('C:\afilename.exe', 40000);
    UnSplit('C:\samefilenameasabovewith-rtr-extension.rtr', 40000);

--- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業

procedure TForm1.LinkFiles(SourceFiles:TStrings;DestFile:string);
var
  MS0,MS:TMemoryStream;
  W:TWriter;
  i:integer;
begin
  MS0:=TMemoryStream.Create;
  try
    MS:=TMemoryStream.Create;
    W:=TWriter.Create( (MS0,$10000);
    try
      for i:=0 to SourceFiles.Count-1 do
      begin
        W.WriteString(ExtractFileName(SourceFiles[i]));   //寫入文件名
        MS.Clear;
        MS.LoadFromFile(SourceFiles[i]);                  //載入文件
        W.WriteInteger(MS.Size);                          //寫入長度
        W.Write(MS.Memory^,MS.Size);                      //寫入buffer
      end;
    finally
      W.Free;
      MS.Free;
    end;
    MS0.Position:=0;
    MS0.SaveToFile(DestFile);
  finally
    MS0.Free;
  end;
end;    procedure TForm1.UnLinkFile(SourceFile: string;DestDir:string);
var
  MS0,MS:TMemoryStream;
  R:TReader;
  FileName:string;
begin
  MS0:=TMemoryStream.Create;
  try
    MS0.LoadFromFile(SourceFile);             //載入合並文件
    MS0.Position:=0;
    R:=TReader.Create(MS0,$10000);
    MS:=TMemoryStream.Create;
    try
      while MS0.Position        發表人 - anqiYao 於 2003/07/08  14:31:23
        

請問一下anqiYao唷~ 用您的方法merge很大的檔時(我是用40mb試) 速度會很慢(不過我的電腦是128MB Ram...所以可能有差 我是用BCB 6.0) 可是..居然是慢到它跑不出來..(後來就當了) 請問您會有這樣的情況嗎? 我現在希望寫一個將很多檔案合併, 並且在最前面加自己的檔頭 目前還在嘗試中.... 謝囉~