从数据库中读入。。。。。
VAR
bs:tblobstream;
BEGIN
try
bs:=tblobstream.Create(tblobfield(query1.fieldbyname('blobfield')),bmread);
except
exit;
end;
if bs.size=0 then
begin
showmessage('文件没录入');
bs.Free;
exit;
end;
with oleform.olecontainer1 do
try
begin
loadfromstream(bs);
bs.free;
if state<>osempty then
begin
oleform.drwj.enabled:=false;
oleform.ShowModal;
end;
end;
except;
end;