typedef struct
        {
                float v2;
                float v3;
                float fac;
        } goertzel_state_t;

        typedef struct {

         float  v2;
         float  v3;
         float  fac;

        } goertzel_state_t;

        class __EXPORT Info
        {
        public:
                Format format;
                Encoding encoding;
                unsigned long rate;
                unsigned long bitrate;
                unsigned order;
                unsigned framesize, framecount;
                timeout_t framing;
                char *annotation;

                Info();
                void clear(void);
                void set(void);
                void setFraming(timeout_t frame);
        };

        class __EXPORT Info {

        public:

         Format         format;
         Encoding       encoding;
         unsigned long  rate;
         unsigned long  bitrate;
         unsigned       order;
         unsigned       framesize, 
                        framecount;
         timeout_t      framing;
         char           *annotation;

         Info();
         void clear( void );
         void set( void );
         void setFraming( timeout_t  frame );

        };

// --- Если имя stream не задано
//
 if  ( SysStringLen( NameStream ) == 0 ) {

  m_CFile.Attach( NameFile );

  bRet = ( m_CFile.m_Ok == TRUE ? 1 : 0 );

  if  ( m_CFile.m_Ok == TRUE )  {

   hr              = S_OK;
   ResValue.dblVal = 1;
   *bResult        = ResValue;

  } else {
   hr              = S_FALSE;
   ResValue.dblVal = 0;
   *bResult        = ResValue;
  }

  return  hr;

 }                                                         // if  ( SysStringLen( NameStream ) == 0 ) {

// ---  Default constructor
//
CDiagReport::CDiagReport() {

 m_pIIStorage            = NULL;
 m_pIIStream             = NULL;
 m_pIIPropertySetStorage = NULL;
 m_pIIPropertyStorage    = NULL;
 m_pII1C                 = NULL;

}                                                          // IFACEMETHODIMP CDiagReport::CDiagReport(

// --------------------------------------------------------
// --- Save data stream to file
//
IFACEMETHODIMP  AIStream::SaveToFile(
 _In_  INT      IndexSourceStream,
 _In_  ULONG    cntBytes,
 _In_  ULONG    cntOffset,
 _In_  BSTR     NameFile,
 _Out_ VARIANT  *bResult
) {
/*

 IndexSourceStream      Index source item in m_vIStream

 cntBytes               The number of bytes of data of stream save in file /if == 0, то сохраняются все байты/

 cntOffset              Количество байт для смещения относительно начала файла 

 NameFile               Name file в который производится запись заданного числа байт, взятых из stream

 bResult                Флаг, содержащий результат выполнения функции:
                         ==  .T.  -  все Ok

 Return:

*/

 HRESULT  hr   = S_OK;
 BOOL     bRet = TRUE;

 VARIANT  ResValue;                                        // Result value field

 ResValue.vt     = VT_R8;
 ResValue.dblVal = 0;

 CString   csNameFile( NameFile );

 bRet = (BOOL) m_vIStream[ IndexSourceStream ]->SaveToFile(
  cntBytes,                                                // The number of bytes of data of stream save in file /if == 0, то сохраняются все байты/
  cntOffset,                                               //           
  csNameFile                                               // Name file
 );

 if  ( bRet == FALSE ) {
  *bResult = ResValue;
  hr       = S_FALSE;
 }

 ResValue.dblVal = 1;
 *bResult        = ResValue;

 return  hr;

}                                                          // IFACEMETHODIMP  AIStream::SaveToFile( ...

if(SysStringLen(NameStream)==0){
 m_CFile.Attach(NameFile);
 bRet=(m_CFile.m_Ok==TRUE?1:0);
if(m_CFile.m_Ok==TRUE){
 hr=S_OK;
 ResValue.dblVal=1;
 *bResult=ResValue;
}else{
 hr=S_FALSE;
 ResValue.dblVal=0;
 *bResult=ResValue;}
return  hr;}