pcdmutils.cpp

是一本关于

// PCDMUtils.cpp : Implementation of CPCDMUtils
#include "stdafx.h"
#include "PCDMDLL.h"
#include "PCDMUtils.h"

/////////////////////////////////////////////////////////////////////////////
// CPCDMUtils
#include "PCDMAccessDB.h"

STDMETHODIMP CPCDMUtils::AnalyzeURL(BSTR bstrURL)
{
int i=0,idx=0;
long CmdClass=0;
BSTR strURL,strCMD;
HRESULT hr;

	while (GetURL(idx,bstrURL,&strURL)==S_OK)
	{
		hr=GetClass(strURL,&CmdClass);
		if (hr==S_OK && CmdClass==PCDMCLASS_ACCESSDB)
		{
			if (GetCommand(strURL,&strCMD)==S_OK)
				ExecuteADBCmd(strCMD);
		}
		idx++;
	}
	return S_OK;
}

STDMETHODIMP CPCDMUtils::GetURL(LONG Index, BSTR InURL, BSTR *OutURL)
{
int pos,oldPos,j;

	pos=0;
	for (j=0;j<Index+1;j++)
	{
		oldPos=pos;
		pos=InstrPos(InURL,pos,TEXT(";"));
		if (pos<0)	break;
	}
	if (pos>0)
		MidStr(InURL,oldPos,pos,OutURL);
	else
		return S_FALSE;
	return S_OK;
}

STDMETHODIMP CPCDMUtils::GetClass(BSTR InURL, LONG *ClassID)
{
BSTR *ClassStr=NULL;
long pos=-1,startpos=-1,endpos=-1;

	pos=InstrPos(InURL,0,TEXT("://"));
	if (pos>=0)
		startpos=InstrPos(InURL,pos,TEXT("/"));
	if (startpos>=0)
		endpos=InstrPos(InURL,startpos,TEXT("?"));
	if (endpos-2>0)
	{
		*ClassID=0L;
		MidStr(InURL,startpos,endpos-2,ClassStr);
		if (CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,*ClassStr,-1,TEXT("PCDMAccessDB"), -1)-2)
			*ClassID=PCDMCLASS_ACCESSDB;
		else if (CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,*ClassStr,-1,TEXT("PCDMAccessReg"), -1)-2)
			*ClassID=PCDMCLASS_ACCESSREG;
		else if (CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,*ClassStr,-1,TEXT("PCDMUtils"), -1)-2)
			*ClassID=PCDMCLASS_UTILS;
		else if (CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,*ClassStr,-1,TEXT("PCDMInput"), -1)-2)
			*ClassID=PCDMCLASS_INPUT;
		else if (CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,*ClassStr,-1,TEXT("PCDMTransfer"), -1)-2)
			*ClassID=PCDMCLASS_TRANSFER;
	}
	return S_OK;
}

STDMETHODIMP CPCDMUtils::GetCommand(BSTR InURL, BSTR *Command)
{
int pos=-1;
	pos=InstrPos(InURL,0,TEXT("?"));
	if (pos>=0)
		MidStr(InURL,pos,lstrlen(InURL),Command);
	else
		return S_FALSE;
	return S_OK;
}

STDMETHODIMP CPCDMUtils::ExecuteADBCmd(BSTR Command)
{
BSTR *Cmd=NULL,*Table=NULL,*Value=NULL;
VARIANT	tValue,tlValue;
TCHAR tStr[20];

	VariantInit(&tValue);
	VariantInit(&tlValue);
	HRESULT hr=GetTagValue(Command,TEXT("Command"),Cmd);
	if (hr==S_OK)
	{
		tValue.vt=VT_BSTR;
		tValue.bstrVal=SysAllocString(*Cmd);
		VariantChangeType(&tlValue,&tValue,0,VT_I4);
		switch (tlValue.lVal)
		{
			case ADBCMD_INSERT:
				{
					int i=0;
					long DBHandle;
					hr=GetTagValue(Command,TEXT("Table"),Table);
					if (hr==S_OK)
					{
						CComObject<CPCDMAccessDB>* comDB = new CComObject<CPCDMAccessDB>();
						HRESULT hr = comDB->FinalConstruct();
						hr=comDB->OpenTable(TEXT("\\My Documents\\PCDM.cdb"),*Table,_variant_t(0L),&DBHandle);
						if (FAILED(hr)) break;
						hr=comDB->AddNewRecord(DBHandle);
						if (FAILED(hr)) break;
						do
						{
							wsprintf(tStr,TEXT("Fld%d"),i);
							hr=GetTagValue(Command,tStr,Value);
							hr=comDB->SetValue(_variant_t((LONG)i),_variant_t(*Value));
							i++;
						} while (hr==S_OK);
						hr=comDB->WriteRecord(DBHandle);
						comDB->CloseTable(DBHandle);
					}

				}
				break;
			default:	// Add more commands here...
				break;
		}
	}

	return S_OK;
}

long CPCDMUtils::InstrPos(TCHAR *InSTR, LONG Start, TCHAR *tChar)
{
unsigned int i;

	if (Start>(long)lstrlen(InSTR)) return -1;
	i=Start;
	while (i<=(lstrlen(InSTR)-lstrlen(tChar)) && CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,&InSTR[i],lstrlen(tChar),tChar, lstrlen(tChar))-2) 
		i++;
	i+=lstrlen(tChar);
	if (i>lstrlen(InSTR)) i=-1;
	return (long)i;
}

BOOL CPCDMUtils::MidStr(TCHAR *InSTR, long StartPos, long EndPos, BSTR *OutSTR)
{
TCHAR tmpStr[500];
long j=0;

	for (int i=StartPos;i++;i<EndPos && i<(long)lstrlen(InSTR))
	{
		tmpStr[j]=InSTR[i];
		j++;
	}
	*OutSTR=SysAllocString(tmpStr);	
	return TRUE;
}

STDMETHODIMP CPCDMUtils::GetTagValue(BSTR InCMD, BSTR TagName, BSTR *TagValue)
{
int pos=0,endpos=-1;
TCHAR tTagName[255];

	wsprintf(tTagName,TEXT("%s="),TagValue);
	pos=InstrPos(InCMD,0,tTagName);
	if (pos>=0)
		endpos=InstrPos(InCMD,pos,TEXT("&"));
	if (endpos-2>0)
		MidStr(InCMD,pos+1,endpos-2,TagValue);
	else
		return S_FALSE;
	return S_OK;
}