上次写到如何用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();
}
这次可是真正完了，没什么说的了