Hello,
1) You should attach the Drive Object to AudioBurner Class !!!
2) The VB6 language has the special directive WithEvents that indicate that declared variable will handle events:
Declaration..
Code:
Public WithEvents objAudioBurner As StarBurnXLib.AudioBurner
Using ...
Code:
Private Sub objAudioBurner_OnProgress(ByVal Percent As Long, ByVal TimeRemaining As Long)
...
end
3) Is not clear - " .. 'dispatch' type events " ?!
The AudioBurner object is defined as ...
Code:
coclass AudioBurner
{
[default] interface IAudioBurner;
[default, source] dispinterface IAudioBurnerEvents;
};
4) The Dispatch IDs ...
Code:
OnProgress has the DISPID 1
OnBuffer has the DISPID 2
OnTestWriteDisabled has the DISPID 3
5) The signatures of events ...
Code:
OnProgressInfo = {CC_STDCALL, VT_EMPTY, 2 , {VT_I4,VT_I4} };
OnBufferInfo = {CC_STDCALL,VT_EMPTY,1,{VT_I4}};
OnTestWriteDisabled = {CC_STDCALL,VT_EMPTY,1,{VT_BOOL|VT_BYREF}};
first value - is calling convention;
second value - is return type;
third value - is count of input parameters;
other parameters - are types of input parameters;
Regards,
Dmitry