xml publisher笔记

最新推荐文章于 2025-03-17 13:11:12 发布

weixin_30646505

最新推荐文章于 2025-03-17 13:11:12 发布

阅读量243

点赞数

CC 4.0 BY-SA版权

文章标签： java 数据库

原文链接：http://www.cnblogs.com/gary-bao/p/5015327.html

本文介绍了一种从数据库中动态获取并打印图片的方法。利用Oracle PL/SQL过程将BLOB类型的数据转换为CLOB，并通过XML转换语言（XSL）在Word模板中显示。此过程涉及数据库查询、BLOB到CLOB的转换、以及使用特定函数处理每3000字节进行打印。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

模板文件对应的数据库表：

select * from xdo_lobs

动态打印图片

word模板中：

<?if:SHOW_TYPE=0?><fo:instream-foreign-object content-type="image/gif"><xsl:value-of select="FILE_DATA"/></fo:instream-foreign-object><?end if?>

主要是这段：<fo:instream-foreign-object content-type="image/gif"><xsl:value-of select="FILE_DATA"/></fo:instream-foreign-object>

图片在数据库中是以BLOB存储的，查出后需转换成CLOB

FUNCTION Get_Pictrue RETURN CLOB IS
l_Result CLOB;
l_Blob BLOB;
BEGIN
BEGIN
SELECT Fl.File_Data
INTO l_Blob
FROM Fnd_Attached_Documents Fad,
Fnd_Documents Fd,
Fnd_Lobs Fl,
Fnd_Document_Categories_Tl Dct
WHERE Dct.Category_Id = Fd.Category_Id
AND Dct.Language = Userenv('LANG')
AND Fl.File_Id = Fd.Media_Id
AND Fad.Document_Id = Fd.Document_Id
AND Fad.Entity_Name = 'CUX.CUX_QA_REPORT_HEADERS'
AND Fad.Pk1_Value = Gn_Header_Id
AND Dct.User_Name = 'QA:图片';
EXCEPTION
WHEN OTHERS THEN
RETURN NULL;
END;

Dbms_Lob.Createtemporary(Lob_Loc => l_Result, Cache => FALSE, Dur => 0);
Wf_Mail_Util.Encodeblob(l_Blob, l_Result);
RETURN(l_Result);
END Get_Pictrue;

打印时分行打印，3000字节一行

PROCEDURE Print_Picture IS
Ln_Start NUMBER;
Ln_Count NUMBER;
Lv_Show VARCHAR2(4000);
BEGIN
Ln_Count := 0;
Fnd_File.Put(Fnd_File.Output, '<FILE_DATA>');
LOOP
Ln_Start := Ln_Count * 3000 + 1;
Ln_Count := Ln_Count + 1;
SELECT Substr(Get_Pictrue, Ln_Start, 3000) File_Data
INTO Lv_Show
FROM Dual;
EXIT WHEN Lv_Show IS NULL;
Fnd_File.Put(Fnd_File.Output, Lv_Show);
END LOOP;
Fnd_File.Put(Fnd_File.Output, '</FILE_DATA>');
END Print_Picture;