간단할것 같은데 안되네여...ㅠ.ㅠ

Richedit의 내용을 형식을 포함해서 저장을 하려구여...



그래서 stream형으로 바꿔서 저장할려구 했는데

저장할때 계속 에러가 나네여...



db는 Access를 사용합니다...(데이터형식은 OLE개체를 선택했구여...)



=====================================================================

procedure TfrmMemoData.mpInsert;

var

Data_Save : TMemoryStream;

begin

Data_Save := TMemoryStream.Create;

Editor.Lines.SaveToStream(Data_Save);



if not dmDataM.dbData.InTransaction then

dmDataM.dbData.StartTransaction;

try

with qMemoData do

begin

close;

sql.Clear;

sql.Add(' insert into memoCollect ');

sql.Add(' (mDate, formTag, memoNo, memoTag, memoData) ');

sql.Add(' values ');

sql.Add(' (:mDate, :formTag, :memoNo, :memoTag, :memoData) ');



ParamByName('mDate').AsString := gYear + '0000';

ParamByName('formTag').AsString := FormTag;

ParamByName('memoNo').AsInteger := memoNo;

ParamByName('memoTag').AsString := '1';

ParamByName('memoData').LoadFromStream(Data_Save, ftBlob);

ExecSQL;

end;



dmDataM.dbData.Commit;



except

dmDataM.dbData.Rollback;

Raise;

end;

Data_Save.Free;



end;

==================================================================



방법이 틀린건가여?

아시는분 방법 좀 알려주세여...