자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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
1893 WSDL 함수 호출 [2] 나마 2020.08.26 891
1892 Delphi Android 에서 LocationSendor 를 활용해 네이버 주소 가져오는 방법 문의 [1] max 2020.08.22 224
1891 C# 소스를 델파이로.. madoka 2020.08.25 162
1890 Delphi 10.4 에서 iOS AppStore 배포 [1] 로로봉 2020.08.21 386
1889 델파이 10.4 -- 안드로이드 구버전 빌드에 대하여... 혹시 방법이 있나요? [2] 델사냥 2020.08.18 451
1888 Delphi 10.4 iOS Camera 실행 오류 [1] 로로봉 2020.08.19 309
1887 project 그룹 안의 bpl 간의 변수 공유에 대해 질문드립니다. [2] 국카 2020.08.13 27946
1886 FastReport 관련 문의드립니다. [1] 루키 2020.08.13 294
1885 bpl파일을 만들려고 합니다. [3] 이홍석 2015.04.07 2692
1884 업데이트 서브스크립션을 갱신하지 않을경우 [5] 100jk 2020.07.22 273
1883 웹 상에서 이미지 다운시 질문 [4] 희망나라 2020.01.30 895
1882 TButtonGroup의 item button 클릭시 Event [1] morak 2020.08.06 172
1881 (공유) 컴파일 시 E1026 File not found: 'Controls.res' 오류가 발생합니다. file 험프리 2020.08.06 509
1880 미리보기와 실제출력이 틀리는 이유? 제임스리 2020.08.05 150
1879 [FireDAC][Phys]-300. Driver [ORACLE] is not registered. Correct driver ID or define [ORACLE] virtual driver in FDDriver.ini [1] 나마 2020.08.05 256
1878 문장안에 숨어있는 아스키값을 표시할순 없을까요? [1] file 라빌레나 2020.07.29 318
1877 시리얼 통신 질문 드립니다. [3] 뮤뮤 2020.07.21 1233
1876 C# DLL 함수정의를 델파이에서 어떻게 하나요? [1] madoka 2020.07.24 522
1875 델파이 JSON 관련 질문 있습니다. [2] yawayo 2020.07.20 318
1874 [EMS] Rest Server 개발에 문의가 있습니다. [2] 효진 2020.07.17 261