// ValidateCard.cpp : Implementation of CValidateCard#include "stdafx.h"#include "ValidateCreditCardServer.h"#include "ValidateCard.h" /////////////////////////////////////////////////////////////////////////////// CValidateCard STDMETHODIMP CValidateCard::ValidateCreditCard(BSTR bstrCCNo, BSTR bstrCCType, long *val){ AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here CString strType(bstrCCType); strType.MakeUpper(); if(strType.Compare("VISA")==0) bstrCCType=SysAllocString(OLESTR("V")); else if(strType.Compare("MASTER")==0) bstrCCType=SysAllocString(OLESTR("M")); else if(strType.Compare("AMERICAN")==0) bstrCCType=SysAllocString(OLESTR("A")); else { *val=0; return S_FALSE; } if((PrefixCheck(bstrCCNo,bstrCCType)==S_OK) && (LengthCheck(bstrCCNo,bstrCCType)==S_OK) && (LuhnCheck(bstrCCNo,bstrCCType)==S_OK)) { *val=1; return S_OK; } else { *val=0; return S_FALSE; } return S_FALSE;} STDMETHODIMP CValidateCard::LuhnCheck(BSTR bstrCCNo, BSTR bstrCCType){ AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here CString strobj(bstrCCNo); CString strReverse,strFinal; int iNum,iSum; char cTemp; strReverse=strobj; strReverse.MakeReverse(); for(int iTemp=0;iTemp9) iNum-=9; } cTemp=iNum+'0'; strFinal+=cTemp; } for(iTemp=0;iTemp=0) return S_OK; } else if(strType=="M") { if(strNumber.Find("51",0)>=0 || strNumber.Find("52",0)>=0 || strNumber.Find("53",0)>=0 || strNumber.Find("54",0)>=0) return S_OK; } else if(strType=="A") { if(strNumber.Find("34",0)>=0 || strNumber.Find("37",0)>=0) return S_OK; } return S_FALSE;}

5. 编绎组件编绎会读取ValidateCard.rgs文件进行组件的自动注册，若在Windows 9X环境下，请运行regsvr32程序进行注册，具体参见Developing COM Components using VC-ATL(2-3) COM对象的注册角色同时编绎完成后，会在Debug目录下生成ValidateCreditCardServer.dll在Debug上一层目录下，即工程名工作空间目录下生成 ValidateCreditCardServer.tlb这两个文件都可以导入到客户端，测试时分别会介绍这两种方法。