您现在正在浏览：站长之家 >> 数据库 >> 详细内容

Oracle中如何直接运行OS命令（下）

时间:2007-11-09 来源:不详作者:迈克DB

　　EXEC SQL WHENEVER SQLERROR CONTINUE；
　　sqlglm（msg_buffer， &buffer_size， &msg_length）；
　　printf（"Daemon error while connecting:"）；
　　printf（"%.*s"， msg_length， msg_buffer）；
　　printf（"Daemon quitting."）；
　　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:"）；
　　printf（"%.*s"， msg_length， msg_buffer）；
　　printf（"Daemon continuing."）；
　　}
　　main（）
　　{
　　EXEC SQL WHENEVER SQLERROR DO connect_error（）；
　　EXEC SQL CONNECT :uid；
　　printf（"Daemon connected."）；

织梦内容管理系统

　　EXEC SQL WHENEVER SQLERROR DO sql_error（）；
　　printf（"Daemon waiting..."）；
　　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."）；
　　break；
　　}

内容来自dedecms

　　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'"， 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"， status）；
　　}
　　}
　　ELSE
　　{
　　printf
　　（"Daemon error: invalid command '%s' received."， command.arr）；
　　}
　　}
　　ELSE
　　{
　　printf（"Daemon error while waiting for signal."）；
　　printf（" status = %d"， status）；
　　}
　　}
　　EXEC SQL COMMIT WORK RELEASE；
　　exit（0）；
　　}

本文来自织梦

　　以上代码起名为daemon.pc，用proc预编译: copyright dedecms

　　proc iname=daemon.pc userid=用户名/密码@服务名 sqlcheck=semantics copyright dedecms

　　得到daemon.c，在用c进行编译，注意在NT上要把orasql8.lib加上，否则编译通过，连接没法通过。 copyright dedecms

　　3、在服务器上运行daemon.exe