如何把数据库中的BLOB字段数据读取到WORD中(50分)

B

bingren520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #1

我在数据库有多条记录要插入到WORD中,请问如何操作,最好有代码,急啊

 

I

ivy1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #2

procedure Tfmlog.liu2read;
var mStream:tmemorystream;
begin
mstream:=tmemorystream.Create;

try
mstream.Clear;
mstream.Position:=0;
TBlobField(qlog.FieldByName('logtext')).SaveToStream(mStream);
mstream.Position:=0;
rxrichedit1.Lines.LoadFromStream(mStream);
except
application.MessageBox('读取数据出错。','提示',0);
end;
mStream.Free;

end;

 

B

bingren520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #3

1楼说的是把数据插入到RXRICHEDIT控件中,不是WORD中啊

 

B

bingren520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #4

难道没人知道吗?急着用啊

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #5

有个dbrichview可以实现你的要求。下载该控件有demo的

 

B

bingren520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-12

• #6

没找到这个控件啊,难道就没有其他办法了吗

 

M

myid0602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-14

• #7

var
OleStream1: TMemoryStream;
begin
OleStream1:= TMemoryStream.Create;
table1.fieldbyname('wordfield').SaveToStream(OleStream1);
OleContainer1.LoadFromStream( OleStream1 );
OleStream1.Free;
oleContainer1.SaveAsDocument(cdir+'zz1.doc');
MyWord1.Selection.InsertFile(cdir+'zz1.doc', '', False, false, false);
end;

 

B

bingren520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #8

多人接受答案了。