mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
1.5 KiB
54 lines
1.5 KiB
//+---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1992 - 1993.
|
|
//
|
|
// File: pp.cxx
|
|
//
|
|
// Contents: PowerPoint commit failure repro
|
|
//
|
|
// History: 07-Sep-93 DrewB Created
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
#include "pch.cxx"
|
|
#pragma hdrstop
|
|
|
|
void _CRTAPI1 main(int argc, char *argv[])
|
|
{
|
|
IStorage *pstgRoot, *pstgObj;
|
|
IStream *pstm;
|
|
HRESULT hr;
|
|
|
|
StartTest("pp");
|
|
CmdArgs(argc, argv);
|
|
|
|
hr = StgCreateDocfile(NULL, 0x11022, 0, &pstgRoot);
|
|
Result(hr, "Create docfile");
|
|
hr = pstgRoot->CreateStream(TTEXT("PP40"), 0x1012, 0, 0, &pstm);
|
|
Result(hr, "Create PP40");
|
|
pstm->Release();
|
|
hr = pstgRoot->CreateStorage(TTEXT("Object1"), 0x10012, 0, 0, &pstgObj);
|
|
Result(hr, "Create Object1");
|
|
hr = pstgObj->CreateStream(TTEXT(".Ole"), 0x1011, 0, 0, &pstm);
|
|
Result(hr, "Create .Ole");
|
|
pstm->Release();
|
|
hr = pstgObj->CreateStream(TTEXT(".CompObj"), 0x1011, 0, 0, &pstm);
|
|
Result(hr, "Create .CompObj");
|
|
pstm->Release();
|
|
hr = pstgObj->CreateStream(TTEXT(".Ole10Native"), 0x1011, 0, 0, &pstm);
|
|
Result(hr, "Create .Ole10Native");
|
|
pstm->Release();
|
|
hr = pstgObj->Commit(0);
|
|
Result(hr, "Commit Object1");
|
|
|
|
DfSetResLimit(DBR_XSCOMMITS, 3);
|
|
hr = pstgRoot->Commit(0);
|
|
IllResult(hr, "Commit root");
|
|
|
|
pstgObj->Release();
|
|
pstgRoot->Release();
|
|
|
|
EndTest(0);
|
|
}
|
|
|