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

类别:编程语言 点击:0 评论:0 推荐:

上次写到如何用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