掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動画ファイルを連結するには？ (ID：30669)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TFileStreamですな。 一回の書き込みバッファサイズを小さくすると、省メモリ 大きくすると高速化が期待できます。 ちなみにこれは省メモリ版です。 procedure TForm1.Button1Click(Sender: TObject); var aFS1,aFS2:TFileStream; aBuf:Byte; begin aFS1:=TFileStream.Create('a.txt',fmOpenReadWrite); aFS2:=TFileStream.Create('b.txt',fmOpenReadWrite); aFS1.Position:=aFS1.Size; repeat aFS2.Read(aBuf,SizeOf(aBuf)); aFS1.Write(aBuf,SizeOf(aBuf)); until aFS2.Position = aFS2.Size; aFS1.Free; aFS2.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.