BorlandTalk.com

SmartDude · Guest

I'm working with example code from MSDN thats supposed to wrapper all the
COM stuff but it was originaly written for vc.NET so i converted it the best
i could to BCB6. It looks like it should work but the CoCreateInstance()
always fails. If it worked, this code would tell you if you have a writable
CD drive and What the drive letter is. Also where the temp folder is where
files to be written to CD go.
check out: http://msdn.microsoft.com/msdnmag/issues/04/04/CQA/ and
http://msdn2.microsoft.com/en-us/library/ms646705.aspx

#define NO_WIN32_LEAN_AND_MEAN
#include <vcl.h>
#include <windows.h>
#include <shellapi.h>
#include <ShlObj.h>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <string.h>

#include "atl\atlvcl.h" //ALREADY SEEMS TO INCLUDE THE ATL HEADERS
//#include "atl\atlbase.h" // for CComQIPtr etc.
//#include <atlstr.h> // ..for CString
#include <imapi.h> // IMAPI interfaces..
#include <imapierror.h> // ..and error codes

#pragma hdrstop

#include "Unit1.h"

#ifndef TRACE
#define TRACE ATLTRACE
#endif
#ifndef ASSERT
#define ASSERT ATLASSERT
#endif

#define TRACEHR(funcname,hr) \
if (!SUCCEEDED(m_hr)) { Application->MessageBox("failed", "ERROR", MB_OK);}

//The IID and CLSID are not in the standard uuid.lib, so have been defined
here.
const IID IID_ICDBurn =
{0x3d73a659,0xe5d0,0x4d42,{0xaf,0xc0,0x51,0x21,0xba,0x42,0x5c,0x8d}};
const CLSID CLSID_CDBurn =
{0xfbeb8a05,0xbeee,0x4442,{0x80,0x4e,0x40,0x9d,0x6c,0x45,0x15,0xe9}};

class CCDBurn : public CComQIPtr<ICDBurn>
{
public:
HRESULT m_hr; // last error code

CCDBurn() {
// HRESULT hr = CoCreateInstance(CLSID_CDBurn,
NULL,CLSCTX_INPROC_SERVER,IID_ICDBurn,(LPVOID*)&pICDBurn);
// m_hr = ::CoCreateInstance(CLSID_CDBurn,NULL,CLSCTX_INPROC_SERVER,
IID_ICDBurn,(LPVOID*)this);
// m_hr = CoCreateInstance(CLSID_CDBurn,NULL,CLSCTX_INPROC_SERVER);
// CCDBurn burn;

m_hr = ::CoCreateInstance((CLSID)CLSID_CDBurn,
NULL,CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER,(IID)
IID_ICDBurn,(LPVOID*)&burn);

///////THIS IS THE PROBLEM AREA!!////
if (!SUCCEEDED(m_hr)) { Application->MessageBox("failed", "message",
MB_OK);}
else { Application->MessageBox("it worked", "message", MB_OK);}
}

~CCDBurn() { }

// Burn the data in staging area to CD
//
BOOL Burn(HWND hwnd) {
m_hr = (*this)->Burn(hwnd);
TRACEHR(_T("CCDBurn::Burn"),m_hr);
return SUCCEEDED(m_hr);
}

// Does this machine have a recordable drive?
//
BOOL HasRecordableDrive() {
BOOL bHasIt=FALSE;
m_hr = (*this)->HasRecordableDrive(&bHasIt);
TRACEHR(_T("CCDBurn::HasRecordableDrive"),m_hr);
return (SUCCEEDED(m_hr) && bHasIt);
}

// Get drive letter for recordable CD drive, return as STL string.
//
String GetRecorderDriveLetter() {
WCHAR d[32]={0};
m_hr = (*this)->GetRecorderDriveLetter(d, sizeof(d)/sizeof(d[0]));
TRACEHR(_T("CCDBurn::GetRecorderDriveLetter"),m_hr);
return d;
}

// Get location of burn (staging) area. You can change this by setting a
// registry entry or using TWEAKUI in PowerToys for XP.
// This is not an ICDBurn method, but useful anyway.
//
String GetBurnFolderPath() {
TCHAR path[MAX_PATH]={0};
m_hr = SHGetSpecialFolderPath(NULL, path, CSIDL_CDBURN_AREA, FALSE);
TRACEHR(_T("CCDBurn::GetBurnFolderPath"),m_hr);
return path;
}
};
....
TForm *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

// burn path
String str;
CCDBurn cdb;

if (!cdb.HasRecordableDrive())
str = "No recordable drive.";
else
str = "recordable drive detected.";
Application->MessageBox(str.c_str(), "Look", MB_OK);

str = cdb.GetRecorderDriveLetter();
Application->MessageBox(str.c_str(), "Look", MB_OK);

str = cdb.GetBurnFolderPath();
Application->MessageBox(str.c_str(), "Look", MB_OK);
}

Remy Lebeau (TeamB) · Guest

"SmartDude" <smartdude81 (AT) comcast (DOT) net> wrote in message
news:45bdabd6$1 (AT) newsgroups (DOT) borland.com...

SmartDude · Guest

Remy Lebeau (TeamB) · Guest

"SmartDude" <smartdude81 (AT) comcast (DOT) net> wrote in message
news:45be92b8$1 (AT) newsgroups (DOT) borland.com...

SmartDude · Guest

"Remy Lebeau (TeamB)" <no.spam (AT) no (DOT) spam.com> wrote in message
news:45beabeb$1 (AT) newsgroups (DOT) borland.com...

Remy Lebeau (TeamB) · Guest

"SmartDude" <smartdude81 (AT) comcast (DOT) net> wrote in message
news:45bec209$1 (AT) newsgroups (DOT) borland.com...

SmartDude · Guest

Remy Lebeau (TeamB) · Guest

"SmartDude" <smartdude81 (AT) comcast (DOT) net> wrote in message
news:45bfe2e7 (AT) newsgroups (DOT) borland.com...

SmartDude · Guest

SmartDude · Guest