버퍼를 이용한 파일 스트림 - TBufferedFileStream

TBufferedFileStream.png

 

버퍼링을 지원하는 파일스트림을 이용해 파일 I/O 작업을 더 빠르게 진행할 수 있는 TBufferedFileStream이 RAD Studio 10.1 베를린에 추가되었습니다.

 

위 그림과 같이 기존 파일 스트림(TFileStream)으로 진행시 1,556 msec 걸리던 작업을 버퍼링을 지원하는 파일 스트림(TBufferedFileStream)을 이용할 경우 15 msec로 큰 속도 차이를 보이는 것을 확인할 수 있습니다.

 

위에서 사용한 코드는 아래와 같습니다.

 


uses
  System.Diagnostics; // TStopwatch

procedure TForm1.btnWriteClick(Sender: TObject);
var
  sw: TStreamWriter;
  I: Integer;
begin
  sw := TStreamWriter.Create('test.txt', False, TEncoding.UTF8);
  try
    sw.WriteLine('Hello world');
    for I := 0 to 99999 do
      sw.WriteLine('Hello ' + I.ToString);
  finally
    sw.Free;
  end;
  Memo1.Lines.Add('File written')
end;

procedure TForm1.btnReadClick(Sender: TObject);
var
  FileStream: TFileStream;
  Total, I: Integer;
  sw: TStopWatch;
  ch: Char;
begin
  sw := TStopwatch.StartNew;
  FileStream := TFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while FileStream.Read(ch, 1) = 1 do
    begin
      if ch = #13 then
        Inc(Total);
    end;
    Memo1.Lines.Add('Lines : ' + Total.ToString);
  finally
    FileStream.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add('TFileStream msec : ' + sw.ElapsedMilliseconds.ToString);
end;

procedure TForm1.btnReadBufferedClick(Sender: TObject);
var
  BufFileStream: TFileStream;
  Total, I: Integer;
  sw: TStopWatch;
  ch: Char;
begin
  sw := TStopwatch.StartNew;
  BufFileStream := TBufferedFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while BufFileStream.Read(ch, 1) = 1 do
    begin
      if ch = #13 then
        Inc(Total);
    end;
    Memo1.Lines.Add('Lines : ' + Total.ToString);
  finally
    BufFileStream.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add('TBufferedFileStream msec : ' + sw.ElapsedMilliseconds.ToString);
end;

관련 글


번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 14387
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 13023
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 15532
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 21064
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 22297
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 17932
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 38228
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 173741
1242 [2020년 상반기] 기술자료 TOP 10 - 개발자들이 가장 많이 클릭한 기술자료는? 관리자 2020.07.07 657
1241 이 달의 기술자료 - 2020년 07월 험프리 2020.06.25 462
1240 [발표자료] 20200623 코로나19, 데이터와 RAD로 방역하다! file 관리자 2020.06.24 698
1239 [10.4 시드니 신기능 Deep Dive] 겟잇 패키지 매니저의 새로운 기능들 관리자 2020.06.22 559
1238 북마크, 탐색기 - 무료 IDE 애드온 기능들 업데이트! (10.4용) 관리자 2020.06.16 404
1237 [REST-무료제공툴] REST 디버거 - REST 서비스를 언제든 신속하게 분석할 수 있습니다. file 험프리 2020.06.15 1004
1236 [기술백서] 소프트웨어 개발사에게 영향을 주는2020 시장 트렌드 TOP5 관리자 2020.06.11 501
1235 [발표자료] 20200609 What's NEW! RAD스튜디오 10.4 시드니 file 관리자 2020.06.10 478
1234 [10.4 시드니 신기능 Deep Dive] 델파이 추가된 문법 및 변경 사항 김원경 2020.06.05 489
1233 [10.4 시드니 신기능] iOS와 맥OS 지원 강화 관리자 2020.06.04 673
1232 [10.4 시드니 신기능] 고해상도 DPI용 VCL 콘트롤(들) 관리자 2020.06.04 495
1231 [10.4 시드니 신기능] 개발환경 강화 관리자 2020.06.04 442
1230 [10.4 시드니 신기능] 언어 서버 프로토콜 (LSP, Language Server Protocol) 관리자 2020.06.04 662
1229 [RAD Studio 10.4 패치1 ] C ++ 디버깅과 누락 파일 패치 – 패치를 설치하는 새로운 방법! file 김원경 2020.06.01 635
1228 [기술백서] 델파이와 Windows 개발 현황 (Windows 개발 관련 핵심 사항 정리) 관리자 2020.05.29 773
1227 이 달의 기술자료 - 2020년 06월 file 험프리 2020.05.29 358
1226 [10.4 시드니 신기능] 델파이 10.4 런타임 라이브러리 향상 file 김원경 2020.05.28 610
1225 [10.4 시드니 신기능] Sarina Dupont이 정리한 주요 신기능 모아 보기 험프리 2020.05.28 4295
1224 [10.4 시드니 신기능] Win64 C++용 새로운 디버거 험프리 2020.05.26 601