ODBC SDK + Oracle 开发扩展存储过程（一）

最近在开发中遇到一些问题，通过和biggates讨论虽然解决了，解决的过程中也学到一些东西，现在整理一下，首先列一下可能要写的东西：

1. Oracle如何直接调用dll接口
2. dll如何和Windows窗体进行消息交互
3. Oracle通过comwrap调用COM接口

那么就先来说说第一个问题。

首先是功能需求，一个ATL写的dll，由Oracle调用。

问题分析，VC写一个dll，这个现在已经不是问题；Oracle调用dll,这个是在网上找到的一些资料，然后实现的。

具体实现

• VC写的一个dll
  CPP文件如下：
  
  #include 
  #include 
  
  int  __stdcall DllMain(HANDLE, DWORD, LPVOID)
  {
       return   1 ;
  }
  
  short  SendSmsMessage2DB(BSTR mobile_no, BSTR text)
  {
       char  moblie_no[ 11 ]  =  { 0 };
       char  text[ 256 ]  =  { 0 };
       char  buf[ 512 ]  =  { 0 };
  
      strcpy(mobile_no, _com_util::ConvertBSTRToString(mobile_no));
      strcpy(text, _com_util::ConvertBSTRToString(text));
  
      sprintf(buf,  " echo oracle call dll, params is mobile_no = %s, text = %s >> e:/log.txt " , mobile_no, text);
  
      system(buf); return   0 ;
  }
  
  Def文件如下：
  
  LIBRARY    " SendMessage.dll "   
  EXPORTS  
  SendSmsMessage2DB    @ 1
  OK,最简单的一个示意工程就要这两个文件就OK了，现在编译成dll.
• Oracle调用dll

  listener.ora中修改类似下面

  SID_LIST_LISTENER =

  (SID_LIST =

  (SID_DESC =

  (SID_NAME = PLSExtProc)

  (ORACLE_HOME = d:/oracle/product/10.1.0/Db_2)

  (ENVS = "EXTPROC_DLLS=ANY")

  (PROGRAM = extproc)

  )

  (SID_DESC =

  (GLOBAL_DBNAME = vscpmast)

  (SID_NAME = vscpmast)

  )

  )
  主要是添加ENVS = "EXTPROC_DLLS=ANY"这句，这样就可以调用外部存储过程了。
  ---------------------------------------------------------------------------------------------------
  将刚才生成的dll拷贝到BIN或者LIB目录下（据说9i以后就要放在这里，我试验过，放在其他地方会在后面编译oracle的PL/SQL的时候出错）
  ---------------------------------------------------------------------------------------------------

  -- create Lib
  drop  library oracle_sendMessage;
  create   or   replace  library oracle_sendMessage
  as   ' d:oracleproduct.1.0Db_2BINSendMessage.dll ' ;
  
  -- create function
  create   or   replace   function  SendSmsMessage(mobileno  in   varchar2 ,  text   in   varchar2 )
  return  binary_integer
  as
  external
  library oracle_sendMessage
  name "SendSmsMessage2DB"
  language c
  parameters (
  mobileno string,
  text  string,
  return  short
  );
  

  --------------------------------------------------------------
  在SQL*PLUS中测试
  

  -- test oracle call dll
  declare   temp   number ( 10 );
  begin
  select  SendSmsMessage( ' 123 ' ,  ' test ' )  into   temp   from  dual;
  dbms_output.put_line( temp );
  end ;
  /

  --------------------------------------------------------------
  OK,到这里我们就可以在E盘下找到log.txt这个文件，查看测试是否成功了^^。