한국 델파이 개발자 모임 - RichEdit의 내용을 DB에 서식을 포함하여 저장하는 방법 좀 알려주세요.

RichEdit의 내용을 DB에 서식을 포함하여 저장하는 방법 좀 알려주세요.

여기에 있는 무수한 글을 읽어보며 정답을 찾기 위해 노력했지만

저와 같은 고민을 하고 있는 분들의

질문은 있으나 답이 없어 죄송스럽지만 글을 올립니다.

상당히 간단한 문제이니 한번만 봐 주시길 바랍니다.

Richedit에서 작성된 문서를 Oracle DB에 저장할려고 했는데....

1. 첫번째 시도

DataModule_Report.Query_ReportContents.ParamByName('contents').AsString :=

richedit_Editor.Lines.Text;

이렇게 한 후 updatesql을 이용해 DB에 저장을 하니 서식은 온데 간데없고

순수 text만 저장이 되더군요.

2. 두번째 시도

그래서 여기 있는 글들을 읽어보고 다음과 같이 하였으나 여전히 에러가

생기며 안되네요.(이 방법이 맞는지 모르지만 시도 해봤습니다)

var

ContentsStream : TMemoryStream;

begin

ContentsStream := TMemoryStream.Create;

richedit_Editor.Lines.SaveToStream(ContentsStream);

DataModule_Report.Query_ReportContents.Close;

DataModule_Report.Query_ReportContents.SQL.Clear;

DataModule_Report.Query_ReportContents.SQL.Add('update report');

DataModule_Report.Query_ReportContents.SQL.ADD('set contents=:contents');

DataModule_Report.Query_ReportContents.SQL.ADD('where obj_id = :obj_id');

DataModule_Report.Query_ReportContents.ParamByName('contents').LoadFromStream

:= (ContentsStream, ftBlob);

DataModule_Report.Query_ReportContents.ParamByName('obj_id').AsString

:= '1234';

DataModule_Report.Query_ReportContents.ExecSQL;

도대체 어떻게 해야 서식을 포함한 모든 내용을 db에 저장 할 수

있을 까요?

고수님 도와주세요.......

이 게시물을

3 COMMENTS

김일영 • 2001.10.25 13:33

델파이 팁모아에서 'File'로 검색했습니다.

아마 이것이면 충분할 것 같군요.

http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=1162&db=tips&fval=File&backdepth=1

검색을 생활화합시다.

난..안돼 wrote:

> 여기에 있는 무수한 글을 읽어보며 정답을 찾기 위해 노력했지만

> 저와 같은 고민을 하고 있는 분들의

> 질문은 있으나 답이 없어 죄송스럽지만 글을 올립니다.

> 상당히 간단한 문제이니 한번만 봐 주시길 바랍니다.

>

> Richedit에서 작성된 문서를 Oracle DB에 저장할려고 했는데....

>

> 1. 첫번째 시도

> DataModule_Report.Query_ReportContents.ParamByName('contents').AsString :=

> richedit_Editor.Lines.Text;

>

> 이렇게 한 후 updatesql을 이용해 DB에 저장을 하니 서식은 온데 간데없고

> 순수 text만 저장이 되더군요.

>

> 2. 두번째 시도

> 그래서 여기 있는 글들을 읽어보고 다음과 같이 하였으나 여전히 에러가

> 생기며 안되네요.(이 방법이 맞는지 모르지만 시도 해봤습니다)

>

> var

> ContentsStream : TMemoryStream;

> begin

> ContentsStream := TMemoryStream.Create;

> richedit_Editor.Lines.SaveToStream(ContentsStream);

>

> DataModule_Report.Query_ReportContents.Close;

> DataModule_Report.Query_ReportContents.SQL.Clear;

> DataModule_Report.Query_ReportContents.SQL.Add('update report');

> DataModule_Report.Query_ReportContents.SQL.ADD('set contents=:contents');

> DataModule_Report.Query_ReportContents.SQL.ADD('where obj_id = :obj_id');

> DataModule_Report.Query_ReportContents.ParamByName('contents').LoadFromStream

> := (ContentsStream, ftBlob);

> DataModule_Report.Query_ReportContents.ParamByName('obj_id').AsString

> := '1234';

> DataModule_Report.Query_ReportContents.ExecSQL;

>

> 도대체 어떻게 해야 서식을 포함한 모든 내용을 db에 저장 할 수

> 있을 까요?

>

> 고수님 도와주세요.......

>

>
- 0
- 0
- 삭제
- 수정
- 댓글
난..안돼 • 2001.10.25 20:17

답변에 감사합니다.

그런데 저는 파일로 저장하는 것이 아니라

RichEdit의 내용을 DB Table에 넣고 싶거든요.

이건 어떻게 해야되죠? 팁이라든가 Q&A 다 뒤져

