在oracle数据库中如何存取word文档!!!在线等呀,谢谢各位了!!!

[liduoduo]

如果我想把word文档存入数据库,然后怎么取?
请给出详细的实现语句,
谢谢大家了!!!!

[skystar99047]

转化为二进制数据流存储

[liduoduo]

我也是听说过,要转化为二进制数据流存流,可是一脑袋桨糊,到底具体的语句是怎么实现的,不是这一句转 化为二进制进行存储,那怎么实现呀,

希望能给一个具体的例子,谢谢了,
QQ:316784099 希望通过QQ聊一聊,

[qqking]

DECLARE
application OLE2.OBJ_TYPE;
sel_text VARCHAR2(1000);
args ole2.list_type;
check_file text_io.file_type;
no_file EXCEPTION;

al_id Alert;
al_button Number;

BEGIN

al_id := Find_Alert('MY_ALERT');

BEGIN
check_file := TEXT_IO.FOPEN('C:\test1.doc','R');
TEXT_IO.FCLOSE(check_file);
EXCEPTION
WHEN OTHERS THEN
Set_Alert_Property(al_id, alert_message_text, sqlcode || ', '||sqlerrm||'. No Files found.' );
al_button := Show_Alert( al_id );
RAISE no_file;
END;


application := OLE2.CREATE_OBJ('word.basic');
ole2.invoke(application,'Appshow');

args := ole2.create_arglist;
-- ole2.add_arg(args,'C:\test2.rtf');
ole2.add_arg(args,'C:\test1.doc');

ole2.invoke(application,'FileOpen',args);
ole2.destroy_arglist(args);

OLE2.INVOKE(application, 'EditSelectAll');
sel_text:=OLE2.GET_CHAR_PROPERTY(application, 'Selection');

OLE2.INVOKE(application, 'FileClose');
OLE2.INVOKE(application, 'FileExit');
OLE2.RELEASE_OBJ(application);

Set_Alert_Property(al_id, alert_message_text, 'sel_text = '||sel_text );
al_button := Show_Alert( al_id );

END;