Problem to open ppt file using automation.

[Le rner]

hi help me to open ppt file using automation. this working well for excel and word files but ppt files are not open from this. can u please correct me where I m wrong

//for ppt files

ifstream in_fp;
DISPPARAMS dpNoArgs = {NULL, NULL, 0, 0};
VARIANT vResult; // used to hold variant results
OLECHAR FAR* szFunction;
IDispatch* pDispApp;
IDispatch* pDispXlBooks;
DISPID dispid_Books; //Documents property of application object
DISPID dispid_Quit;
BSTR bstrFileName = ::SysAllocString(OLESTR("filename"));
BSTR bstrPassWord = ::SysAllocString(OLESTR("pass"));

CString error\_str=\_T("");
in\_fp.open(file\_name, ios::in);
if (!in\_fp || file\_name.GetLength() > MAX\_PATH)
{
	error\_str.Format(\_T("error loading %s\\n"), file\_name);
	AfxMessageBox(error\_str);
	return ;
}

string ss = string(CT2CA(file\_name));

const char \*szFileName = ss.c\_str();

wchar\_t wszFileName\[MAX\_PATH+1\];

//convert file name to bstr for use with COM
MultiByteToWideChar(CP\_ACP, 0, szFileName, strlen(szFileName)+1,
		wszFileName, sizeof(wszFileName)/sizeof(wszFileName\[0\]));

bstrFileName = ::SysAllocString(wszFileName);

// COM work starts here

//Initialize COM
::CoInitialize(NULL);


//get the CLSID for the Excel Application Object
CLSID clsid;

//for word files
//use "Word.Application"

//and for excel files
//use "Excel.Application"

CLSIDFromProgID(L"Powerpoint.Application", &clsid);

//get a pointer to the Objects IUnknown interface and Create
//an instance of the Excel Application.

IUnknown\* pUnk;
HRESULT hr = ::CoCreateInstance( clsid, NULL,
		CLSCTX\_SERVER, IID\_IUnknown, (void\*\*) &pUnk);



hr = pUnk->QueryInterface(IID\_IDispatch, (void\*\*)&pDispApp);

//for word files
//use "Documents"

//and for excel files
//use "Workbooks"

szFunction = OLESTR("Presentations");
hr = pDispApp->GetIDsOfNames (IID\_NULL, &szFunction, 1,
		LOCALE\_USER\_DEFAULT, &dispid\_Books);

hr = pDispApp->Invoke (dispid\_Books, IID\_NULL,
		LOCALE\_USER\_DEFAULT, DISPATCH\_PROPERTYGET,
		&dpNoArgs, &vResult, NULL, NULL);

pDispXlBooks = vResult.pdispVal;

//DISPPARAMS for Open method

DISPID dispid\_Open;
VARIANT vArgsOpen\[5\];
DISPPARAMS dpOpen;
dpOpen.cArgs = 5;
dpOpen.cNamedArgs = 0;
dpOpen.rgvarg = vArgsOpen;

wchar\_t wszPassWord\[MAX\_PATH\];


ss = string(CT2CA(Password));

const char \*pwd\_entry = ss.c\_str();

//again convert to bstr
MultiByteToWideChar(CP\_ACP, 0, pwd\_entry, -1,
		ws

[Jochen Arndt]

You should check the HRESULT return value of each function call and break execution upon failure. Then you know which call fails first and you can check the passed parameters.

[Le rner]

its fail when I m trying to "open" and same this working fine for word and excel files.

[Jochen Arndt]

I have not use OLE automation with PowerPoint so far. But the error

Quote:

"invalid number of parameters"

indicates that the PowerPoint Open() method has other parameters than Excel or Word. See https://support.microsoft.com/kb/222758/en-us[^] for the Presentations.Open() method.

[Le rner]

please help me or ole automation with powerpoint...

[Lost User]

See http://support.microsoft.com/kb/222960[^].

Veni, vidi, abiit domum

[Le rner]

so there is no option to open password protected PPT files in automation?

[Lost User]

Sorry, I don't know. You will need to check the documentation details.

[Le rner]

ok sir.