봤는데 찾을 수가 없었어요....

부탁 할께요.... 고수님....

김일영 wrote:

> 델파이 팁모아에서 'File'로 검색했습니다.

> 아마 이것이면 충분할 것 같군요.

>

> http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=1162&db=tips&fval=File&backdepth=1

>

> 검색을 생활화합시다.

>

>

>

> 난..안돼 wrote:

> > 여기에 있는 무수한 글을 읽어보며 정답을 찾기 위해 노력했지만

> > 저와 같은 고민을 하고 있는 분들의

> > 질문은 있으나 답이 없어 죄송스럽지만 글을 올립니다.

> > 상당히 간단한 문제이니 한번만 봐 주시길 바랍니다.

> >

> > Richedit에서 작성된 문서를 Oracle DB에 저장할려고 했는데....

> >

> > 1. 첫번째 시도

> > DataModule_Report.Query_ReportContents.ParamByName('contents').AsString :=

> > richedit_Editor.Lines.Text;

> >

> > 이렇게 한 후 updatesql을 이용해 DB에 저장을 하니 서식은 온데 간데없고

> > 순수 text만 저장이 되더군요.

> >

> > 2. 두번째 시도

> > 그래서 여기 있는 글들을 읽어보고 다음과 같이 하였으나 여전히 에러가

> > 생기며 안되네요.(이 방법이 맞는지 모르지만 시도 해봤습니다)

> >

> > var

> > ContentsStream : TMemoryStream;

> > begin

> > ContentsStream := TMemoryStream.Create;

> > richedit_Editor.Lines.SaveToStream(ContentsStream);

> >

> > DataModule_Report.Query_ReportContents.Close;

> > DataModule_Report.Query_ReportContents.SQL.Clear;

> > DataModule_Report.Query_ReportContents.SQL.Add('update report');

> > DataModule_Report.Query_ReportContents.SQL.ADD('set contents=:contents');

> > DataModule_Report.Query_ReportContents.SQL.ADD('where obj_id = :obj_id');

> > DataModule_Report.Query_ReportContents.ParamByName('contents').LoadFromStream

> > := (ContentsStream, ftBlob);

> > DataModule_Report.Query_ReportContents.ParamByName('obj_id').AsString

> > := '1234';

> > DataModule_Report.Query_ReportContents.ExecSQL;

> >

> > 도대체 어떻게 해야 서식을 포함한 모든 내용을 db에 저장 할 수

> > 있을 까요?

> >

> > 고수님 도와주세요.......

> >

> >
- 0
- 0
- 삭제
- 수정
- 댓글
김일영 • 2001.10.26 02:05

제 환경에서 테스트는 해볼수 없었지만,

여기저기 소스를 꿰다 붙여서 만들어 봤습니다.

DB로 저장하는 부분만 만들었습니다.

읽어오는 것은 거꾸로 하시면 되겠죠.

아마 될거라고 생각합니다.

수고하세요.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;

type

TForm1 = class(TForm)

Database1: TDatabase;

Query1: TQuery;

UpdateSQL1: TUpdateSQL;

Query1EDATE: TStringField;

Query1FNAME: TStringField;

Query1FILES: TBlobField;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

MemoryStream: TMemoryStream;

begin

MemoryStream := TMemoryStream.Create;

richedit_Editor.Lines.SaveToStream(MemoryStream);

DataSource1.DataSet.Insert;

Query1EDATE.AsString := '20010630';

Query1FNAME.AsString := 'c:tempone.txt';

Query1FILES.LoadFromStream(MemoryStream);

MemoryStream.Free;

with Query1 do begin

Database1.StartTransaction;

try

ApplyUpdates;

Database1.Commit;

except

Database1.Rollback;

raise;

end;

CommitUpdates;

end;

end;

end.

난..안돼 wrote:

> 답변에 감사합니다.

>

> 그런데 저는 파일로 저장하는 것이 아니라

> RichEdit의 내용을 DB Table에 넣고 싶거든요.

>

> 이건 어떻게 해야되죠? 팁이라든가 Q&A 다 뒤져

> 봤는데 찾을 수가 없었어요....

>

> 부탁 할께요.... 고수님....

>

>

>

>

> 김일영 wrote:

> > 델파이 팁모아에서 'File'로 검색했습니다.

> > 아마 이것이면 충분할 것 같군요.

> >

> > http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=1162&db=tips&fval=File&backdepth=1

> >

> > 검색을 생활화합시다.

> >

> >

> >

> > 난..안돼 wrote:

> > > 여기에 있는 무수한 글을 읽어보며 정답을 찾기 위해 노력했지만

> > > 저와 같은 고민을 하고 있는 분들의

> > > 질문은 있으나 답이 없어 죄송스럽지만 글을 올립니다.

> > > 상당히 간단한 문제이니 한번만 봐 주시길 바랍니다.

