以下方法在WINNT,LINUX下的oracle9i上测试通过，java过程调用系统命令
首先给使用java存储过程的用户授予一定的权限
<>表示所有文件，也可以单独指定文件。
r w e d表示四种操作
Code:
Dbms_Java.Grant_Permission('HR',
'java.io.FilePermission', '<>',
'read ,write, execute, delete');
Dbms_Java.Grant_Permission('HR',
'java.io.FilePermission', 'd:aa.bat',
'read ,write, execute, delete');
dbms_java.grant_permission
('HR',
'java.lang.RuntimePermission',
'*',
'writeFileDescriptor' );
end;
/
PL/SQL procedure successfully completed.
See
... timePermission.html
... rityPermission.html
s/api/java/io/FilePermission.html
and
... 53/perf.htm#1001971
From the “Java Developer’s Guide”, Part No. A81353-01, Chapter 5:
Table 5?1 Permission Types
n java.util.PropertyPermission
n java.io.SerializablePermission
n java.io.FilePermission
n Permission
n .SocketPermission
n java.lang.RuntimePermission
n java.lang.reflect.ReflectPermission
n java.security.SecurityPermission
n oracle.aurora.rdbms.security.PolicyTablePermission
n oracle.aurora.security.JServerPermission
相关的java类如下
SQL> connect hr/hr@ts
已连接。
create or replace and compile
java source named "Util"
as
import java.io.*;
import java.lang.*;
public class Util extends Object
{
public static int RunThis(String args)
{
Runtime rt = Runtime.getRuntime();
intrc = -1;
try
{
Process p = rt.exec(args);
int bufSize = 4096;
BufferedInputStream bis =
new BufferedInputStream(p.getInputStream(), bufSize);
int len;
byte buffer[] = new byte[bufSize];
// Echo back what the program spit out
while ((len = bis.read(buffer, 0, bufSize)) != -1)
System.out.write(buffer, 0, len);
rc = p.waitFor();
}
catch (Exception e)
{
e.printStackTrace();
rc = -1;
}
finally
{
return rc;
}
}
}
/
Java created.
建立函数
create or replace
function RUN_CMD(p_cmd in varchar2) return number
as
language java
name 'Util.RunThis(java.lang.String) return integer';
/
Function created.
建立一过程调用函数
create or replace procedure RC(p_cmd in varchar2)
as
x number;
begin
x := run_cmd(p_cmd);
end;
/
Procedure created.
SQL> variable x number;
SQL>set serveroutput on
SQL> exec dbms_java.set_output(100000);
PL/SQL procedure successfully completed.
可以执行相应的命令和bat文件
SQL>exec :x := RUN_CMD('ipconfig');
Windows 2000 IP Configuration
Ethernet adapter 本地连接
:
Connection-specific DNS Suffix. :
IP Address. . . . . . . . . . . . : 172.18.25.102
Subnet Mask . . . . . . .
. . . . : 255.255.255.0
Default Gateway . . . . . . . . . : 172.18.25.1
PL/SQL 过程已成功完成。
也可以执行服务器上的bat文件
SQL> exec :x := RUN_CMD('c:aa.bat');
c:oracleora92DATABASE>cmd /c
c:oracleora92DATABASE>dir
Volume in drive C is 本地磁盘
Volume Serial Number is 5CE1-2622
Directory of c:oracleora92DATABASE
-05-1515:47 .
-05-1515:47 ..
2002-12-2420:13 archive
1998-09-0918:31 31,744 oradba.exe
-05-0811:48568 OraDim.Log
-03-1711:531,536 PWDweblish.ora
-05-1515:471,871,872 SNCFWEBLISH.ORA
-12-2913:242,560 SPFILEWEBLISH.ORA
-05-0811:48 12,852 sqlnet.log
6 File(s)1,921,132 bytes
3 Dir(s) 7,141,621,760 bytes free
－－－－－－－－－－－－－－－－－
c:aa.bat如下：
cmd /c
dir
以下是利用proc实现：
在Oracle 8i中,往往会出现要在存储过程中运行操作系统命令的情况.一般来说,利用Oracle Enterprise Manager设定作业时可以达到这个目的.但是由于OEM在设定作业缺乏灵活性,设定的作业的参数是固定的.在实际应用当中往往需要在SQL语句当中运行需要随时运行操作系统命令.Oracle 8i没有直接运行OS命令的语句,我们可以利用DBMS_PIPE程序包实现这一要求.
DBMS_PIPE通过创建管道,可以让至少两个进程进行通信.Oracle的管道与操作系统的管道在概念上有相同的地方,但是在实现机制不同.
下面介绍实现具体步骤:
1 创建一个程序包,姑且起名叫DAEMON,SQL语句如下:
/*创建daemon程序包*/CREATEORREPLACEPACKAGE BODY daemonAS/*execute_system是实现运行os命令的函数*/FUNCTIONexecute_system(commandVARCHAR2,
timeoutNUMBERDEFAULT10)RETURNNUMBERISstatusNUMBER;
resultVARCHAR2(20);
command_codeNUMBER;
pipe_nameVARCHAR2(30);BEGINpipe_name :=DBMS_PIPE.UNIQUE_SESSION_NAME;
DBMS_PIPE.PACK_MESSAGE('SYSTEM');
DBMS_PIPE.PACK_MESSAGE(pipe_name);
DBMS_PIPE.PACK_MESSAGE(command);/*向daemon管道发送表示命令的字符*/status :=DBMS_PIPE.SEND_MESSAGE('daemon', timeout);IFstatus<>0THENRAISE_APPLICATION_ERROR(-20010,'Execute_system: Error while sending. Status ='||status);ENDIF;
status :=DBMS_PIPE.RECEIVE_MESSAGE(pipe_name, timeout);IFstatus<>0THENRAISE_APPLICATION_ERROR(-20011,'Execute_system: Error while receiving.
Status ='||status);ENDIF;/*获取返回结果*/DBMS_PIPE.UNPACK_MESSAGE(result);IFresult<>'done'THENRAISE_APPLICATION_ERROR(-20012,'Execute_system: Done not received.');ENDIF;
DBMS_PIPE.UNPACK_MESSAGE(command_code);
DBMS_OUTPUT.PUT_LINE('System command executed. result ='||command_code);RETURNcommand_code;ENDexecute_system;/*stop是让daemon停止*/PROCEDUREstop(timeoutNUMBERDEFAULT10)ISstatusNUMBER;BEGINDBMS_PIPE.PACK_MESSAGE('STOP');
status :=DBMS_PIPE.SEND_MESSAGE('daemon', timeout);IFstatus<>0THENRAISE_APPLICATION_ERROR(-0,'stop: error while sending. status ='||status);ENDIF;ENDstop;ENDdaemon;
通过Sql*Plus运行以上语句,将为当前用户创建daemon程序包.
2 创建在OS上运行的守护进程,监听由上面的daemon程序包发来的要求执行os命令的语句.以下Pro*C的代码,必须由pro*c先进行预编译.
#include
#include
EXECSQL INCLUDE SQLCA;
EXECSQLBEGINDECLARESECTION;char*uid="scott/tiger";/*在这个地方改为你自己访问的用户,密码,服务名*/intstatus;
VARCHARcommand[20];
VARCHARvalue[2000];
VARCHARreturn_name[30];
EXECSQLENDDECLARESECTION;
void
connect_error()
{
charmsg_buffer[512];
intmsg_length;
intbuffer_size=512;
EXECSQL WHENEVER SQLERRORCONTINUE;
sqlglm(msg_buffer,&buffer_size,&msg_length);
printf("Daemon errorwhileconnecting:n");
printf("%.*sn", msg_length, msg_buffer);
printf("Daemon quitting.n");
exit(1);
}
void
sql_error()
{
charmsg_buffer[512];
intmsg_length;
intbuffer_size=512;
EXECSQL WHENEVER SQLERRORCONTINUE;
sqlglm(msg_buffer,&buffer_size,&msg_length);
printf("Daemon errorwhileexecuting:n");
printf("%.*sn", msg_length, msg_buffer);
printf("Daemon continuing.n");
}
main()
{
EXECSQL WHENEVER SQLERROR DO connect_error();
EXECSQL CONNECT :uid;
printf("Daemon connected.n");
EXECSQL WHENEVER SQLERROR DO sql_error();
printf("Daemon waiting...n");
while(1) {
EXECSQLEXECUTEBEGIN/*接收deamon发来的字符*/:status :=DBMS_PIPE.RECEIVE_MESSAGE('daemon');
IF:status=0THEN/*取出字符*/DBMS_PIPE.UNPACK_MESSAGE(:command);
ENDIF;
END;
END-EXEC;
IF(status==0)
{
command.arr[command.len]='';/*如果是stop,该进程就退出*/IF(!strcmp((char*) command.arr, "STOP"))
{
printf("Daemon exiting.n");
break;
}
ELSEIF(!strcmp((char*) command.arr, "SYSTEM"))
{
EXECSQLEXECUTEBEGINDBMS_PIPE.UNPACK_MESSAGE(:return_name);
DBMS_PIPE.UNPACK_MESSAGE(:value);
END;
END-EXEC;
value.arr[value.len]='';
printf("Willexecutesystem command'%s'n", value.arr);/*运行os命令*/status=system(value.arr);
EXECSQLEXECUTEBEGINDBMS_PIPE.PACK_MESSAGE('done');
DBMS_PIPE.PACK_MESSAGE(:status);
:status :=DBMS_PIPE.SEND_MESSAGE(:return_name);
END;
END-EXEC;
IF(status)
{
printf
("Daemon errorwhilerespondingtosystem command.");
printf(" status:%dn", status);
}
}
ELSE{
printf
("Daemon error: invalid command'%s'received.n",
command.arr);
}
}
ELSE{
printf("Daemon errorwhilewaitingforsignal.");
printf(" status=%dn", status);
}
}
EXECSQLCOMMITWORKRELEASE;
exit(0);
}
以上代码起名为daemon.pc,用proc预编译:
proc iname=daemon.pc userid=用户名/密码@服务名 sqlcheck=semantics
得到daemon.c,在用c进行编译,注意在NT上要把orasql8.lib加上,否则编译通过,连接没法通过.
3 在服务器上运行daemon.exe
4 在sqlplus运行测试语句:
SQL>variable rvnumberSQL>execute:rv :=DAEMON.EXECUTE_SYSTEM('ls -la');
PL/SQL 过程已成功完成。
SQL>execute:rv :=DAEMON.EXECUTE_SYSTEM('dir');
PL/SQL 过程已成功完成。
DBMS_PIPE的用法见oracle的文档.
