**
注意,此方法使用PHP方式,需要在报表服务器上设置PHP
**
数据库中维护function
create or replace function getqrfile(ps_data in varchar2) return varchar2 as
vs_return varchar2(2000);
vs_qrcode_url varchar2(256);
vs_hostname varchar2(64);
v_str varchar2(2000);
begin
begin
select REF_STRING into vs_hostname from SYS_REF_TABLE where ref_code = ‘GEOREPHOSTNAME’;
exception
when no_data_found then
select substr(ref_string,1,5) into vs_hostname from sys_ref_table where ref_code = ‘GEOREPSRV’;
end;
vs_qrcode_url := ‘http://192.168.0.19:8081/phpqrcode/qrfilejl.php’;
vs_return := utl_http.request(vs_qrcode_url || ‘?data=’ || utl_url.escape(ps_data,true));
return ‘D:\REPON61\QRJL’ || substr(vs_return,instr(vs_return,’||’)+2,instr(vs_return,’##’) - instr(vs_return,’||’)-2);
end getqrfile;