richedit读写image字段

最新推荐文章于 2022-10-24 09:28:51 发布

chelen_jak

最新推荐文章于 2022-10-24 09:28:51 发布

阅读量753

点赞数

分类专栏： Delphi 文章标签： image string table 2010 c

Delphi 专栏收录该内容

59 篇文章 0 订阅

订阅专栏

来源：http://hi.baidu.com/%D6%D0%CC%EC%B4%F3%C3%D7/blog/item/31ea821fdbc05467f724e41e.html

procedure TForm2.Button1Click(Sender: TObject);
var

    ms:tmemorystream;
begin
    ms:=tmemorystream.Create;
    richedit1.Lines.SaveToStream(ms);
    adotable1.Append;
    tblobfield(adotable1.FieldByName('11')).LoadFromStream(ms);
    adotable1.Post;
end;

读取用dbrichedit

来源： http://topic.csdn.net/u/20101021/18/f3e9f81c-837b-4c19-9d10-c22d7104a257.html

【保存方法】

var
Str: string;
temStream: TMemoryStream;
begin
temStream := TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(temStream);
str := 'select * from Table1';
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(str);
AdoQuery1.Open;
AdoQuery1.Append;
AdoQuery1.FieldByName('ID').AsInteger:= 3;
TBlobField(AdoQuery1.FieldByName('RichEditText')).LoadFromStream(temStream);
AdoQuery1.Post;
temStream.Free;

【读取方法】

var
Str: string;
temStream: TMemoryStream;
begin
temStream := TMemoryStream.Create;
str := 'select * from Table1 ';
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(str);
AdoQuery1.Open;
TBlobField(AdoQuery1.FieldByName('RichEditText')).SaveToStream(temStream);
temStream.Seek(0,0);
RichEdit1.Lines.LoadFromStream(temStream);
temStream.Free;