调查：结构化存储或复合文档技术是否已经过时，你们在用吗？来者有分！

[PagiHi]

用C++写的类库，想实现各个类的结构化存储，如何实现？提供现成的示例的另外加分！

[Tasehouny]

没有吧！我觉得结构化存储或复合文档技术很好用，最重要的是，LPSTORAGE对象可以在进程间传送，（系统已经帮你调度了），这是文件句柄无法实现的东西。
老潘德COM原理与应用里边有关于结构化存储的资料，只是迄今为止，我看到的最详细的中文介绍了。

如果需要更详细的代码，可以问我要。

[bittcn]

你好，能给我发一份吗？
[e-mail]

[bittcn]

你好，能给我发一份吗？
[e-mail]

[PagiHi]

阿甘 ：
谢谢你啦！
我的邮箱是:[e-mail] 或 [e-mail]，麻烦您给我发一份详细的代码示例吧。

[hustzxq524]

阿甘：
你好，能给我发一份吗？
我正在看《COM原理和运用》

[hustzxq524]

网络留地址了
[e-mail]

[riventing]

阿甘：
你好，能给我发一份吗？
谢谢！
我的邮箱是:[e-mail]，OICQ--63585081,麻烦您给我发一份详细的代码示例吧。

[551s]

写了，先

[e-mail]

[PagiHi]

阿甘兄：
是不是因为没给分呀！
现在就给你加分，把您的示例代码给我发一份吧。

[Tasehouny]

EMeiMonkey(峨眉猴子)
兄弟我不是这样的势利小人，待会就给你！

[PagiHi]

阿甘兄：
我还是没有收到呀？！

[Tasehouny]

因为是商业软件，不能给你全部的代码，只能给你片断。
但下边的代码足以演示结构化存储的使用方法了。

