RxRichEdit에 있는 내용을 db blob 필드에 입력하려고 하는데요.

RxRichEdit에는 텍스트와 붙여 넣기한 이미지가 같이 붙어 있습니다.

얼추 코딩 알고리즘은 다름과 같습니다. 물론 실행은 안되고요.

이런식으로 입력 또는 출력에 성공하신 도사님들 부디 답변을 부탁드립니다.

(득도의 길은 어디인가요.)



procedure TForm1.Button1Click(Sender: TObject);

var

mStream : TBlobStream;

begin

try

Query1.Active := False;

Query1.SQL.Clear;

Query1.Sql.Add(' INSERT INTO BOARDMASTERT VALUES (''10000001'',''20010910144430'','''','''','''',:Col2,'''') ');

mStream := TBlobStream.Create(Query1.FieldByName('board_desc')asTBlobField ,bmReadWrite);

Edit.Lines.SaveToStream(mStream);



Query1.ExecSQL;

Database1.StartTransaction;

Database1.Commit;

mStream.Free;



except on e:exception do

begin

showmessage(e.message);

end;

end;