#include <stdjak.h>

#include <stdio.h>

#include <objbase.h>



static IID              IIDFromString     ( LPOLESTR );
static CLSID            CLSIDFromString   ( LPOLESTR );



extern "C" {

const IID               IID_IWebBrowser2           = IIDFromString   ( L"{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}" );
const IID               IID_IHTMLAnchorElement     = IIDFromString   ( L"{3050f1da-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLDocument2         = IIDFromString   ( L"{332c4425-26cb-11d0-b483-00c04fd90119}" );
const IID               IID_IHTMLElement           = IIDFromString   ( L"{3050f1ff-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLImgElement        = IIDFromString   ( L"{3050f240-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLFrameBase         = IIDFromString   ( L"{3050F311-98B5-11CF-BB82-00AA00BDCE0B}" );
const IID               IID_IHTMLFramesCollection2 = IIDFromString   ( L"{332c4426-26cb-11d0-b483-00c04fd90119}" );
const IID               IID_IHTMLWindow2           = IIDFromString   ( L"{332c4427-26cb-11d0-b483-00c04fd90119}" );
const IID               IID_IDocHostUIHandler      = IIDFromString   ( L"{BD3F23C0-D43E-11CF-893B-00AA00BDCE1A}" );
const IID               IID_IHTMLTextElement       = IIDFromString   ( L"{3050f218-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLFormElement       = IIDFromString   ( L"{3050f1f7-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLSelectElement     = IIDFromString   ( L"{3050f244-98b5-11cf-bb82-00aa00bdce0b}" );
const IID               IID_IHTMLInputElement      = IIDFromString   ( L"{3050f5d2-98b5-11cf-bb82-00aa00bdce0b}" );



const CLSID             CLSID_WebBrowser           = CLSIDFromString ( L"{8856F961-340A-11D0-A96B-00C04FD705A2}" );

};



static IID  IIDFromString ( LPOLESTR  str )
{
   CLSID             clsid;
   IID               tmp;
   HRESULT           result;
   static TCHAR      message  [ 128 ];


   if ( ( result = CLSIDFromString ( str, &clsid ) ) != S_OK )
   {
      sprintf ( message, "CLSIDFromString %ld", result );
      MessageBox ( 0, message, __FUNC__, MB_ICONERROR | MB_OK );
//    iMessage :: Report ( iMessage :: ButtonOk, __FUNC__, 0, "CLSIDFromString %ld", result );
   }

   if ( ( result = IIDFromString  ( str, &tmp ) ) != S_OK )
   {
      sprintf ( message, "IIDFromString %ld", result );
      MessageBox ( 0, message, __FUNC__, MB_ICONERROR | MB_OK );
//    iMessage :: Report ( iMessage :: ButtonOk,  __FUNC__, 0, "%s", __FILE__ );
   }

   return ( tmp );
}



static CLSID  CLSIDFromString ( LPOLESTR  str )
{
   CLSID             clsid;
   HRESULT           result;
   static TCHAR      message  [ 128 ];


   if ( ( result = CLSIDFromString ( str, &clsid ) ) != S_OK )
   {
      sprintf ( message, "CLSIDFromString %ld", result );
      MessageBox ( 0, message, __FUNC__, MB_ICONERROR | MB_OK );
//    iMessage :: Report ( iMessage :: ButtonOk, __FUNC__, 0, "CLSIDFromString %ld", result );
   }

   return ( clsid );
}