建立同SAS交互的开发式VC客户端

上次写到如何用VB跟SAS交互，不过VB用来开发运行效率较高的系统绝不是理想选择
下面就介绍一下如何用VC通过COM方式跟SAS交互
其实也没有什么，只有知道VC调用COM的方式然后在参照我BLOG的上面文章，不用我说也知道，
所以我这篇文章面对的“客户”是菜鸟级程序员

第一步，当然是把这个COM的类型库导入，不然VC编译器不认识你的数据类型，so so..,导入语法

#import "C:\Program Files\SAS\Shared Files\Integration Technologies\sas.tlb"
上面就是你SAS类型库所在的目录了

第二步，微软告诉我，要调用COM必须先初始化COM环境，最后当前是清除COM环境，所以要写下下面代码
  CoInitialize(NULL);
  /*
  N多代码在这中间
  */
  ...
  CoUninitialize();   
第三步，当然是生成COM对象的实例了，生成COM对象实例的方法有N种，但下面这种最容易，也最好使
 首先，要获得COM对象的CLSID
   CLSID clsid;
   CLSIDFromProgID(OLESTR("SAS的COM对象，如SAS.WorkSpace"),&clsid);
 然后，利用这个CLSID,通过智能指针就可以生成对象了，如下 
 CComPtr<IWorkspace> _sas;
 _sas.CoCreateInstance(clsid);
 OK，对象已经建好了，可以调用该对象的方法了，如
 _sas->Close();
 
看官，明白了把 ，噢，忘了，要包含头文件#include <atlbase.h>,不然也会报错的
好了，下面给个例子让你看看吧
下面这个类封装了SAS.WorkSpace的基本功能
#import "C:\Program Files\SAS\Shared Files\Integration Technologies\sas.tlb"
using namespace SAS;

class CSASPool{
 public:
 CComPtr<IWorkspace> _sas;
 int CurrRunThreadNum;
 bool state;
 CLSID clsid;
    CSASPool(bool active,CLSID clsid)
    {
     this->clsid=clsid;
     if (active){
       _sas.CoCreateInstance(clsid);
       (_sas->LanguageService)->Async=true;
       state=true;
      }else{
       _sas=NULL;
       state=false;
     }
     CurrRunThreadNum=0;
    }
    void Start_SAS() {
     if (!state) {
      _sas.CoCreateInstance(clsid);
      _sas->LanguageService->Async=true;
     }
     state=true;
    }
 void  Exec(char * Command) {
   _sas->LanguageService->Submit(Command);
 } 
 void Close(){
  _sas->Close();
 }

 
};

然后用下面这段代码调用就是了

#include "stdafx.h"

#include <atlbase.h>
#include "CSASPool.h"
int main(int argc, char* argv[])
{
  CoInitialize(NULL);
  CLSID clsid;
  CLSIDFromProgID(OLESTR("SAS.WorkSpace"),&clsid);
  CSASPool sas=CSASPool(true,clsid);
  sas.Exec("data _null_;file 'd:\\1.txt';put 'ok';run;");
  sas.Close();
  CoUninitialize();   
}

OVER了，这段代码调用最后的结果会在你的D盘生成一个1.txt文件，然后呢这个文件里会包含一个OK的字眼

完是完了，但是有个特别隐秘的BUG包含在程序中，就是那个智能指针的使用

众所周知，智能指针给我们封装了一个完美的指针，以致于我们根本不必关注什么＋＋ ——的引用关系

但是

我们的智能指针_sas生命周期的结束是在

CoUninitialize()之后,CoInitialize所开的环境在CoUninitialize()后已经被

关闭,而_sas此时发生析构,可能会导致某些问题，so so ,上面调用的代码稍微改一下，就万事大吉了

#include "stdafx.h"

#include <atlbase.h>
#include "CSASPool.h"
int main(int argc, char* argv[])
{
  CoInitialize(NULL);
  CLSID clsid;
  CLSIDFromProgID(OLESTR("SAS.WorkSpace"),&clsid);

{
  CSASPool sas=CSASPool(true,clsid);
  sas.Exec("data _null_;file 'd:\\1.txt';put 'ok';run;");
  sas.Close();

}
  CoUninitialize();   
}

这次可是真正完了，没什么说的了

本文地址：http://com.8s8s.com/it/it22571.htm