자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
2999 android API file leejh 2015.12.14 118
2998 help 이용관련 [2] 한시민 2016.02.26 118
2997 [마이그레이션] if char in CharSet then 구문에서 W1050 경고를 너무 많이 발생합니다. 험프리 2017.01.31 119
2996 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 8 [1] 관리자 2016.05.10 119
2995 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 25 - Exercise 2 [2] 관리자 2016.05.27 119
2994 디버깅 방법 문의드립니다. 엘타 2016.08.27 119
2993 정현수님의 토스트 샘플로 공부중 동작하지 않아 질문입니다. [2] 나즈나 2017.06.14 119
2992 IDETheme.ActnCtrls 에러 [1] file Riley 2020.04.17 119
2991 1대 서버에 RAD 서버 패키지 2개 구동하려고 합니다. 가능한 시스템 구성인가요? file 파다닥 2020.04.21 119
2990 Rest 클라이언트 Post방법 질문합니다. [2] 루피 2017.03.29 119
2989 파이어몽키에서 아이폰으로 설치시 e8000051에러가 납니다. file 김태윤 2017.02.15 119
2988 [IoT 세미나] 비콘이 발생하는 데이터의 크기는 얼마나 되나요? Humphery 2015.09.03 120
2987 [시애틀 출시세미나] FireDAC으로 MongoDB 연결하는 내용을 안내해 주세요. Humphery 2015.09.11 120
2986 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 10 - Exercise 3 [1] 관리자 2016.05.10 120
2985 datasnap 레코드수정방법 문의드립니다 천년바우 2016.10.17 120
2984 ble 관련 질문 드립니다. [1] kimds 2017.05.30 120
2983 RAD 스튜디오질문있습니다. [1] JK 2017.11.28 120
2982 No Platform availabel for current project [1] file 까칠스프 2018.04.12 120
2981 [세미나][DavidI] MidaConverter를 이용한 프로젝트 변환과 비콘 연동에 대해 더 알고 싶습니다. 험프리 2015.10.21 120
2980 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 14 - Exercise 4 [1] 관리자 2016.05.10 121