上网找了一些资料，看了itpub的一些帖子，现在将这个例子整理出来，希望能够提供一些参考。

手边没有生成pdf的工具，也就用XML Publisher代劳了：）

概要：

本文通过一个例子，展示怎样在EBS使用XMLP输出报表，并在报表中输出存
储在数据库Blob字段中的图片。
下面将整个开发的过程简略描述一下， EBS 版本为11.5.10.2。
1) 建立数据表。
2) 载入数据。
3) 编写数据编码的函数。
4) 编写报表。
5) 注册并发请求。
6) 运行并发请求，得到用于开发的临时XML数据文件。
7) 开发模板文件。
8) 注册XMLP的数据和模板文件。
9) 运行检查结果。

文件附件：

开始的那个附件中漏掉一步，现在添加补充完整了。同时添加了注册xml 模板和数据的拷屏，欢迎大家提供宝贵意见

謝謝分享~~

QUOTE:

---

最初由 adian 发布
上网找了一些资料，看了itpub的一些帖子，现在将这个例子整理出来，希望能够提供一些参考。

手边没有生成pdf的工具，也就用XML Publisher代劳了：）

---

好东西。。如果可执行。本文该受精。

QUOTE:

---

最初由 adian 发布
上网找了一些资料，看了itpub的一些帖子，现在将这个例子整理出来，希望能够提供一些参考。

手边没有生成pdf的工具，也就用XML Publisher代劳了：）

---

一个问题。这个函数李用到了Wf_Mail_Util.EncodeBLOB,这里的作用是什么呢？：

PHP code:



CREATE OR REPLACE FUNCTION mob_getbase64String( P_blob BLOB )


RETURN CLOB


IS


l_result CLOB;


BEGIN


DBMS_LOB.createtemporary(lob_loc => l_result, CACHE => FALSE, dur => 0);


Wf_Mail_Util.EncodeBLOB ( P_blob


, l_result );   <font color="red">这句话的目的是什么的？[/COLOR] 


RETURN ( l_result );


END mob_getbase64String;

谢谢。

希望啊，混迹ITPUB这么多年，一个精华都没有呢.....

QUOTE:

---

最初由 chirsdong 发布



好东西。。如果可执行。本文该受精。

---

是将blob转换成clob的函数，如果数据库上没有Wf_Mail_Util这个包，用如下的过程试一下，我将其从Wf_Mail_Util剥离出来，先创建这个过程，

PHP code:



-- EncodeBLOB


--   Receives a BLOB input and encodes it to Base64 CLOB


-- IN


--   BLOB data


-- OUT


--   CLOB data








CREATE OR REPLACE PROCEDURE EncodeBLOB(pIDoc  in     blob,


                     pODoc  in out nocopy clob)


is


   rawData raw(32767);


   chunksize integer;


   amount binary_integer := 32767;


   position integer := 1;


   base64raw RAW(32767);


   chunkcount binary_integer := 0;


   cBuffer varchar2(32000);


   lang varchar2(50) := userenv('LANGUAGE');


begin


   chunksize := 12288;


   amount := dbms_lob.getLength(pIDoc);


   if(chunksize < amount) then


      chunkcount := round((amount / chunksize)+0.5);


   else


      chunkCount := 1;


   end if;





   for i in 1..chunkcount loop


      dbms_lob.read(pIDoc, chunksize, position, rawData);


      base64raw := utl_encode.base64_encode(rawData);


      cBuffer := utl_raw.cast_to_varchar2(base64Raw);


      dbms_lob.writeAppend(pODoc, length(cBuffer), cBuffer);


      position := position + chunksize;


   end loop;


   


       


   dbms_lob.WriteAppend(pODoc, 1, convert(chr(10),substr(lang, instr(lang,'.') + 1), 'US7ASCII'));





exception


   when others then


      null;


      --wf_core.context('WF_MAIL_UTIL', 'EncodeBLOB');


      raise;


end EncodeBLOB;


/

再创建

PHP code:



CREATE OR REPLACE FUNCTION mob_getbase64String( P_blob BLOB )


RETURN CLOB


IS


l_result CLOB;


BEGIN


DBMS_LOB.createtemporary(lob_loc => l_result, CACHE => FALSE, dur => 0);


EncodeBLOB ( P_blob


, l_result


);


RETURN ( l_result );


END mob_getbase64String;


/

QUOTE:

---

最初由 chirsdong 发布



一个问题。这个函数李用到了Wf_Mail_Util.EncodeBLOB,这里的作用是什么呢？：

PHP code:



CREATE OR REPLACE FUNCTION mob_getbase64String( P_blob BLOB )


RETURN CLOB


IS


l_result CLOB;


BEGIN


DBMS_LOB.createtemporary(lob_loc => l_result, CACHE => FALSE, dur => 0);


Wf_Mail_Util.EncodeBLOB ( P_blob


, l_result );   <font color="red">这句话的目的是什么的？[/COLOR] 


RETURN ( l_result );


END mob_getbase64String;

谢谢。

---

最近忙，这个帖子居然沉了。。

帮顶，现在没有时间测试。

如果可行，这应该可以解决置顶帖子里的那个问题。

是啊，第一次写文档，水平有限，有问题大家给建议，支持一把啥

感谢楼主提供！