|
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.
|
[질문]문장을 바이너리로 변환은 되는데 저장이 않됩니다.