STDMETHODIMP CStkCollect::SaveData(int nFlag,LPCTSTR pSzFileName)
{
// AFX_MANAGE_STATE(AfxGetStaticModuleState())

if( m_bSyncData == TRUE)
{
return S_FALSE; //正在同步数据
}

USES_CONVERSION;


DWORD dwCbWrite = 0;
DWORD dwCrcFlag = CRC_FLAG;
if(nFlag == 0)
{
m_strSaveFile = pSzFileName;
int nIndex = m_strSaveFile.ReverseFind('\\');
m_strSaveFile = m_strSaveFile.Left(nIndex+1);
m_strSaveFile += CUR_FENSHI_FILE;
m_strStgFile = m_strSaveFile;
}
else
{
m_strSaveFile = pSzFileName;
}

m_crUpdateLock.Lock();
LPSTREAM pStreamPublic = NULL;
//------------------------------------------------------------------------
if(m_pStgCollect == NULL) //如果存储主对象是NULL，则创建之
{
DWORD grfMode =STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE|STGM_DELETEONRELEASE;
CString strTmpFile;
strTmpFile.Format("%s$$$$$BK.Cache",pSzFileName);

HRESULT hr = ::StgCreateDocfile(T2COLE(strTmpFile),grfMode,0,&m_pStgCollect);

if(FAILED(hr)==TRUE)
{
ASSERT(FALSE);
return S_FALSE;
}

hr = m_pStgCollect->CreateStream(T2COLE("PUBLIC"), //公共
STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,0,&pStreamPublic);
ASSERT(SUCCEEDED(hr) == TRUE);

//------------------------------------------------------------------------
int nCellCount = m_aryStkCellPtr.GetSize();

hr = pStreamPublic->Write(&m_dwDate,sizeof(DWORD),&dwCbWrite);
hr = pStreamPublic->Write(&nCellCount,sizeof(int),&dwCbWrite);
hr = pStreamPublic->Write(&m_dwSHDynamicStkId,sizeof(DWORD),&dwCbWrite);
hr = pStreamPublic->Write(&m_dwSZDynamicStkId,sizeof(DWORD),&dwCbWrite);

//------------------------------------------------------------------------
//CELL对象数组
CString strCellName; //CELL流的名称
SStkID stkId = 0; //CELL对象的股票ID
#ifdef _DEBUG
CMap <SStkID,SStkID,int,int>mapSStkId;
#endif
for(int i=0;i<nCellCount;i++)
{
LPSTREAM pCellStream = NULL;
IStkCell *pCell = m_aryStkCellPtr.GetAt(i);
pCell->GetStkId(&stkId);
#ifdef _DEBUG
int nIdx = -1;
if(mapSStkId.Lookup(stkId,nIdx) == FALSE)
mapSStkId.SetAt(stkId,i);
else
{
ASSERT(FALSE);
continue;
}
#endif
pStreamPublic->Write(&stkId,sizeof(DWORD),&dwCbWrite);


strCellName.Format("Cell%d",stkId); //创建流的名称

hr = m_pStgCollect->CreateStream(T2OLE(strCellName),
STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,0,&pCellStream);
if(hr != S_OK)
{
ASSERT(FALSE);
continue;
}
hr = pCell->Save(nFlag,pCellStream);

pCellStream->Release();
}

#ifdef _DEBUG
mapSStkId.RemoveAll();
#endif
pStreamPublic->Release();
}
else //主存储对象已经存在，打开流进行保存对象
{

HRESULT hr ;

hr = m_pStgCollect->OpenStream(T2OLE("PUBLIC"),0,
STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,&pStreamPublic);

ASSERT(SUCCEEDED(hr));

// LARGE_INTEGER ulMovie;
// ULARGE_INTEGER ulNewPos;
// ulMovie.QuadPart = 0;
// pStreamPublic->Seek(ulMovie,STREAM_SEEK_SET,NULL);
//------------------------------------------------------------------------
int nCellCount = m_aryStkCellPtr.GetSize();

hr = pStreamPublic->Write(&m_dwDate,sizeof(DWORD),&dwCbWrite);
hr = pStreamPublic->Write(&nCellCount,sizeof(int),&dwCbWrite);
hr = pStreamPublic->Write(&m_dwSHDynamicStkId,sizeof(DWORD),&dwCbWrite);
hr = pStreamPublic->Write(&m_dwSZDynamicStkId,sizeof(DWORD),&dwCbWrite);

//------------------------------------------------------------------------
//CELL对象数组
CString strCellName; //CELL流的名称
SStkID stkId = 0; //CELL对象的股票ID
for(int i=0;i<nCellCount;i++)
{
LPSTREAM pCellStream = NULL;
IStkCell *pCell = m_aryStkCellPtr.GetAt(i);
pCell->GetStkId(&stkId);
pStreamPublic->Write(&stkId,sizeof(SStkID),&dwCbWrite);

strCellName.Format("Cell%d",stkId); //创建流的名称

hr = m_pStgCollect->OpenStream(T2OLE(strCellName),0,
STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,&pCellStream);

if(FAILED(hr)==TRUE)
{ //动态股票
hr = m_pStgCollect->CreateStream(T2COLE(strCellName), //创建流的名称
STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,0,&pCellStream);
ASSERT(FAILED(hr) == FALSE);
}

// pCellStream->Seek(ulMovie,STREAM_SEEK_SET,NULL);
hr = pCell->Save(nFlag,pCellStream);

pCellStream->Release();
}

pStreamPublic->Release();
}
m_crUpdateLock.Unlock();

//注意：存完盘后不能立刻打开，因为后台还要工作一会！
//////////////////////////////////////////////////////////////////////////
//创建拷贝存储对象，一天下来20多兆不是小数字，所以，
AfxBeginThread(SaveCollectData,(LPVOID)this);
return S_OK;
}

[Tasehouny]