> > >

> > > Richedit에서 작성된 문서를 Oracle DB에 저장할려고 했는데....

> > >

> > > 1. 첫번째 시도

> > > DataModule_Report.Query_ReportContents.ParamByName('contents').AsString :=

> > > richedit_Editor.Lines.Text;

> > >

> > > 이렇게 한 후 updatesql을 이용해 DB에 저장을 하니 서식은 온데 간데없고

> > > 순수 text만 저장이 되더군요.

> > >

> > > 2. 두번째 시도

> > > 그래서 여기 있는 글들을 읽어보고 다음과 같이 하였으나 여전히 에러가

> > > 생기며 안되네요.(이 방법이 맞는지 모르지만 시도 해봤습니다)

> > >

> > > var

> > > ContentsStream : TMemoryStream;

> > > begin

> > > ContentsStream := TMemoryStream.Create;

> > > richedit_Editor.Lines.SaveToStream(ContentsStream);

> > >

> > > DataModule_Report.Query_ReportContents.Close;

> > > DataModule_Report.Query_ReportContents.SQL.Clear;

> > > DataModule_Report.Query_ReportContents.SQL.Add('update report');

> > > DataModule_Report.Query_ReportContents.SQL.ADD('set contents=:contents');

> > > DataModule_Report.Query_ReportContents.SQL.ADD('where obj_id = :obj_id');

> > > DataModule_Report.Query_ReportContents.ParamByName('contents').LoadFromStream

> > > := (ContentsStream, ftBlob);

> > > DataModule_Report.Query_ReportContents.ParamByName('obj_id').AsString

> > > := '1234';

> > > DataModule_Report.Query_ReportContents.ExecSQL;

> > >

> > > 도대체 어떻게 해야 서식을 포함한 모든 내용을 db에 저장 할 수

> > > 있을 까요?

> > >

> > > 고수님 도와주세요.......

> > >

> > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 드기
- •
- 2001.10.25 18:31
- 2 COMMENTS
- /
- 0 LIKES
OnTerminate가 뭐하는거에요??
- 바부이니
  
  •
  
  2001.10.25 19:48
  
  Occurs after the thread's Execute method has returned and before the thread is destroyed. property...
- 이경문
  
  •
  
  2001.10.27 07:58
  
  OnTerminate라는 것은 win32 API에 있는 것이 아니고 TThread라는 class에서 제공하는 것입니다. thread...
- 김상혁
- 2001.10.25 17:53
- 0 COMMENTS
- /
- 0 LIKES
DECISION CUBE 엑셀출력
- 우리들
- •
- 2001.10.25 13:27
- 1 COMMENTS
- /
- 0 LIKES
프로그램에서 네트워크오류 에러후 재 연결은.....
- 이경문
  
  •
  
  2001.10.27 08:08
  
  종료가 안되는 원인은 대개 잘못 작성된 application때문에 그렇습니다. 그 원인은 한두가지가 아니구요. ...
