再问：如何用Oracle调用外部的C过程？

[wangyanx]

cxgtommy：
你好！你关于ORACLE调用C过程的回复，我已收到，但我查了LISTENER。ORA，其配置如下：
ljjf =
(ADDRESS= (PROTOCOL= TCP)(Host= h70a_svc)(Port= 1521))

LISTENER=
(address=
(protocol=IPC)
(key=extproc_key)
)


SID_LIST_ljjf =
(SID_DESC =
(GLOBAL_DBNAME= h70a_svc.)
(ORACLE_HOME= /oracle/app/oracle/product/8.0.5)
(SID_NAME = ljjf)
)

SID_LIST_LISTENER=
(sid_desc=
(sid_name=v805_extproc)
(ORACLE_HOME=/oracle/app/oracle/product/8.0.5)
STARTUP_WAIT_TIME_LISTENER = 0
CONNECT_TIMEOUT_LISTENER = 10
TRACE_LEVEL_LISTENER = OFF
而我查看了监听器LISTENER的状态，它表示已有一个服务v805_extproc
然而，数据库还是报错ORA-28575,请大虾指点一二，感激万分。

[Tommy Chang]

是哪本书里面的范例？能给我吗？我只是帮你查了出错代码而已。

[wangyanx]

书名为《Oracle8 PL/SQL程序设计》
做法如下：
1。先编一个C过程，代码如下：
#include <stdio.h>
#include <oci.h>

/* Outputs the string contained in message to a file specified by path.
The file will be created if it doesn't exist. */
void OutputString(path, message)
char *path;
char *message; {

FILE *file_handle;

/* Open the file for writing. */
file_handle = fopen(path, "w");

/* Output the string followed by a newline. */
fprintf(file_handle, "%s\n", message);

/* Close the file. */
fclose(file_handle);
}
2。将其编译为一个后缀为.so的共享库。
3。如下设置Listener。ora、Tnsnames。ora
LISTENER。ORA：
listener =
(ADDRESS_LIST =
(ADDRESS =
(PROTOCOL = ipc)
(KEY = <<LISTENER_KEY>>)
)
)

sid_list_listener =
(SID_LIST =
(SID_DESC =
(SID_NAME = <<EXTPROC_SID>>)
(ORACLE_HOME = <<ORACLE_HOME>>)
(PROGRAM = extproc)
)
)
TNSNAMES。ORA
extproc_connection_data =
(DESCRIPTION =
(ADDRESS =
(PROTOCOL = ipc)
(KEY = <<LISTENER_KEY>>)
)
(CONNECT_DATA =
(SID = <<EXTPROC_SID>>)
)
)
4。在Oracle中敲入：
CREATE LIBRARY stringlib AS “C过程路径名”
5。CREATE OR REPLACE PROCEDURE OutputString(
p_Path IN VARCHAR2,
p_Message IN VARCHAR2) AS EXTERNAL

LIBRARY stringlib
NAME "OutputString"
PARAMETERS (p_Path STRING,
p_Message STRING);

[guofupei]

i want to know