以下方法在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 java.net.NetPermission

n java.net.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();

int　　　　rc = -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

2004-05-15　15:47　　　 .

2004-05-15　15:47　　　 ..

2002-12-24　20:13　　　 archive

1998-09-09　18:31　　　　　　　 31,744 oradba.exe

2004-05-08　11:48　　　　　　　　　568 OraDim.Log

2004-03-17　11:53　　　　　　　　1,536 PWDweblish.ora

2004-05-15　15:47　　　　　　1,871,872 SNCFWEBLISH.ORA

2003-12-29　13:24　　　　　　　　2,560 SPFILEWEBLISH.ORA

2004-05-08　11: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(-20030,'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的文档.