电子文档版资料汇集目录

wanhualeng

CREATE OR REPLACE FUNCTION  test_table (
   a_char        IN   VARCHAR2,
   a_delimiter   IN   VARCHAR2
)
   RETURN test_table PIPELINED                 
-------------------------------------------------
/*
varsion 1.0
description : 字符串轉成table
*/
-------------------------------------------------
IS
   v_char      VARCHAR2 (32767) := REPLACE (UPPER (a_char), '''', '');
   v_length    NUMBER;
   v_variant   VARCHAR2 (1000);
BEGIN
   v_length := LENGTH (v_char);

   --dbms_output.put_line(to_char(v_length));
   IF v_length IS NOT NULL
   THEN
      FOR i IN 1 .. v_length
      LOOP
         --dbms_output.put_line(to_char(i));
         IF SUBSTR (v_char, i, 1) = UPPER (a_delimiter)
         THEN
            PIPE ROW (test_format (v_variant));
            v_variant := '';
         ELSIF i = v_length
         THEN
            v_variant := v_variant || SUBSTR (v_char, i, 1);
            PIPE ROW (test_format (v_variant));
         ELSE
            v_variant := v_variant || SUBSTR (v_char, i, 1);
         END IF;
      --pipe row(i);
      END LOOP;
   ELSE
      PIPE ROW (test_format (''));
   END IF;

   RETURN;
END;

[ 本帖最后由 wanhualeng 于 2009-7-23 10:25 编辑 ]

wanhualeng

CREATE OR REPLACE TYPE test_format
AS OBJECT
(
  v_list   VARCHAR2(255)
);

wanhualeng

CREATE OR REPLACE TYPE         test_table AS TABLE OF test_format;

wanhualeng

CREATE OR REPLACE LIBRARY MYLIB
IS 'D:\oracle\product\10.2.0\db_1\BIN\Project1.dll'

wanhualeng

CREATE OR REPLACE FUNCTION CMS_DATA.mytest1(a DOUBLE PRECISION,b DOUBLE PRECISION) RETURN DOUBLE PRECISION AS
LANGUAGE C NAME "dlltest"
LIBRARY MYLIB
PARAMETERS (a DOUBLE,b DOUBLE,
RETURN DOUBLE );

oracle 調用DLL文件

wanhualeng

unit Unit1;

interface
  function dlltest(a,b:double): double; cdecl;
implementation
  function dlltest(a,b:double): double; cdecl; // interface
  begin
     result:=a*b;
  end;
end.


exports
dlltest;

///////Dll 內容

wanhualeng

# tnsnames.ora Network Configuration File: D:\oracle\product\10.2.0\db_1\network\admin\tnsnames.ora
# Generated by Oracle configuration tools.


LISTENER_TESTDB =
  (ADDRESS = (PROTOCOL = TCP)(HOST = 10.139.138.24)(PORT = 1523))


TESTDB =
  (DESCRIPTION =
    (ADDRESS = (PROTOCOL = TCP)(HOST = 10.139.138.24)(PORT = 1523))
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = testdb)
    )
  )

EXTPROC_CONNECTION_DATA =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))
    )
    (CONNECT_DATA =
      (SID = PLSExtProc)
      (PRESENTATION = RO)
    )
  )

///////////TNS 內容

wanhualeng

# listener.ora Network Configuration File: D:\oracle\product\10.2.0\db_1\network\admin\listener.ora
# Generated by Oracle configuration tools.

SID_LIST_LISTENER =
  (SID_LIST =
    (SID_DESC =
      (SID_NAME = PLSExtProc)
      (ORACLE_HOME = D:\oracle\product\10.2.0\db_1)
      (PROGRAM = extproc)
    )
  )

LISTENER =
  (DESCRIPTION_LIST =
    (DESCRIPTION =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.139.138.24)(PORT = 1523))
      (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))
    )
  )

///// listener 內容

wanhualeng

# This file is actually generated by netca. But if customers choose to
# install "Software Only", this file wont exist and without the native
# authentication, they will not be able to connect to the database on NT.

SQLNET.AUTHENTICATION_SERVICES = (NTS)

/////////sqlnet 內容

wanhualeng

在10G下測試通過，在9i下沒有測試