ファイルの大量コピーを早く行う方法は？ (ID:31211)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すいません。テストで色々やったため変なコードが残ってました。

procedure TMyThread.Execute;
var
  mstm: TMemoryStream;
  OpenFileName, SaveFileName, File_Name: String;
  i : Integer;
  CopyCount :Integer;
begin
  File_Name := MainForm.FileName_Edit.Text;

OpenFileName := MainForm.TargetFileName_Edit.text;
  SaveFileName := MainForm.SaveFolder_Edit.Text +'\';
  CopyCount := StrToInt(MainForm.CopyCount_Edit.text);

mstm := TMemoryStream.Create;

try
    mstm.LoadFromFile(OpenFileName);

for i := 1 to CopyCount do
      begin

//TMemoryStreamを定期的にFreeして実験
        if ((i mod 10000) = 0) then
        begin
          mstm.Free;
          mstm := TMemoryStream.Create;
          mstm.LoadFromFile(OpenFileName);
        end;

mstm.SaveToFile(SaveFileName + File_Name + IntTostr(i)+ '.jpg');
        FCount := i;
        Synchronize( CountUp );

end;
   finally
     mstm.Free;
   end;

end;

procedure TMyThread.CountUp;
begin
  MainForm.Count_Label.Caption := IntToStr(FCount) + '/'+ MainForm.CopyCount_Edit.Text;
end;

←解決時は質問者本人がここをチェックしてください。

戻る