Chinaunix首页 | 论坛 | 博客
  • 博客访问: 215606
  • 博文数量: 70
  • 博客积分: 2050
  • 博客等级: 大尉
  • 技术积分: 700
  • 用 户 组: 普通用户
  • 注册时间: 2006-07-15 21:42
文章分类

全部博文(70)

文章存档

2013年(1)

2011年(5)

2010年(3)

2009年(9)

2008年(17)

2007年(6)

2006年(29)

我的朋友

分类: C/C++

2008-07-23 15:35:35

#define UNICODE
#include

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int nCmdShow)
{
    LPCTSTR lpszFileContent = TEXT("foo bar");
    LPCTSTR lpszError = NULL;
    IStorage *device = NULL;
    IStorage *directory = NULL;
    IStream *file = NULL;

    CoInitialize(NULL);

    if (FAILED(StgCreateDocfile(L"C:\\Compound.dat", STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0, &device)))
        lpszError = TEXT("StgCreateDocfile");
    else if (FAILED(device->lpVtbl->CreateStorage(device, L"directory", STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0, 0, &directory)))
        lpszError = TEXT("IStorage::CreateStorage");
    else if (FAILED(directory->lpVtbl->CreateStream(directory, L"example.doc", STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0, 0, &file)))
        lpszError = TEXT("IStorage::CreateStream");
    else if (FAILED(file->lpVtbl->Write(file, lpszFileContent, lstrlen(lpszFileContent) * sizeof(TCHAR), NULL)))
        lpszError = TEXT("IStream::Write");

    if (lpszError)
        MessageBox(NULL, lpszError, TEXT("Error"), MB_OK | MB_ICONSTOP);

    if (file) file->lpVtbl->Release(file);
    if (directory) directory->lpVtbl->Release(directory);
    if (device) device->lpVtbl->Release(device);

    CoUninitialize();

    return !!lpszError;
}
阅读(917) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~