자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Delphi Richedit에 대해 질문 있습니다. RTF코드 추출 때문에 그렇습니다.

2013.12.31 16:49

한림대의료원정보기술센터 조회 수:5702

안녕하세요

이번년도에도 많은 도움을 주셔서 정말 감사합니다.

내년에도 XE5가 잘 되어 번창하시길 바랍니다.

0 한림대의료원

1 데브기어

2 만만세

3 새해 복 많이 받으세요 

저렇게 리치에디터내용이 있는 경우에

3번줄의 RTF코드를 추출하고 싶습니다.

새해 복 많이 받으세요  이렇게 그대로요 RTF코드 추출도 좋고 아니면 리치에디터에 카피가 되도 좋고요

혹시 방법이 없을 까요??

아 한라인씩 delete(x) 하는 명령어를 쓰지 않고 추출하는 방법을 여쭙는겁니다. ^^;;;

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 3

• 

  Humphery

  2013.12.31 22:42

  선택된 영역을 클립보드 복사, 붙여넣기 하는 방식으로 사용구현해 봤습니다.

  
  

  function RELineIndex(RE: TRichEdit; CharPos: integer): integer;

  begin

    Result := RE.Perform(WM_USER +54, 0, CharPos);

  end;

  
  

  function RELineStart(RE: TRichEdit; Index: integer): integer;

  begin

    if Index < 0 then

      Result := 0

    else

      Result := RE.Perform(EM_LINEINDEX, Index, 0);

  end;

  function RELineLength(RE: TRichEdit; Index: integer): integer;

  var

   n, len : integer;

  begin

    Result := -1;

    n := RE.Perform(EM_LINEINDEX, Index, 0);

    len  := RE.Perform(EM_LINEINDEX, Index +1, 0);

    if len > 0 then

      Result := len -n;

  end;

  
  

  function RELineEnd(RE: TRichEdit; Index: integer): integer;

  var

   n : integer;

  begin

    n := RE.Perform(EM_LINEINDEX, Index, 0);

    Result :=  RE.FindText(#10, n, $7FFFFFFF, []);

  end;

  
  

  procedure TForm3.FormCreate(Sender: TObject);

  var

    s, e: Integer;

  begin

    s := RELineStart(RichEdit1, 3) + 2;

    e := RELineEnd(RichEdit1, 3);

  
  

    RichEdit1.SelStart := s;

    RichEdit1.SelLength := e - s;

  
  

    RichEdit1.SelAttributes.Style := [fsItalic, fsUnderline];

  
  

    RichEdit1.SelStart := 0;

    RichEdit1.SelLength := 0;

  end;

  
  

  procedure TForm3.Button1Click(Sender: TObject);

  var

    s, e: Integer;

  begin

    s := RELineStart(RichEdit1, 3) + 2;

    e := RELineEnd(RichEdit1, 3);

  
  

    RichEdit1.SelStart := s;

    RichEdit1.SelLength := e - s;

  
  

    RichEdit1.CopyToClipboard;

    RichEdit2.PasteFromClipboard;

  end;
  첨부 [1]

  • RichEditSelcetion.zip [File Size:4.1KB/Download:100]

  댓글

• 한림대의료원정보기술센터

  2014.01.01 17:23

  답변 감사합니다
  이런 기발한 생각을 하시다니 정말 대단하십니다
  
  그런데 한가지 의문점이 있습니다
  우선 카피를 명령어를 쓰느데요
  말씀해주신 방법을 구현 하게 되면 한 pc에서 적어도 하루에 몇천번은 거뜬히 실행할것 같은데요
  혹시나 메모리 문제가 없을까요
  6개병원을 xe2로 오픈해 봤는데요 저 카피 명령어나 클립보드 오픈 에러가 많이 나더라고요
  선생님 생각은 어떠세요

  댓글

• 한림대의료원정보기술센터

  2014.01.03 17:38

  Humphery 님 덕분에 해결됐습니다. 감사합니다.

  카피 명령어를 쓰지 않고 한줄의 rtf코드를 가져옵니다.

  혹시 필요한분 있을지 몰라 올렸놓겠습니다.

  
  

  type

          TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte;

            cb: Longint; var pcb: Longint): Longint; stdcall;

  
  

          TEditStream = record

              dwCookie: Longint;

              dwError: Longint;

              pfnCallback: TEditStreamCallBack;

          end;

  
  

  function OutCallback(dwCookie: Longint; pbBuff: PByte; cb: Longint;

    var pcb: Longint): Longint; stdcall;

  begin

      if cb > 0 then

          pcb := TStream(dwCookie).Write(pbBuff^, cb);

      Result := 0;

  end;

  
  

  /* 원본 리치에디터, 한줄이 복사될 리치에디터, 원본 리치에디터의 라인 */

  procedure TForm.GetRTFTextCopy(redtFrom, redtTo: TRichEdit; ToLine: Integer);

      procedure GetRTF(re: TRichEdit; stream: TStream);

      var

          editstream: TEditStream;

      begin

          editstream.dwCookie := Longint(stream);

          editstream.dwError := 0;

          editstream.pfnCallback := OutCallback;

          /* 이줄이 중요합니다.  */

          re.Perform(EM_STREAMOUT, SF_RTF or SFF_SELECTION, Longint(@editstream));

          stream.Position := 0;

      end;

  var StartPosi, SelectPosi : Integer;

      mstream: TMemoryStream;

  begin

      StartPosi := redtFrom.Perform(EM_LINEINDEX, ToLine, 0);

      SelectPosi := Length(TrimRight(rchText.Lines.Strings[ToLine]));

  
  

      redtFrom.SelStart := StartPosi;

      redtFrom.SelLength := SelectPosi;

  
  

      if SelectPosi = 0 then

      begin

          redtTo.Clear;

          redtTo.Text := #13#10;

      end

      else

      begin

          mstream := TMemoryStream.Create;

          try

              GetRTF(redtFrom, mstream);

              redtTo.Clear;

              redtTo.Lines.LoadFromStream(mstream);

          finally

              FreeAndNil(mstream);

          end;

      end;

  
  

  end;

  
  

  
  

  
  

  
  

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	15759
공지	유용한 관련 사이트	관리자2	2014.03.20	54576
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	97972
1119	android API	leejh	2015.12.14	118
1118	cannot resolve unit name 'Winapi. windows'	charlesseo	2015.12.15	829
1117	OPEN API 를 이용하여 개발하려고 합니다. [2]	카이로스	2015.12.12	509
1116	컴포넌트 문의 드립니다. [1]	sue	2015.12.11	4
1115	서비스명을 알수 있나요? [1]	kim	2015.12.11	109
1114	파일복사 관련 문의입니다. [1]	굿네이처스	2015.12.11	312
1113	DB Express관련입니다 [1]	호로록	2015.12.11	4
1112	WebBrowser에서 메모리를 줄일수 있나요?	kim	2015.12.11	143
1111	release에서 Run하면 에러발생합니다.	kim	2015.12.10	315
1110	ClientDataSet을 XML로 저장시 [1]	라시드	2015.10.26	372
1109	[XE8] 세로고정모드에서 가로 풀화면 만들기 [1]	가을이다	2015.12.08	559
1108	Delphi 10 Seattle 에서 DevExpress v15.1.5 버전이 설치가 되지 않습니다. [3]	도사	2015.12.08	821
1107	BindingsList 에 LinkList 를 추가하는 방법을 알고 싶습니다. [2]	거북이	2015.12.05	152
1106	Webbrowser에서 텍스트나 html 소스를 가져오고 싶습니다. [1]	다서짱	2015.12.04	1196
1105	sns공유 기능문의 [1]	사랑남	2015.12.07	342
1104	DBX에러..긴급 답변요청합니다. [1]	kjm	2015.12.07	9
1103	안드로이드에서 Free 가 안되는 이유가 왜인가요? [1]	거북이	2015.12.05	180
1102	[재문의]seattle 버전 ios9 "External Exception 434C4E47432B2B00" 에러 [3]	사랑남	2015.11.20	647
1101	롤리팝에서 프로그램이 구동되지 않습니다 [4]	위드유	2015.12.02	418
1100	[질문]FastReport 리소스 파일을 한글로 바꿨는데, 이 리소스를 어떻게 적용을 시키는 거죠? [2]	바람돌이	2015.12.01	863

첫 페이지 104 105 106 107 108 109 110 111 112 113 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그