在delphi中如何将一个word文件写到Oracle的Blob字段中?

weyoung 2002-04-16 11:43:44
加精
小弟需要在Delphi中往Oracle存取Word文档,表结构如下:
create table ywy_test(
test_no varchar2(20) not null,
test_word blob null);

刚才搜索了一下,发现相关的帖子很多,但好象不是很详细,希望哪位大虾能给出具体的代码。谢谢大家!
...全文
201 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
weyoung 2002-04-17
  • 打赏
  • 举报
回复
呵呵,我把字段的数据类型改为LONG RAW就可以了。谢谢大家。
snyhb 2002-04-17
  • 打赏
  • 举报
回复
是否是oracle 有问题?我也发现delphi 查询 oracle's blob字段时
显示 ORA-00932: 数据类型不一致(oracle 报错);如果是 sql server 则正常
hegum 2002-04-16
  • 打赏
  • 举报
回复
回复人: wwwwwwww(我我) (2002-1-28 9:46:44) 得0分
保存word文档:
procedure Tfrmdyqk1.BitBtn3Click(Sender: TObject);
var ms:TMemoryStream;
begin
ms:= TMemoryStream.create;
OleContainer1.SaveToStream (ms);
ms.Position := 0;

Query1.close;
Query1.sql.clear;
Query1.sql.text:='select * from oadbo.bw_qwb';
Query1.open;
Query1.append;
Query1.fieldbyname('wjid').value:=77777777 ;
Query1.fieldbyname('wjdid').value:=7;
Query1.fieldbyname('kzm').value:='txt';
TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
ms.free;
Query1.post;
//Query1.applyupdates;
Query1.close;
end;

取出word文档:
procedure Tfrmdyqk1.Button2Click(Sender: TObject);
var strstream:Tmemorystream;
//ls_qw:string;
begin

OleContainer1.DestroyObject;
strstream := Tmemorystream.Create;

query1.Close;
query1.sql.clear;
query1.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(77777777));
query1.open ;
query1.First;


Tblobfield(query1.fieldbyname('qw')).savetostream(strstream);
strstream.position:=0;
OleContainer1.loadfromstream(strstream);

strstream.free;
end;
CeleronII 2002-04-16
  • 打赏
  • 举报
回复
TBlobField(table1.FieldbyName('test_word')).LoadFromfile(wordfilename)
weyoung 2002-04-16
  • 打赏
  • 举报
回复
希望mshawk(憨憨)能给出具体的代码。
Liusp 2002-04-16
  • 打赏
  • 举报
回复
关注
MSHawk 2002-04-16
  • 打赏
  • 举报
回复
使用TMemoryStream读入此文件,Copy到TBlobField里面就可以了。
weyoung 2002-04-16
  • 打赏
  • 举报
回复
TO hegum(大概) :
问题的关键在于以下一段话:
with table1 do {‘table1’为含BLOB字段的表名}
begin
Open; //如果Table1含BLOB字段,则在OPEN时就报“Invaid Field Type”错误了。
Edit;
....

sorry,这个问题我在上一个帖子里没写清楚。
hegum 2002-04-16
  • 打赏
  • 举报
回复
这些都要改,你自己改了:)
hegum 2002-04-16
  • 打赏
  • 举报
回复
procedure TsampleForm.OpenDOCClick(Sender: TObject);
var
MemSize: Integer;
Buffer: PChar;
MyFile: TFileStream;
Stream: TBlobStream;
begin
OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC';{从对话窗选择文件}
if OpenDialog1.Execute then
begin
MyFile:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
with table1 do {‘table1’为含BLOB字段的表名}
begin
Open;
Edit;
Stream := TBlobStream.Create(FieldByName('Doc') as TBlobField,
bmWrite);{‘Doc’为BLOB字段名}
MemSize := MyFile.Size;
Inc(MemSize); {Make room for the buffer's null terminator.}
Buffer := AllocMem(MemSize); {Allocate the memory.}
try
Stream.Seek(0, soFromBeginning); {Seek 0 bytes from the stream's
end point}
MyFile.Read(Buffer^,MemSize);
Stream.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
try
Post;
except
on E: EDatabaseError do
if HandelException(E)< >0 then
exit
else
raise;
end;
end;
Doc_ole.CreateObjectFromFile(OpenDialog1.FileName,False);
Doc_ole.Run;{Doc_ole为ToleContainer构件名}
end;
end;

---- 以上为向数据库中写入的程序,应用中从对话窗取出文件在ToleContainer构件中显示的同时存入数据库。
procedure TsampleForm.GetDocClick(Sender: TObject);
var
MemSize: Integer;
Buffer: PChar;
MyFile: TFileStream;
Stream: TBlobStream;
begin
MyFile:=TFileStream.Create('c:\temp.tmp',fmCreate);
with Query1 do
begin
Stream := TBlobStream.Create(FieldByName('Doc') as TBlobField, bmRead);
MemSize := Stream.Size;
Inc(MemSize); {Make room for the buffer's null terminator.}
Buffer := AllocMem(MemSize); {Allocate the memory.}
try
Stream.Read(Buffer^,MemSize);
MyFile.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
end;
if FileExists('c:\temp.DOC') then
DeleteFile('c:\temp.DOC');
if FileExists('c:\temp.tmp') then
begin
RenameFile('c:\temp.tmp', 'c:\temp.DOC');
Doc_ole.CreateObjectFromFile('c:\temp.DOC',False);
Doc_ole.Run;
end;
end;

---- 以上程序为从数据库从将WORD文档取出,并放在temp.doc的临时文件上并在ToleContainer构件中显示。
---- 在程序的其他部份应准确控制表记录指针,使WORD文档的存取发生在正确的记录位置。

-----------------------------------------
hegum 2002-04-16
  • 打赏
  • 举报
回复
当然啊
Query1.sql.text:='select * from oadbo.bw_qwb';
Query1.open; //在这里报错:Invaid field type
*********这些是别人的程序啊
你要改成自己的啊。


http://202.96.70.228/cakk/delphi/delphi.htm
Delphi 5.X ADO_MTS_COM+高级程序设计篇 Delphi5开发人员指南 85,353k 配书源码 太大了!
delphi5企业级解决方案及应用剖析 13,278k    
delphi5编程实例与技巧 12,201k    
delphi5数据开发技术

weyoung 2002-04-16
  • 打赏
  • 举报
回复
to hegum(大概):
我照你写的去做,在执行到第十行时就报错了:
Query1.close;
Query1.sql.clear;
Query1.sql.text:='select * from oadbo.bw_qwb';
Query1.open; //在这里报错:Invaid field type
...

字段的数据类型为Blob。
weyoung 2002-04-16
  • 打赏
  • 举报
回复
to hegum(大概):我的Oracle表的数据类型设计为Blob,在以下语句会出错:
Query1.close;
Query1.sql.clear;
Query1.sql.text:='select * from oadbo.bw_qwb';
Query1.open; //在这一步是报错:invaid field type
Query1.append;
Query1.fieldbyname('wjid').value:=77777777 ;
....

还望不吝赐教

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