새로운 글
새로운 덧글

버퍼를 이용한 파일 스트림 - 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;

관련 글


번호 제목 글쓴이 날짜 조회 수
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 1227
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 4474
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 1002
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 7842
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 관리자 2015.06.30 13389
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2019년 5월 업데이트 됨) 험프리 2014.01.16 150264
615 브레이크 포인트를 설정해도 디버깅이 안되는 경우 살펴볼 항목 file 험프리 2016.05.13 1299
614 [발표자료] 20160504 새로 강화된 기능들: RAD Studio, Delphi, C++Builder 관리자 2016.05.09 407
» [베를린] TBufferedFileStream을 이용해 TFileStream 보다 더 빠르게 파일을 읽고, 쓸수 있습니다. file 험프리 2016.05.09 1361
612 [필독] Berlin Dialog 사용법 상당부분 변경 및 기능추가 (소스링크추가) [1] c2design 2016.05.04 579
611 [업데이트][핫픽스][10.1 베를린] 데이터스냅(DataSnap) ApplyUpdates 핫픽스 험프리 2016.04.28 676
610 이 달의 기술자료 - 2016년 05월 file 험프리 2016.04.26 530
609 [베를린] 스타일 디자이너에 미리보기, 클립보드 기능등이 강화되어 더욱 사용하기 편리해 졌습니다. file 험프리 2016.04.26 644
608 [베를린] 연락처 컴포넌트(TAddressBook)로 연락처 정보를 읽고 쓸수 있습니다. file 험프리 2016.04.25 461
607 [베를린] ListView 레이아웃을 입맛에 맞게 변경할 수 있습니다. file 험프리 2016.04.22 1168
606 [베를린] FireUI 앱 미리보기 - 개발중인 앱의 디자인을 장치에서 실시간으로 확인하며 개발할 수 있습니다. file 험프리 2016.04.22 836
605 [베를린] 설치 작업이 개선되어 원하는 기능만 신속히 설치, 변경할 수 있습니다. file 험프리 2016.04.21 335
604 [베를린] 폴 디자이너를 분리해 여러 폼화면을 동시에 보고 편집할 수 있습니다. [1] file 험프리 2016.04.21 861
603 [안드로이드/iOS] 이미 배포(Deployment)된 파일 업데이트 하기 험프리 2016.03.31 983
602 이 달의 기술자료 - 2016년 04월 file 험프리 2016.03.28 366
601 TCategoryButtons 동적 생성하고, TButtonItem 클릭 이벤트 연결하기 file 험프리 2016.03.23 618
600 SVN 서버 설치하기 - Visual SVN 이용 험프리 2016.02.29 2221
599 RAD Studio IDE에서 SVN 사용하기 + TortoiseSVN 사용하기 험프리 2016.02.29 651
598 이 달의 기술자료 - 2016년 03월 [1] file 험프리 2016.02.25 589
597 애플 WWDR 인증서 만료로 iOS 개발자 인증서 이슈 해결 방안 험프리 2016.02.17 918
596 OutputDebugString 함수로 디버그로그를 출력할 수 있습니다. file 험프리 2016.02.16 1676


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..