자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하세요.

txt반출하는 속도가 너무 안나서 조언을 듣고자 문의드립니다.

 

DB에 있는 고객별 로우데이타를 조회화면에서 txt로 저장하는 프로그램을 만들고 있습니다.

건수가 대략 30만건되어 FDMEMTable을 이용하여 cxGrid와 연결하여 조회는 되었는데요.

cxGrid에서 직접 txt로 반출을 하면 자료가 많다보니 에러가 발생하더군요.

그래서 FDMEMTable 데이타를 직접읽어 TXT로 반출을 했는데 대략 40분정도가 소요됩니다.

40분이나 되다보니 어쩔수 없이 사용자에게 요청올때마다 쿼리로 뽑아주고 있습니다.

 

txt반출속도를 빠르게 하는 방법이 있을까요?

아래는 txt로 반출하는 샘플코드입니다.

속도개선에 대한 의견이 있으시면 주저없이 댓글해주세요

감사합니다. ^^

 

-----------------------------------------------------------------------

 

   if not CDS3.Active then
     Exit;

   try
      AssignFile(TxtF, 'C:\통계조회.txt');
      Rewrite(TxtF);
      StrData :=  '가입매장브랜드'+'|'+
                  '가입매장코드'+'|'+
                  '가입매장명'+'|'+
                  '고객번호'+'|'+
                  '문자수신여부'+'|'+
                  '발송매장브랜드'+'|'+
                  '발송매장'+'|'+
                  '발송매장명'+'|'+
                  '발송유무'+'|'+
                  '약관동의'+'|'+
                  '개인정보동의'+'|'+
                  '마케팅동의'+'|'+
                  '적립포인트'+'|'+
                  '포인트사용유무'+'|'+
                  '사용포인트'+'|'+
                  '내용';
      WriteLn(TxtF, StrData);

      i := 0;
      iNa := 0;
      with CDS3 do
      begin
         CDS3.First;
         while not eof do
         begin

           StrData := FieldByName('가입매장브랜드').AsString+'|'+
                      FieldByName('가입매장코드').AsString+'|'+
                      FieldByName('가입매장명').AsString+'|'+
                      FieldByName('고객번호').AsString+'|'+
                      FieldByName('문자수신여부').AsString+'|'+
                      FieldByName('발송매장브랜드').AsString+'|'+
                      FieldByName('발송매장').AsString+'|'+
                      FieldByName('발송매장명').AsString+'|'+
                      FieldByName('발송유무').AsString+'|'+
                      FieldByName('약관동의').AsString+'|'+
                      FieldByName('개인정보동의').AsString+'|'+
                      FieldByName('마케팅동의').AsString+'|'+
                      FieldByName('적립포인트').AsString+'|'+
                      FieldByName('포인트사용유무').AsString+'|'+
                      FieldByName('사용포인트').AsString+'|'+
                      FieldByName('내용').AsString;
           WriteLn(TxtF, StrData);
           next;
         end;
      end;

      CloseFile(TxtF);

      ShowMessage(pChar('C:통계조회.txt 로 저장되었습니다.'));
   except on E: Exception do
      begin
         ShowMessage('TXT파일이 저장되지 않았습니다.');
      end;
   end;
 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 34117
공지 유용한 관련 사이트 관리자2 2014.03.20 73633
2272 OpenCV, VC++에서는 잘 동작하는데,C++ Builder에서 빌드가 안되는 문제가 있네요. [1] WayneKim 2018.11.05 658
2271 [공유] 안드로이드 배포 시 "Missing profile name. Unable to get a valid profile from environment options file. Process aborted." 오류가 발생합니다. file 험프리 2018.11.05 309
2270 인터베이스 커넥션 에러 [1] file 손보라 2018.11.02 354
2269 연결프로그램 설정 방법 문의 [2] 손보라 2018.11.01 985
2268 listview Data 뿌려주거나 클릭 시 EvalError 발생. [4] file 엔달 2018.09.27 436
2267 Motion Sensor 사용 [1] 오사씨 2018.10.30 289
2266 개발툴 버전업(Delphi 7 -> Tokyo) : ocx 등록 관련 [1] 김기 2018.10.30 359
2265 안드로이드 한글 중복 입력 문제로 문의 합니다. [4] lcarus76 2018.10.24 500
2264 이미지 컴포넌트 추천 해 주세요... [1] 굿맨 2018.09.05 286
2263 터치 이벤트를 임의로 발생시키는 방법 100jk 2018.10.29 460
2262 DCU 파일을 어떻하면 오픈할 수 있는지 몰라서, 바보스럽게 질문드립니다- 친절한 답변 부탁드려요~ (꾸벅^^) [1] 유박사 2018.10.29 1136
2261 한번에 개발하는 안드로이드/iOS 앱 with 델파이 1편 기초다지기 [1] file 한니발 2018.10.26 372
2260 만보기 구현 오사씨 2018.10.27 573
2259 TMemo 동적 생성 시 Caret 보이지 않는 문제가 있습니다 [1] 지병철 2018.10.23 357
2258 안드로이드앱 사용시간을 알고 싶습니다. [2] LSM 2018.10.23 2106
2257 android socket error [2] devdev 2018.10.17 477
2256 stringstream 에 배열 넣기 [2] devdev 2018.10.23 564
2255 Delphi 10.2 버전에 DevExpress 18.1.6 버전 설치 관련 문의사항입니다. [1] 비사걸 2018.10.22 766
2254 프로그램 실행시 del1.mb 와같은 파일이 생겨요 [1] file 맛재현 2018.10.23 290
» FireDAC. FDMEMTable의 txt 반출관련 속도개선 문의드립니다. [4] 오바라미 2018.10.16 336