- 박지원
- •
- 2001.10.25 08:22
- 1 COMMENTS
- /
- 0 LIKES
ParamByName 이 머죠?
- ^-_-^
  
  •
  
  2001.10.25 10:02
  
  yo` query 콤포에서 사용하는건데요...sql구문을 작성할때 where절 같은데서 변수형태로 넣을때 사용합...
- 남윤우
- 2001.10.25 07:44
- 0 COMMENTS
- /
- 0 LIKES
Client에서 쓰는 데이터베이스와 서버의 데이터베이스의 데이터 싱크?
- wizig.net
- 2001.10.25 06:56
- 0 COMMENTS
- /
- 0 LIKES
E-Mail 오류체크는 어떻게....
- 델초보
- •
- 2001.10.25 06:36
- 1 COMMENTS
- /
- 0 LIKES
PageControl의 색상을 바꾸고 싶습니다
- 공룡
  
  •
  
  2001.10.25 07:16
  
  델초보 wrote: > PageControl의 Tab 색상이 아닌 > Body(바탕)의 색상을 바꾸고 싶습니다. > > 이거땜...
- 델파이사랑
- 2001.10.25 06:34
- 0 COMMENTS
- /
- 0 LIKES
퀵리포트 미리보기에서 질문요...
- 인터기초
- •
- 2001.10.25 05:54
- 2 COMMENTS
- /
- 0 LIKES
inseret문제 (인터베이스)
- 허재팔
  
  •
  
  2001.10.26 04:33
  
  저는 MSSQL과 Access에서 MAX란 함수로 최대값을 찾습니다. SELECT vno as MaxNo FROM vcust 이런식...
- 김대환
  
  •
  
  2001.10.27 01:15
  
  허재팔 wrote: > 저는 MSSQL과 Access에서 MAX란 함수로 > 최대값을 찾습니다. > > SELECT vno as Max...
- 난..안돼
- •
- 2001.10.25 13:27
- 3 COMMENTS
- /
- 0 LIKES
RichEdit의 내용을 DB에 서식을 포함하여 저장하는 방법 좀 알려주세요.

여기에 있는 무수한 글을 읽어보며 정답을 찾기 위해 노력했지만 저와 같은 고민을 하고 있는 분들의 질문은 있으나 답이 없어 죄송스럽지만 글을 올립니다. 상당히 간단한 문제이니 한번만 봐 주시길 바랍니다. Richedit에서 작성된 문서...
- 김일영
  
  •
  
  2001.10.25 13:33
  
  델파이 팁모아에서 'File'로 검색했습니다. 아마 이것이면 충분할 것 같군요. http://www.delphi.co.kr...
- 난..안돼
  
  •
  
  2001.10.25 20:17
  
  답변에 감사합니다. 그런데 저는 파일로 저장하는 것이 아니라 RichEdit의 내용을 DB Table에 넣고 싶...
- 김일영
  
  •
  
  2001.10.26 02:05
  
  제 환경에서 테스트는 해볼수 없었지만, 여기저기 소스를 꿰다 붙여서 만들어 봤습니다. DB로 저장하는 ...
- helpme
- •
- 2001.10.25 05:29
- 1 COMMENTS
- /
- 0 LIKES
델파이 6에 관한 책 추천해 주세요.
- 서성호
  
  •
  
  2001.10.25 08:25
  
  helpme wrote: > > 현재 델파이6 책이 몇개 나와 있더군요. > > 헌데 책값도 책값이려니와 앞서 구입...
- 델파이사랑
- •
- 2001.10.25 05:03
- 1 COMMENTS
- /
- 0 LIKES
정수형 12500 을 문자형 12,500 으로 바꾸려면???
- 초보
  
  •
  
  2001.10.25 05:11
  
  QRlabel1.Caption := FormatFloat('#,##0',num) 델파이사랑 wrote: > 안녕하세요? > 퀵리포트 출력하...
- 드기
- •
- 2001.10.25 05:01
- 1 COMMENTS
- /
- 0 LIKES
구조체를 파일에 입출력하는 방법????
- parkisu
  
  •
  
  2001.10.25 20:28
  
  드기 wrote: > 구조체를 텍스트 파일에 입출력하는 방법좀 갈켜주세요.. > > Read, Write 함수는 char...
- 델피언
- 2001.10.25 04:48
- 0 COMMENTS
- /
- 0 LIKES
RS232C 통신 소스인데 궁금한것이..2
- 김종찬
- 2001.10.25 05:15
- 0 COMMENTS
- /
- 0 LIKES
Re: RS232C 통신 소스인데 궁금한것이..2
- 델피언
- •
- 2001.10.25 04:47
- 1 COMMENTS
- /
- 0 LIKES
RS232C 통신 소스인데 궁금한것이..
- 김종찬
  
  •
  
  2001.10.25 05:39
  
  STX, ETX... 등은 시리얼 통신(RS232c)을 하기위한 약속된 코드인데, STX = CHAR( $02); 는 STX 라는 ...
- 델파이허접
- •
- 2001.10.25 03:00
- 4 COMMENTS
- /
- 0 LIKES
인터베이스에서 디비그리드 쓸때...
- 김지태
  
  •
  
  2001.10.25 03:54
  
  델파이허접 wrote: > 인터베이스를 써서 디비그리드에 테이블하고 데이타소스를 연결하고 > 실행하면 패...
- 델파이허접
  
  •
  
  2001.10.25 19:14
  
  김지태 wrote: > 델파이허접 wrote: > > 인터베이스를 써서 디비그리드에 테이블하고 데이타소스를 연결...
- 김지태
  
  •
  
  2001.10.25 20:30
  
  > 헤헤 감사합니다. > > 제가여 해봤는데여 데이타베이스에 Database Name이 있고 Name이 있는데 > 둘...
- 델파이허접
  
  •
  
  2001.10.25 20:53
  
  설명 감사합니다. 많은 도움이 되었습니다. 설명 하신것 말고도 제가 약간에 실수를 했네여... ^^* ...
- 바보
- 2001.10.25 02:55
- 0 COMMENTS
- /
- 0 LIKES
(질문) rx-lib에 대한 한글판메뉴얼이나 설명서 혹시 없나요
- bingyou
- 2001.10.25 02:40
- 0 COMMENTS
- /
- 0 LIKES
Windows ME와 Delphi6
- Tarzan
- 2001.10.25 01:55
- 0 COMMENTS
- /
- 0 LIKES
ADO 연결에 관한 질문입니다

난..안돼
2001/10/25 13:27
Views280

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1526 1527 1528 1529 1530 1531 1532 1533 1534 1535

Last Page→