|
아기사랑님 답변 감사합니다.
님께서 말씀하신 에러정보와 DataModule.pas 파일을 ZIP로 압축하여 첨부파일로 올림니다.
부디 좋은 결과 있기를 부탁드립니다.
아래는 공지사항 테이블 정보 입니다.
CREATE TABLE TF_MOTICE (
MOTICE_CD VARCHAR(20) NOT NULL,
MOTICE_NM BLOB SUB_TYPE 0 SEGMENT SIZE 32762,
ONOFF VARCHAR(10),
SAT_TIME VARCHAR(10),
END_TIME VARCHAR(10)
);
ALTER TABLE TF_MOTICE ADD PRIMARY KEY (MOTICE_CD);
>> 1. 개발/실행 플랫폼
>> (1) OS : Windows 7
>> (2) 개발툴 :Delphi 7
>> (3) 사용 Database : Firebird 2.1
>> 2. 개발 중인 프로그램 공지사항
>>
>> 3. 질문 내용
>> 안녕하세요?
>> 공지사항 프로그램을 만드는 중입니다.
>> 리치에디터를 이용하여 글꼴 폰트로 변환하여 스트림으로 DB에 바이너리로 변환은 되는데 저장중
>> 저장이 않되고 에러가 납니다. 첨부파일은 바이너리로 텍스트에 저장된 코드입니다.
>> 종전에는 부분적으로 코드를 올렸는데 답글이 없어서 이번에는 풀 코드로 질문을 드립니다.
>>
>>
>> 아래와 같이 저장전 SQL이나 Text로 저장해서 보면은 변환은 됩니다.
>> //showmessage(sSQL);
>> //Memo1.Lines.Add(sSQL);
>> //RI_MOTICE_NM.Lines.SaveToFile('C:\12345.txt');
>>
>>
>>
>> 아래는 공지사항 풀 코드입니다.
>>
>> unit Motice;
>>
>> interface
>>
>> uses
>> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>> Dialogs, AdvToolBtn, ExtCtrls, StdCtrls, ComCtrls, DB, DBTables, Buttons,
>> ADODB, Contnrs;
>>
>> type
>> TModeType = (mNone,mAppend,mUpdate,mDelete);
>> TMotice_F = class(TForm)
>> Panel1: TPanel;
>> Panel2: TPanel;
>> Panel3: TPanel;
>> Btn_Save: TAdvToolButton;
>> Btn_CLOSE: TAdvToolButton;
>> spAPPEND: TAdvToolButton;
>> spUPDATE: TAdvToolButton;
>> spDELETE: TAdvToolButton;
>> QR_MOTICE: TQuery;
>> Sp_Motice_CD: TSpeedButton;
>> ED_MOTICE_CD: TEdit;
>> RI_Motice_NM: TRichEdit;
>> Panel4: TPanel;
>> Panel5: TPanel;
>> FontDialog1: TFontDialog;
>> Btn_Font1: TAdvToolButton;
>> Memo1: TMemo;
>> procedure Btn_CLOSEClick(Sender: TObject);
>> procedure FormCreate(Sender: TObject);
>> procedure FormShow(Sender: TObject);
>> procedure ED_MOTICE_CDChange(Sender: TObject);
>> procedure Sp_Motice_CDClick(Sender: TObject);
>> procedure spAPPENDClick(Sender: TObject);
>> procedure Btn_SaveClick(Sender: TObject);
>> procedure Btn_Font1Click(Sender: TObject);
>> private
>> { Private declarations }
>> MODETYPE: TMODETYPE; // 현재의 모드상태
>> PROCEDURE COMPONENTCLEAR; // 컴포넌트 초기화 함수
>> PROCEDURE CHECKNUM(SENDER: TOBJECT);
>> procedure GET_MOTICE(sMOTICECD: string);
>> public
>> { Public declarations }
>> end;
>>
>> var
>> Motice_F: TMotice_F;
>>
>> implementation
>>
>> uses GOCOMU,ULSEQRUM, DataModule;
>>
>> var
>> startSQL : String;
>>
>> {$R *.dfm}
>>
>> // 작업모드를 수정모드로 전환한다.(프로그램 초기화)
>> procedure TMotice_F.FormCreate(Sender: TObject);
>> begin
>> spUPDATE.Click; // 수정버튼 활성화
>> end;
>>
>> // EDIT 초기화
>> PROCEDURE TMotice_F.COMPONENTCLEAR;
>> VAR
>> wCC: WORD;
>> BEGIN
>> // 전체 COMPONENT중에서 EDIT CHECKBOX초기화
>> FOR wCC:=1 TO COMPONENTCOUNT - 1 DO
>> IF COMPONENTS[wCC] IS TEDIT THEN
>> TEDIT(COMPONENTS[wCC]).TEXT:=''
>> ELSE
>> IF COMPONENTS[wCC] IS TCHECKBOX THEN
>> TCHECKBOX(COMPONENTS[wCC]).CHECKED:=FALSE
>> ELSE
>> IF COMPONENTS[wCC] IS TRichEdit THEN
>> TRichEdit(COMPONENTS[wCC]).Lines.Text:='';
>> end;
>>
>> // 등록된 자료 보여주기 함수
>> PROCEDURE TMotice_F.CHECKNUM(SENDER: TOBJECT);
>> Var
>> sSQL : String;
>> begin
>> sSQL := ' Select * From TF_MOTICE';
>> DM.SQL_OPEN(QR_MOTICE, sSQL);
>> if QR_MOTICE.Eof then
>> Exit;
>> try
>> QR_MOTICE.OPEN;
>> except
>> APPLICATION.MESSAGEBOX('공지사항 정보 테이블 생성도중 에러발생!!!',
>> '오류', MB_OK + MB_ICONINFORMATION);
>> QR_MOTICE.CLOSE;
>> end;
>> end;
>>
>> // 작업종료
>> procedure TMotice_F.Btn_CLOSEClick(Sender: TObject);
>> begin
>> Close;
>> end;
>>
>> // 등록된 자료를 보여준다.
>> procedure TMotice_F.FormShow(Sender: TObject);
>> Var
>> sSQL : String;
>> begin
>> startSQL := ' Select * From TF_MOTICE';
>> DM.SQL_OPEN(QR_MOTICE, startSQL);
>> if QR_MOTICE.Eof then
>> Exit;
>> try
>> QR_MOTICE.OPEN;
>> except
>> APPLICATION.MESSAGEBOX('공지사항 정보 테이블 생성도중 에러발생!!!',
>> '오류', MB_OK + MB_ICONINFORMATION);
>> QR_MOTICE.CLOSE;
>> end;
>> end;
>>
>> // 공지코드가 바뀌면 등록된 자료를 재 작성한다.
>> procedure TMotice_F.ED_MOTICE_CDChange(Sender: TObject);
>> begin
>> // 공지코드를 재 작성한다.
>> Sp_Motice_CD.Click;
>>
>> // 등록된 자로가 있으면 보여주고 삭제버튼 활성화여부 점검
>> IF SENDER = ED_MOTICE_CD THEN
>> BEGIN
>> GET_MOTICE(TRIM(TEDIT(SENDER).TEXT));
>> IF QR_MOTICE.ACTIVE THEN
>> QR_MOTICE.Locate('MOTICE_CD',TRIM(TEDIT(SENDER).TEXT),[lopartialkey]);
>> END;
>>
>> // 입력에서 공지사항 코드기 입력되면 공지 내용을 찾아준다.
>> if SENDER = ED_MOTICE_CD then
>> BEGIN
>> RI_MOTICE_NM .TEXT:=
>> GET_CODE_DESC('TF_MOTICE',1,[1],['MOTICE_CD'],[TRIM(ED_MOTICE_CD.TEXT)],'MOTICE_NM');
>> END;
>> end;
>>
>> // 등록된 자료 보여주기 함수
>> procedure TMotice_F.GET_MOTICE(sMOTICECD: string);
>> Var
>> Q1 : TQUery;
>> SS: TStringStream;
>> sTemp: String;
>> begin
>> if MODETYPE in [mNone] then
>> EXIT;
>>
>> Q1:=TQUERY.CREATE(SELF);
>> Q1.DATABASENAME:=ALIASNAME;
>> Q1.SQL.CLEAR;
>> Q1.SQL.ADD(' SELECT * FROM TF_MOTICE WHERE MOTICE_CD = '''+sMOTICECD+'''');
>> Q1.OPEN;
>> SS := TStringStream.Create('');
>> sTemp := Q1.FieldByName('MOTICE_NM').AsString;
>> RI_MOTICE_NM.Lines.SaveToStream(SS);
>> SS.Free;
>> Q1.CLOSE;
>> Q1.FREE;
>> ACTIVECONTROL:=RI_MOTICE_NM;
>> end;
>>
>> // 공지사항코드 실행
>> procedure TMotice_F.Sp_Motice_CDClick(Sender: TObject);
>> begin
>> ED_MOTICE_CD.Text := 'MOT001';
>> end;
>>
>> //-----------------------------------------------------------------------------
>> // BUTTON EVENT
>> //-----------------------------------------------------------------------------
>> // 삽입버튼(선택버튼 모드설정
>> procedure TMotice_F.spAPPENDClick(Sender: TObject);
>> Var
>> sSQL :String;
>> begin
>> // 현재 작업모드 상태 설전
>> if SENDER = spAPPEND then MODETYPE := mAPPEND
>> else
>> if SENDER = spUPDATE then MODETYPE := mUPDATE
>> else
>> if SENDER = spDELETE then MODETYPE := mDELETE;
>>
>> // 등록된 전체자료 보여주기
>> sSQL := 'SELECT * FROM TF_MOTICE';
>> DM.SQL_Open(QR_Motice, sSQL);
>> if not QR_Motice.Active then
>> QR_Motice.OPEN;
>> CHECKNUM(SENDER);
>> ACTIVECONTROL := RI_Motice_NM; // 커셔제어
>> end;
>>
>> // 저장버튼(설정된 모드에따라 SQL구문을 동적으로 생성하여 실행
>> procedure TMotice_F.Btn_SaveClick(Sender: TObject);
>> var
>> sSQL: string;
>> sEPM_CD, sStreamVal : String;
>> rtVal : Boolean;
>> // SS: TMemoryStream;
>> SS: TStringStream;
>> begin
>> // 공지명 점검
>> IF (Trim(RI_Motice_NM.Text) = '') then
>> begin
>> Application.MessageBox('공지명을 지정후 작업하시요...','공지명 점검',
>> mb_ok+mb_IconInformation);
>> ActiveControl := RI_Motice_NM;
>> Exit;
>> end;
>>
>> IF APPLICATION.MESSAGEBOX('입력된 데이타를 저장 하시겠습니까?','저장확인',
>> MB_YESNO+MB_ICONQUESTION) <> IDYES THEN
>> EXIT;
>>
>> SS := TStringStream.Create(RI_Motice_NM.Text);
>> try
>> SS.Position := 0;
>> RI_MOTICE_NM.Lines.SaveToStream(SS);
>>
>> sStreamVal := SS.DataString;
>>
>> // 모드에따른 SQL 구문생성
>> case MODETYPE of
>> mAPPEND: // 추가 모드시
>> begin
>> sSQL := 'INSERT INTO TF_MOTICE(MOTICE_CD,MOTICE_NM) '+
>> 'VALUES(' +
>> FORMAT('''%s''', [TRIM(ED_MOTICE_CD.TEXT)])+ //공지코드
>> FORMAT(',''%s''', [TRIM(sStreamVal)])+ //RI_MOTICE_NM.TEXT)])+ //공지명
>> ')';
>> end;
>> mUPDATE: // 수정모드
>> begin
>> sSQL := 'UPDATE TF_MOTICE SET' +
>> FORMAT(' MOTICE_NM =''%s''', [TRIM(sStreamVal)])+ // 공지명
>> FORMAT(' WHERE MOTICE_CD=''%s''', [TRIM(ED_MOTICE_CD.Text)]); // 공지코드
>> end;
>> mDELETE: // 삭제모드
>> begin
>> if APPLICATION.MESSAGEBOX('정말로 삭제 하시겠습니까?', '삭제확인',
>> MB_YESNO + MB_ICONQUESTION) <> IDYES then
>> EXIT;
>> sSQL := 'DELETE FROM TF_MOTICE Where ' +
>> 'MOTICE_CD = ' + FORMAT('''%s''', [TRIM(ED_MOTICE_CD.Text)]);
>> end;
>> end;
>>
>> //showmessage(sSQL);
>> //Memo1.Lines.Add(sSQL);
>> //RI_MOTICE_NM.Lines.SaveToFile('C:\12345.txt'); //<- 텍스트로 저장하면 바이너리로 저장 됨
>>
>> // 동적 QUERY 생성
>> rtVal := DM.SQL_Exec(DM.qryExec, sSQL); // DataModule를 Open한다.
>> if not rtVal then
>> begin
>> case MODETYPE of
>> mAPPEND:
>> APPLICATION.MessageBox('공지사항 테이블 추가도중 ERROR 발생!!!', '오류',
>> MB_OK + MB_ICONINFORMATION);
>> mUPDATE:
>> APPLICATION.MessageBox('공지사항 테이블 수정도중 ERROR 발생!!!', '오류',
>> MB_OK + MB_ICONINFORMATION);
>> mDELETE:
>> APPLICATION.MessageBox('공지사항 테이블 삭제도중 ERROR 발생!!!', '오류',
>> MB_OK + MB_ICONINFORMATION);
>> end;
>> end;
>>
>> sStreamVal := ss.DataString;
>> finally
>> SS.Free;
>> end;
>>
>> // 초기화
>> DM.SQL_OPEN(QR_MOTICE, startSQL);
>> CHECKNUM(SENDER);
>> ACTIVECONTROL:=RI_Motice_NM;
>> end;
>>
>> // 리치에디터에 블럭으로 글꼴과 색상 크기 폰트 넣기
>> procedure TMotice_F.Btn_Font1Click(Sender: TObject);
>> begin
>> if RI_Motice_NM.SelLength > 0 then
>> begin
>> FontDialog1.Font.Assign(RI_Motice_NM.DefAttributes);
>> if FontDialog1.Execute then
>> RI_Motice_NM.SelAttributes.Assign(FontDialog1.Font);
>> end;
>> end;
>>
>> end.
|
[질문]문장을 바이너리로 변환은 되는데 저장이 않됩니다.