//************************************************************************
//函数名称:
//定义日期: [2002/3/15] 修改日期: 【2002/3/15】
//参数 :
//返回值 :
//作用描述: 向磁盘写二十兆的东西不是小数目，所以另开线程写
//
//************************************************************************
UINT CStkCollect::SaveCollectData(LPVOID lParam)
{
CStkCollect *pCollect = (CStkCollect*)lParam;
LPSTORAGE pStorage = NULL;
USES_CONVERSION;
DWORD grfMode = STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE;
HRESULT hr = ::StgCreateDocfile(T2COLE(pCollect->m_strSaveFile),grfMode,0,&pStorage);

if(FAILED(hr))
{
return -1;
}
pCollect->m_pStgCollect->CopyTo(0,NULL,NULL,pStorage);

pStorage->Release();

return 0;
}
STDMETHODIMP CStkCollect::LoadData(int nFlag,LPCTSTR pSzFileName)
{
// AFX_MANAGE_STATE(AfxGetStaticModuleState())

if(m_bSyncData == TRUE) //如果正在同步数据，放弃装入
return S_FALSE;


USES_CONVERSION;

LPSTORAGE pStorage = NULL;
LPSTREAM pStreamPublic = NULL;
DWORD dwCbRead = 0;
DWORD dwCrcFlag = CRC_FLAG;

if(nFlag == 0)
{
m_strSaveFile = pSzFileName;
int nIndex = m_strSaveFile.ReverseFind('\\');
m_strSaveFile = m_strSaveFile.Left(nIndex+1);
m_strSaveFile += CUR_FENSHI_FILE;
m_strStgFile = m_strSaveFile;
}
else
{
m_strSaveFile = pSzFileName;
}

if(::StgOpenStorage(T2OLE(m_strSaveFile),NULL,
STGM_READWRITE|STGM_SHARE_EXCLUSIVE,NULL,0,&pStorage) != S_OK)
{
//打开存储对象失败！

return S_FALSE;
}
else
{
m_bLoadData = TRUE; //开始装入数据
m_crUpdateLock.Lock();

//////////////////////////////////////////////////////////////////////////
//首先清空当前的对象，才能从存储对象中装入

for(int i=0;i<m_aryStkCellPtr.GetSize();i++)
{
m_aryStkCellPtr[i]->Release();
}

m_aryCodeName.RemoveAll();
m_aryIndicator.RemoveAll();
m_aryStkCellPtr.RemoveAll();
m_mapStkId2CellIdx.RemoveAll();

//////////////////////////////////////////////////////////////////////////

HRESULT hr;
//////////////////////////////////////////////////////////////////////////
hr = pStorage->OpenStream(T2OLE("PUBLIC"),0,
STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,&pStreamPublic);

ASSERT(SUCCEEDED(hr));
// LARGE_INTEGER ulMovie;
// ulMovie.QuadPart = 0;
// pStreamPublic->Seek(ulMovie,STREAM_SEEK_SET,NULL);

int nCellCount = 0;
hr = pStreamPublic->Read(&m_dwDate,sizeof(DWORD),&dwCbRead);
hr = pStreamPublic->Read(&nCellCount,sizeof(int),&dwCbRead);
hr = pStreamPublic->Read(&m_dwSHDynamicStkId,sizeof(DWORD),&dwCbRead);
hr = pStreamPublic->Read(&m_dwSZDynamicStkId,sizeof(DWORD),&dwCbRead);

//------------------------------------------------------------------------
//CELL对象数组
CString strCellName; //CELL流的名称
SStkID stkId = 0; //CELL对象的股票ID
for(int j=0;j<nCellCount;j++)
{
hr = pStreamPublic->Read(&stkId,sizeof(SStkID),&dwCbRead);
#ifdef _DEBUG
int nIdx = 0;
if(m_mapStkId2CellIdx.Lookup(stkId,nIdx)==TRUE)
{
ASSERT(FALSE);
continue;
}

#endif
strCellName.Format("Cell%d",stkId); //创建流的名称
ASSERT(SUCCEEDED(hr) == TRUE);

LPSTREAM pCellStream = NULL;
hr = pStorage->OpenStream(T2OLE(strCellName),0,
STGM_READWRITE|STGM_SHARE_EXCLUSIVE,0,&pCellStream);

ASSERT(hr == S_OK);

IStkCell * pStkCell = NULL;
if(hr== S_OK)
{
// pCellStream->Seek(ulMovie,STREAM_SEEK_SET,NULL);
pStkCell = CreateCell(stkId);
ASSERT(pStkCell != NULL);
DWORD dwCatagory = GET_STK_CATEGORY_LEVEL2(stkId);

if((STKID_MASK_TYPE_Z&dwCatagory) == STKID_MASK_TYPE_Z)
{
//是指数，加入指数指针数组，提高指数的计算效率
m_aryIndicator.Add(pStkCell);
}
pStkCell->Load(nFlag,pCellStream);

RCV_CODE_STRUCT sCodeName;
ZeroMemory(&sCodeName,sizeof(RCV_CODE_STRUCT));
sCodeName.m_StkID = stkId;
pStkCell->GetStkCode(&sCodeName.m_szCode);
pStkCell->GetStkName(&sCodeName.m_szName);
m_aryCodeName.Add(sCodeName); //创建动态代码表

#ifdef _DEBUG
SStkID CellStkId = 0;
pStkCell->GetStkId(&CellStkId);
ASSERT(CellStkId == stkId);
#endif
pCellStream->Release();
}
else
{
ASSERT(FALSE);
continue;
}

}
pStreamPublic->Release();

pStorage->Release();
//////////////////////////////////////////////////////////////////////////
m_crUpdateLock.Unlock();

this->BuildBoard(); //因为这里边也用到了m_crUpdateLock，所以必须出临界区才行

m_bLoadData = FALSE;
}

return S_OK;
}