|
마바리님 답변 감사합니다.
현재 저장은 위에 테이블 정보와 같이 BLOB 형식입니다.
검색에서 얻은 지식으로 Parameter로 코팅을 해도 형식이 잘못되었는었는지 잘 안됩니다.
위 저장코드에서 Parameter를 어디에 어떻게 너어야할지 이리저리 머리를 짜내어 코팅을 해봐도 결국 실패하였습니다.
아래코드 //표시된곳은 허접하게 Parameter 구성하다 실패한 코드 입니다. 어디가 잘못되었는지 봐주셨으면 고맙겠습니다.
// 저장버튼(설정된 모드에따라 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 := TMemoryStream.Create;
SS := TStringStream.Create(RI_Motice_NM.Text);
// SS := TStream.Create;//(RI_MOTICE_NM.Text);
try
SS.Position := 0;
// RI_MOTICE_NM.Lines.SaveToFile('C:\12345.txt');
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)])+ //공지코드
// ', :MOTICE_NM' +
//FORMAT(',''%s''', [TRIM(RI_MOTICE_NM.TEXT)])+ //공지명
FORMAT(',''%s''', [TRIM(sStreamVal)])+ //RI_MOTICE_NM.TEXT)])+ //공지명
')';
end;
mUPDATE: // 수정모드
begin
sSQL := 'UPDATE TF_MOTICE SET' +
//FORMAT(' MOTICE_NM =''%s''', [TRIM(RI_MOTICE_NM.TEXT)])+ // 공지명
FORMAT(' MOTICE_NM =''%s''', [TRIM(sStreamVal)])+ // 공지명
// ':MOTICE_NM'; //'WHERE MOTICE_CD= :MOTICE_NM';//
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_NM ' + // 'MOTICE_CD = :MOTICE_NM';
'MOTICE_CD = ' + FORMAT('''%s''', [TRIM(ED_MOTICE_CD.Text)]);
end;
end;
// NOTICE1
//showmessage(sSQL);
RI_MOTICE_NM.Lines.SaveToFile('.\RI_MOTICE.txt');
Memo1.Lines.Add(sSQL);
// 동적 QUERY 생성
// rtVal := DM.SQL_ExecBlob(DM.qryExec, sSQL, 'MOTICE_NM', SS); // DataModule를 Open한다.
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;
>> 아기사랑님 답변 감사합니다.
>> 님께서 말씀하신 에러정보와 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.
|
[재질문]문장을 바이너리로 변환은 되는데 저장이 않됩니다.
