当前页面位置: » 丰搜网 » 文档中心 » 详细内容
oracle中如何直接运行os命令(下)
|
exec sql whenever sqlerror continue；
sqlglm（msg_buffer， &buffer_size， &msg_length）；
printf（"daemon error while connecting:\n"）；
printf（"%.*s\n"， msg_length， msg_buffer）；
printf（"daemon quitting.\n"）；
exit（1）；
} void
sql_error（）
{
char msg_buffer[512]；
int msg_length；
int buffer_size = 512； exec sql whenever sqlerror continue；
sqlglm（msg_buffer， &buffer_size， &msg_length）；
printf（"daemon error while executing:\n"）；
printf（"%.*s\n"， msg_length， msg_buffer）；
printf（"daemon continuing.\n"）；
}
main（）
{
exec sql whenever sqlerror do connect_error（）；
exec sql connect :uid；
printf（"daemon connected.\n"）； exec sql whenever sqlerror do sql_error（）；
printf（"daemon waiting...\n"）；
while （1） {
exec sql execute
begin
/*接收deamon发来的字符*/
:status := dbms_pipe.receive_message（'daemon'）；
if :status = 0 then
/*取出字符*/
dbms_pipe.unpack_message（:command）；
end if；
end；
end-exec；
if （status == 0）
{
command.arr[command.len] = '\0'；
/*如果是stop，该进程就退出*/
if （!strcmp（（char *） command.arr， "stop"））
{
printf（"daemon exiting.\n"）；
break；
} else if （!strcmp（（char *） command.arr， "system"））
{
exec sql execute
begin
dbms_pipe.unpack_message（:return_name）；
dbms_pipe.unpack_message（:value）；
end；
end-exec；
value.arr[value.len] = '\0'；
printf（"will execute system command '%s'\n"， value.arr）；
/*运行os命令*/
status = system（value.arr）；
exec sql execute
begin
dbms_pipe.pack_message（'done'）；
dbms_pipe.pack_message（:status）；
:status := dbms_pipe.send_message（:return_name）；
end；
end-exec； |
[page]
|
if （status）
{
printf
（"daemon error while responding to system command."）；
printf（" status: %d\n"， status）；
}
}
else
{
printf
（"daemon error: invalid command '%s' received.\n"， command.arr）；
}
}
else
{
printf（"daemon error while waiting for signal."）；
printf（" status = %d\n"， status）；
}
}
exec sql commit work release；
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 rv number
sql> execute :rv := daemon.execute_system（'ls -la'）；
pl/sql 过程已成功完成。
sql> execute :rv := daemon.execute_system（'dir'）；
pl/sql 过程已成功完成。
sql> dbms_pipe的用法见oracle的文档。 |
