Initializing the repository with BlackBox 1.6 final. Refs: #12.

.gitignore

@@ -0,0 +1,6 @@
+*.exe
+*.sh
+*.res
+*~
+Code
+Sym

BlackBox.exe.manifest

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly
+  xmlns="urn:schemas-microsoft-com:asm.v1"
+  manifestVersion="1.0"
+>
+  <dependency>
+      <dependentAssembly>
+          <assemblyIdentity
+              type="win32"
+              name="Microsoft.Windows.Common-Controls"
+              version="6.0.0.0"
+              processorArchitecture="x86"
+              publicKeyToken="6595b64144ccf1df"
+              language="*"
+          />
+      </dependentAssembly>
+  </dependency>
+</assembly>

Com/Interfaces/DPhoneBook/Phone.idl

@@ -0,0 +1,29 @@
+[
+  uuid(C4910D73-BA7D-11CD-94E8-08001701A8A3),
+  version(1.0),
+  helpstring("PhoneBook ActiveX Control")
+]
+library PhoneBookLib {
+	importlib("stdole32.tlb");
+    [
+      uuid(C4910D72-BA7D-11CD-94E8-08001701A8A3),
+      helpstring("Dispatch interface for PhoneBook ActiveX Control")
+    ]
+    dispinterface DPhoneBook {
+		properties:
+        methods:
+            [id(1)]
+            BSTR LookupByName(BSTR name);
+            [id(2)]
+            BSTR LookupByNumber(BSTR number);
+	};
+
+    [
+      uuid(E67D346B-2A5B-11D0-ADBA-00C01500554E),
+      helpstring("PhoneBook ActiveX  Control")
+    ]
+    coclass PhoneBook {
+        [default] dispinterface DPhoneBook;
+    };
+}
+

Com/Interfaces/DPhoneBook/Phone.reg

@@ -0,0 +1,19 @@
+REGEDIT
+HKEY_CLASSES_ROOT\PhoneBook = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\PhoneBook\CLSID = {E67D346B-2A5B-11D0-ADBA-00C01500554E}
+HKEY_CLASSES_ROOT\PhoneBook\TypeLib = {C4910D73-BA7D-11CD-94E8-08001701A8A3}
+
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E} = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\ProgID = PhoneBook1.0
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\Control
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\Version = 1.0
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\VersionIndependentProgID = PhoneBook
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\TypeLib = {C4910D73-BA7D-11CD-94E8-08001701A8A3}
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\InprocServer32 = C:\BlackBox\Com\phone.dll
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\NotInsertable
+
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0 = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\0\win32 = C:\BlackBox\Com\Interfaces\DPhoneBook\phone.tlb
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\FLAGS = 0
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\HELPDIR = C:\BlackBox\Com\Interfaces\DPhoneBook
+

Com/Interfaces/Lookup/DLLDATA.C

@@ -0,0 +1,37 @@
+/*********************************************************
+   DllData file -- generated by MIDL compiler 
+
+        DO NOT ALTER THIS FILE
+
+   This file is regenerated by MIDL on every IDL file compile.
+
+   To completely reconstruct this file, delete it and rerun MIDL
+   on all the IDL files in this DLL, specifying this file for the
+   /dlldata command line option
+
+*********************************************************/
+
+
+#include <rpcproxy.h>
+
+#ifdef __cplusplus
+extern "C"   {
+#endif
+
+EXTERN_PROXY_FILE( Lookup )
+
+
+PROXYFILE_LIST_START
+/* Start of list */
+  REFERENCE_PROXY_FILE( Lookup ),
+/* End of list */
+PROXYFILE_LIST_END
+
+
+DLLDATA_ROUTINES( aProxyFileList, GET_DLL_CLSID )
+
+#ifdef __cplusplus
+}  /*extern "C" */
+#endif
+
+/* end of generated dlldata file */

Com/Interfaces/Lookup/Lookup.def

@@ -0,0 +1,10 @@
+LIBRARY         LOOKUP
+
+
+
+EXPORTS        DllGetClassObject       PRIVATE
+
+DllCanUnloadNow        PRIVATE
+
+DllRegisterServer      PRIVATE
+

Com/Interfaces/Lookup/Lookup.h

@@ -0,0 +1,164 @@
+/* this ALWAYS GENERATED file contains the definitions for the interfaces */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+#include "rpc.h"
+#include "rpcndr.h"
+#ifndef COM_NO_WINDOWS_H
+#include "windows.h"
+#include "ole2.h"
+#endif /*COM_NO_WINDOWS_H*/
+
+#ifndef __Lookup_h__
+#define __Lookup_h__
+
+#ifdef __cplusplus
+extern "C"{
+#endif 
+
+/* Forward Declarations */ 
+
+#ifndef __ILookup_FWD_DEFINED__
+#define __ILookup_FWD_DEFINED__
+typedef interface ILookup ILookup;
+#endif 	/* __ILookup_FWD_DEFINED__ */
+
+
+/* header files for imported files */
+#include "unknwn.h"
+
+void __RPC_FAR * __RPC_USER MIDL_user_allocate(size_t);
+void __RPC_USER MIDL_user_free( void __RPC_FAR * ); 
+
+#ifndef __ILookup_INTERFACE_DEFINED__
+#define __ILookup_INTERFACE_DEFINED__
+
+/****************************************
+ * Generated header for interface: ILookup
+ * at Wed Oct 30 17:25:28 1996
+ * using MIDL 2.00.0102
+ ****************************************/
+/* [unique][uuid][object] */ 
+
+
+
+EXTERN_C const IID IID_ILookup;
+
+#if defined(__cplusplus) && !defined(CINTERFACE)
+    
+    interface ILookup : public IUnknown
+    {
+    public:
+        virtual HRESULT __stdcall LookupByName( 
+            /* [in] */ LPTSTR lpName,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber) = 0;
+        
+        virtual HRESULT __stdcall LookupByNumber( 
+            /* [in] */ LPSTR lpNumber,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName) = 0;
+        
+    };
+    
+#else 	/* C style interface */
+
+    typedef struct ILookupVtbl
+    {
+        
+        HRESULT ( __stdcall __RPC_FAR *QueryInterface )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ REFIID riid,
+            /* [out] */ void __RPC_FAR *__RPC_FAR *ppvObject);
+        
+        ULONG ( __stdcall __RPC_FAR *AddRef )( 
+            ILookup __RPC_FAR * This);
+        
+        ULONG ( __stdcall __RPC_FAR *Release )( 
+            ILookup __RPC_FAR * This);
+        
+        HRESULT ( __stdcall __RPC_FAR *LookupByName )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ LPTSTR lpName,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber);
+        
+        HRESULT ( __stdcall __RPC_FAR *LookupByNumber )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ LPSTR lpNumber,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName);
+        
+    } ILookupVtbl;
+
+    interface ILookup
+    {
+        CONST_VTBL struct ILookupVtbl __RPC_FAR *lpVtbl;
+    };
+
+    
+
+#ifdef COBJMACROS
+
+
+#define ILookup_QueryInterface(This,riid,ppvObject)	\
+    (This)->lpVtbl -> QueryInterface(This,riid,ppvObject)
+
+#define ILookup_AddRef(This)	\
+    (This)->lpVtbl -> AddRef(This)
+
+#define ILookup_Release(This)	\
+    (This)->lpVtbl -> Release(This)
+
+
+#define ILookup_LookupByName(This,lpName,lplpNumber)	\
+    (This)->lpVtbl -> LookupByName(This,lpName,lplpNumber)
+
+#define ILookup_LookupByNumber(This,lpNumber,lplpName)	\
+    (This)->lpVtbl -> LookupByNumber(This,lpNumber,lplpName)
+
+#endif /* COBJMACROS */
+
+
+#endif 	/* C style interface */
+
+
+
+HRESULT __stdcall ILookup_LookupByName_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPTSTR lpName,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber);
+
+
+void __RPC_STUB ILookup_LookupByName_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase);
+
+
+HRESULT __stdcall ILookup_LookupByNumber_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPSTR lpNumber,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName);
+
+
+void __RPC_STUB ILookup_LookupByNumber_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase);
+
+
+
+#endif 	/* __ILookup_INTERFACE_DEFINED__ */
+
+
+/* Additional Prototypes for ALL interfaces */
+
+/* end of Additional Prototypes */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif

Com/Interfaces/Lookup/Lookup.idl

@@ -0,0 +1,21 @@
+[
+	object,
+	uuid(c4910d71-ba7d-11cd-94e8-08001701a8a3),
+	pointer_default(unique)
+]
+
+interface ILookup : IUnknown
+{
+	import "unknwn.idl";
+	HRESULT LookupByName(
+		[in] LPTSTR lpName, 
+		[out, string] WCHAR **lplpNumber
+	);
+	HRESULT LookupByNumber(
+		[in] LPSTR lpNumber,
+		[out, string] WCHAR **lplpName
+	);
+}
+
+// midl /ms_ext /c_ext /I \mstools\include lookup.idl
+

Com/Interfaces/Lookup/Lookup.rc

@@ -0,0 +1,67 @@
+VS_VERSION_INFO    VERSIONINFO
+
+FILEVERSION      1,0,0,1
+
+PRODUCTVERSION   1,0,0,1
+
+// FILEFLAGSMASK    VS_FFI_FILEFLAGSMASK
+
+#ifdef _DEBUG
+
+FILEFLAGS        VS_FF_DEBUG|VS_FF_PRIVATEBUILD|VS_FF_PRERELEASE
+
+#else
+
+FILEFLAGS        0 // final version
+
+#endif
+
+// FILEOS           VOS__WINDOWS32
+
+// FILETYPE         VFT_DLL
+
+FILESUBTYPE      0   // not used
+
+BEGIN
+
+BLOCK "StringFileInfo"
+
+BEGIN
+
+BLOCK "040904E4" // Lang=US English, CharSet=Windows Multilingual
+
+BEGIN
+
+VALUE "CompanyName",     "\0"
+
+VALUE "FileDescription", "Lookup Interfaces Proxy/Stub DLL\0"
+
+VALUE "FileVersion",     "1.0.000\0"
+
+VALUE "InternalName",    "LOOKUP\0"
+
+VALUE "LegalCopyright",  "\0"
+
+VALUE "LegalTrademarks", "\0"
+
+VALUE "OriginalFilename","LOOKUP.DLL\0"
+
+VALUE "ProductName",     "LOOKUP\0"
+
+VALUE "ProductVersion",  "1.0.000\0"
+
+VALUE "OLESelfRegister", "\0" // New keyword
+
+END
+
+END
+
+BLOCK "VarFileInfo"
+
+BEGIN
+
+VALUE "Translation", 0x409, 1252
+
+END
+
+END

Com/Interfaces/Lookup/Lookup_i.c

@@ -0,0 +1,40 @@
+/* this ALWAYS GENERATED file contains the actual definitions of */
+/* the IIDs and CLSIDs */
+
+/* link this file in with the server and any clients */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+#ifdef __cplusplus
+extern "C"{
+#endif 
+
+
+#ifndef IID_DEFINED
+#define IID_DEFINED
+
+typedef struct _IID
+{
+    unsigned long x;
+    unsigned short s1;
+    unsigned short s2;
+    unsigned char  c[8];
+} IID;
+
+#endif // IID_DEFINED
+
+#ifndef CLSID_DEFINED
+#define CLSID_DEFINED
+typedef IID CLSID;
+#endif // CLSID_DEFINED
+
+const IID IID_ILookup = {0xc4910d71,0xba7d,0x11cd,{0x94,0xe8,0x08,0x00,0x17,0x01,0xa8,0xa3}};
+
+
+#ifdef __cplusplus
+}
+#endif
+

Com/Interfaces/Lookup/Lookup_p.c

@@ -0,0 +1,468 @@
+/* this ALWAYS GENERATED file contains the proxy stub code */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+
+#include "rpcproxy.h"
+#include "Lookup.h"
+
+
+extern const MIDL_FORMAT_STRING __MIDLFormatString;
+
+extern const MIDL_FORMAT_STRING __MIDLProcFormatString;
+
+
+extern const MIDL_STUB_DESC Object_StubDesc;
+
+
+#pragma code_seg(".orpc")
+
+HRESULT __stdcall ILookup_LookupByName_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPTSTR lpName,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber)
+{
+
+    HRESULT _RetVal;
+    
+    RPC_MESSAGE _RpcMessage;
+    
+    MIDL_STUB_MESSAGE _StubMsg;
+    
+    *lplpNumber = 0;
+    RpcTryExcept
+        {
+        RpcTryFinally
+            {
+            NdrProxyInitialize(
+                      ( void __RPC_FAR *  )This,
+                      ( PRPC_MESSAGE  )&_RpcMessage,
+                      ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                      ( PMIDL_STUB_DESC  )&Object_StubDesc,
+                      3);
+            
+            
+            
+            
+            _StubMsg.BufferLength = 12U;
+            NdrConformantStringBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                           (unsigned char __RPC_FAR *)lpName,
+                                           (PFORMAT_STRING) &__MIDLFormatString.Format[2] );
+            
+            NdrProxyGetBuffer(This, &_StubMsg);
+            NdrConformantStringMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                                         (unsigned char __RPC_FAR *)lpName,
+                                         (PFORMAT_STRING) &__MIDLFormatString.Format[2] );
+            
+            NdrProxySendReceive(This, &_StubMsg);
+            
+            if ( (_RpcMessage.DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+                NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[0] );
+            
+            NdrPointerUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                  (unsigned char __RPC_FAR * __RPC_FAR *)&lplpNumber,
+                                  (PFORMAT_STRING) &__MIDLFormatString.Format[4],
+                                  (unsigned char)0 );
+            
+            _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+            _RetVal = *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++;
+            
+            }
+        RpcFinally
+            {
+            NdrProxyFreeBuffer(This, &_StubMsg);
+            
+            }
+        RpcEndFinally
+        
+        }
+    RpcExcept(_StubMsg.dwStubPhase != PROXY_SENDRECEIVE)
+        {
+        NdrClearOutParameters(
+                         ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                         ( PFORMAT_STRING  )&__MIDLFormatString.Format[4],
+                         ( void __RPC_FAR * )lplpNumber);
+        _RetVal = NdrProxyErrorHandler(GetExceptionCode());
+        }
+    RpcEndExcept
+    return _RetVal;
+}
+
+void __RPC_STUB ILookup_LookupByName_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase)
+{
+    WCHAR __RPC_FAR *_M4;
+    HRESULT _RetVal;
+    MIDL_STUB_MESSAGE _StubMsg;
+    LPTSTR lpName;
+    WCHAR __RPC_FAR *__RPC_FAR *lplpNumber;
+    
+NdrStubInitialize(
+                     _pRpcMessage,
+                     &_StubMsg,
+                     &Object_StubDesc,
+                     _pRpcChannelBuffer);
+    lpName = 0;
+    lplpNumber = 0;
+    RpcTryFinally
+        {
+        if ( (_pRpcMessage->DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+            NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[0] );
+        
+        NdrConformantStringUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                       (unsigned char __RPC_FAR * __RPC_FAR *)&lpName,
+                                       (PFORMAT_STRING) &__MIDLFormatString.Format[2],
+                                       (unsigned char)0 );
+        
+        lplpNumber = &_M4;
+        _M4 = 0;
+        
+        *_pdwStubPhase = STUB_CALL_SERVER;
+        _RetVal = (((ILookup *) ((CStdStubBuffer *)This)->pvServerObject)->lpVtbl) -> LookupByName(
+                (ILookup *) ((CStdStubBuffer *)This)->pvServerObject,
+                lpName,
+                lplpNumber);
+        
+        *_pdwStubPhase = STUB_MARSHAL;
+        
+        _StubMsg.BufferLength = 16U + 10U;
+        NdrPointerBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                              (unsigned char __RPC_FAR *)lplpNumber,
+                              (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.BufferLength += 16;
+        
+        NdrStubGetBuffer(This, _pRpcChannelBuffer, &_StubMsg);
+        NdrPointerMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                            (unsigned char __RPC_FAR *)lplpNumber,
+                            (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+        *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++ = _RetVal;
+        
+        }
+    RpcFinally
+        {
+        NdrPointerFree( &_StubMsg,
+                        (unsigned char __RPC_FAR *)lplpNumber,
+                        &__MIDLFormatString.Format[4] );
+        
+        }
+    RpcEndFinally
+    _pRpcMessage->BufferLength = 
+        (unsigned int)((long)_StubMsg.Buffer - (long)_pRpcMessage->Buffer);
+    
+}
+
+
+HRESULT __stdcall ILookup_LookupByNumber_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPSTR lpNumber,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName)
+{
+
+    HRESULT _RetVal;
+    
+    RPC_MESSAGE _RpcMessage;
+    
+    MIDL_STUB_MESSAGE _StubMsg;
+    
+    *lplpName = 0;
+    RpcTryExcept
+        {
+        RpcTryFinally
+            {
+            NdrProxyInitialize(
+                      ( void __RPC_FAR *  )This,
+                      ( PRPC_MESSAGE  )&_RpcMessage,
+                      ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                      ( PMIDL_STUB_DESC  )&Object_StubDesc,
+                      4);
+            
+            
+            
+            
+            _StubMsg.BufferLength = 12U;
+            NdrConformantStringBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                           (unsigned char __RPC_FAR *)lpNumber,
+                                           (PFORMAT_STRING) &__MIDLFormatString.Format[14] );
+            
+            NdrProxyGetBuffer(This, &_StubMsg);
+            NdrConformantStringMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                                         (unsigned char __RPC_FAR *)lpNumber,
+                                         (PFORMAT_STRING) &__MIDLFormatString.Format[14] );
+            
+            NdrProxySendReceive(This, &_StubMsg);
+            
+            if ( (_RpcMessage.DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+                NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[10] );
+            
+            NdrPointerUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                  (unsigned char __RPC_FAR * __RPC_FAR *)&lplpName,
+                                  (PFORMAT_STRING) &__MIDLFormatString.Format[4],
+                                  (unsigned char)0 );
+            
+            _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+            _RetVal = *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++;
+            
+            }
+        RpcFinally
+            {
+            NdrProxyFreeBuffer(This, &_StubMsg);
+            
+            }
+        RpcEndFinally
+        
+        }
+    RpcExcept(_StubMsg.dwStubPhase != PROXY_SENDRECEIVE)
+        {
+        NdrClearOutParameters(
+                         ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                         ( PFORMAT_STRING  )&__MIDLFormatString.Format[4],
+                         ( void __RPC_FAR * )lplpName);
+        _RetVal = NdrProxyErrorHandler(GetExceptionCode());
+        }
+    RpcEndExcept
+    return _RetVal;
+}
+
+void __RPC_STUB ILookup_LookupByNumber_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase)
+{
+    WCHAR __RPC_FAR *_M9;
+    HRESULT _RetVal;
+    MIDL_STUB_MESSAGE _StubMsg;
+    LPSTR lpNumber;
+    WCHAR __RPC_FAR *__RPC_FAR *lplpName;
+    
+NdrStubInitialize(
+                     _pRpcMessage,
+                     &_StubMsg,
+                     &Object_StubDesc,
+                     _pRpcChannelBuffer);
+    lpNumber = 0;
+    lplpName = 0;
+    RpcTryFinally
+        {
+        if ( (_pRpcMessage->DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+            NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[10] );
+        
+        NdrConformantStringUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                       (unsigned char __RPC_FAR * __RPC_FAR *)&lpNumber,
+                                       (PFORMAT_STRING) &__MIDLFormatString.Format[14],
+                                       (unsigned char)0 );
+        
+        lplpName = &_M9;
+        _M9 = 0;
+        
+        *_pdwStubPhase = STUB_CALL_SERVER;
+        _RetVal = (((ILookup *) ((CStdStubBuffer *)This)->pvServerObject)->lpVtbl) -> LookupByNumber(
+                  (ILookup *) ((CStdStubBuffer *)This)->pvServerObject,
+                  lpNumber,
+                  lplpName);
+        
+        *_pdwStubPhase = STUB_MARSHAL;
+        
+        _StubMsg.BufferLength = 16U + 10U;
+        NdrPointerBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                              (unsigned char __RPC_FAR *)lplpName,
+                              (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.BufferLength += 16;
+        
+        NdrStubGetBuffer(This, _pRpcChannelBuffer, &_StubMsg);
+        NdrPointerMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                            (unsigned char __RPC_FAR *)lplpName,
+                            (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+        *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++ = _RetVal;
+        
+        }
+    RpcFinally
+        {
+        NdrPointerFree( &_StubMsg,
+                        (unsigned char __RPC_FAR *)lplpName,
+                        &__MIDLFormatString.Format[4] );
+        
+        }
+    RpcEndFinally
+    _pRpcMessage->BufferLength = 
+        (unsigned int)((long)_StubMsg.Buffer - (long)_pRpcMessage->Buffer);
+    
+}
+
+
+static const MIDL_STUB_DESC Object_StubDesc = 
+    {
+    0,
+    NdrOleAllocate,
+    NdrOleFree,
+    0,
+    0,
+    0,
+    0,
+    0,
+    __MIDLFormatString.Format,
+    0, /* -error bounds_check flag */
+    0x10001, /* Ndr library version */
+    0,
+    0x2000066, /* MIDL Version 2.0.102 */
+    0
+    };
+
+const CInterfaceProxyVtbl _ILookupProxyVtbl = 
+{
+    &IID_ILookup,
+    IUnknown_QueryInterface_Proxy,
+    IUnknown_AddRef_Proxy,
+    IUnknown_Release_Proxy ,
+    ILookup_LookupByName_Proxy ,
+    ILookup_LookupByNumber_Proxy
+};
+
+
+static const PRPC_STUB_FUNCTION ILookup_table[] =
+{
+    ILookup_LookupByName_Stub,
+    ILookup_LookupByNumber_Stub
+};
+
+const CInterfaceStubVtbl _ILookupStubVtbl =
+{
+    &IID_ILookup,
+    0,
+    5,
+    &ILookup_table[-3],
+    CStdStubBuffer_METHODS
+};
+
+#pragma data_seg(".rdata")
+
+#if !defined(__RPC_WIN32__)
+#error  Invalid build platform for this stub.
+#endif
+
+static const MIDL_FORMAT_STRING __MIDLProcFormatString =
+    {
+        0,
+        {
+			
+			0x4d,		/* FC_IN_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/*  2 */	NdrFcShort( 0x0 ),	/* Type Offset=0 */
+/*  4 */	
+			0x51,		/* FC_OUT_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/*  6 */	NdrFcShort( 0x4 ),	/* Type Offset=4 */
+/*  8 */	0x53,		/* FC_RETURN_PARAM_BASETYPE */
+			0x8,		/* FC_LONG */
+/* 10 */	
+			0x4d,		/* FC_IN_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/* 12 */	NdrFcShort( 0xc ),	/* Type Offset=12 */
+/* 14 */	
+			0x51,		/* FC_OUT_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/* 16 */	NdrFcShort( 0x4 ),	/* Type Offset=4 */
+/* 18 */	0x53,		/* FC_RETURN_PARAM_BASETYPE */
+			0x8,		/* FC_LONG */
+
+			0x0
+        }
+    };
+
+static const MIDL_FORMAT_STRING __MIDLFormatString =
+    {
+        0,
+        {
+			0x11, 0x8,	/* FC_RP [simple_pointer] */
+/*  2 */	
+			0x25,		/* FC_C_WSTRING */
+			0x5c,		/* FC_PAD */
+/*  4 */	
+			0x11, 0x14,	/* FC_RP [alloced_on_stack] */
+/*  6 */	NdrFcShort( 0x2 ),	/* Offset= 2 (8) */
+/*  8 */	
+			0x13, 0x8,	/* FC_OP [simple_pointer] */
+/* 10 */	
+			0x25,		/* FC_C_WSTRING */
+			0x5c,		/* FC_PAD */
+/* 12 */	
+			0x11, 0x8,	/* FC_RP [simple_pointer] */
+/* 14 */	
+			0x22,		/* FC_C_CSTRING */
+			0x5c,		/* FC_PAD */
+
+			0x0
+        }
+    };
+
+const CInterfaceProxyVtbl * _Lookup_ProxyVtblList[] = 
+{
+    ( CInterfaceProxyVtbl *) &_ILookupProxyVtbl,
+    0
+};
+
+const CInterfaceStubVtbl * _Lookup_StubVtblList[] = 
+{
+    ( CInterfaceStubVtbl *) &_ILookupStubVtbl,
+    0
+};
+
+PCInterfaceName const _Lookup_InterfaceNamesList[] = 
+{
+    "ILookup",
+    0
+};
+
+
+#define _Lookup_CHECK_IID(n)	IID_GENERIC_CHECK_IID( _Lookup, pIID, n)
+
+int __stdcall _Lookup_IID_Lookup( const IID * pIID, int * pIndex )
+{
+    
+    if(!_Lookup_CHECK_IID(0))
+        {
+        *pIndex = 0;
+        return 1;
+        }
+
+    return 0;
+}
+
+const ExtendedProxyFileInfo Lookup_ProxyFileInfo = 
+{
+    (PCInterfaceProxyVtblList *) & _Lookup_ProxyVtblList,
+    (PCInterfaceStubVtblList *) & _Lookup_StubVtblList,
+    (const PCInterfaceName * ) & _Lookup_InterfaceNamesList,
+    0, // no delegation
+    & _Lookup_IID_Lookup, 
+    1,
+    1
+};

Com/Interfaces/Lookup/MAKEFILE

@@ -0,0 +1,57 @@
+# MAKEFILE
+
+# Builds Proxy/Stub DLL for LOOKUP.IDL
+
+#
+
+# Copyright (c) 1993-1995 Microsoft Corporation, All Rights Reserved
+
+all: Lookup.dll
+
+TARGET  = Lookup
+
+OUTFILE = $(TARGET).dll
+
+
+
+OBJS1   = Lookup_i.obj Lookup_p.obj
+
+OBJS2   = dlldata.obj
+
+OBJS    = $(OBJS1) $(OBJS2)
+
+
+
+LIBS    = rpcrt4.lib
+
+
+
+Lookup.dll: Lookup_i.obj Lookup_p.obj dlldata.obj Lookup.def Lookup.res
+	link /DLL -def:$(TARGET).DEF -out:$(OUTFILE) $(OBJS) $(LIBS) $(TARGET).RES
+
+
+
+Lookup_i.obj: Lookup_i.c Lookup.idl
+	cl -MD -c Lookup_i.c
+
+
+
+Lookup_p.obj: Lookup_p.c Lookup.h Lookup.idl
+	cl -MD -c Lookup_p.c
+
+
+
+dlldata.obj: dlldata.c Lookup.idl
+	cl -MD -c -DREGISTER_PROXY_DLL dlldata.c
+
+
+
+Lookup.res: Lookup.rc
+	rc /r $(TARGET).rc
+
+
+
+#Run MIDL.EXE to produce the source code
+
+Lookup.h Lookup_p.c Lookup_i.c dlldata.c: Lookup.idl
+	midl /ms_ext /app_config /c_ext /I \mstools\include $(TARGET).idl

Com/Reg/DKoala1.reg

@@ -0,0 +1,12 @@
+REGEDIT
+HKEY_CLASSES_ROOT\Koala1.0 = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala1.0\CLSID = {00021146-0000-0000-C000-000000000046}
+HKEY_CLASSES_ROOT\Koala = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala\CurVer = Koala1.0
+HKEY_CLASSES_ROOT\Koala\CLSID = {00021146-0000-0000-C000-000000000046}
+
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046} = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\ProgID = Koala1.0
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\VersionIndependentProgID = Koala
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\InprocServer32 = C:\BlackBox\Com\DKoala1.dll
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\NotInsertable

Com/Reg/EKoala1.reg

@@ -0,0 +1,12 @@
+REGEDIT
+HKEY_CLASSES_ROOT\Koala1.0 = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala1.0\CLSID = {00021146-0000-0000-C000-000000000046}
+HKEY_CLASSES_ROOT\Koala = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala\CurVer = Koala1.0
+HKEY_CLASSES_ROOT\Koala\CLSID = {00021146-0000-0000-C000-000000000046}
+
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046} = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\ProgID = Koala1.0
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\VersionIndependentProgID = Koala
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\LocalServer32 = C:\BlackBox\Com\Ekoala1.exe
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\NotInsertable

Com/Rsrc/phone.html

@@ -0,0 +1,33 @@
+<HTML>
+<HEAD>
+<TITLE>ActiveX Demo - Phonebook</TITLE>
+</HEAD>
+
+<BODY>
+<H1>Simple Phone Book</H1>
+
+<OBJECT
+  CLASSID="CLSID:E67D346B-2A5B-11D0-ADBA-00C01500554E"
+  id=PhoneBook
+>
+</OBJECT>
+This page uses a small (40K) non-visual control which provides access
+to a phone book which also might run on a remote computer. This ActiveX
+control has been implemented with the DTC Component Pascal compiler.
+<P>
+Enter a name or a phone number and press the corresponding button:
+<P>
+<INPUT  TYPE="text"  NAME = "NameField"  SIZE=20>
+<INPUT  TYPE=BUTTON VALUE="Lookup by Name"  NAME="NameBtn">
+<INPUT  TYPE=BUTTON VALUE="Lookup by Number"  NAME="NumberBtn">
+
+<SCRIPT LANGUAGE=VBScript>
+Sub NameBtn_Onclick
+  alert "Phone number of " & NameField.value & ":    " & PhoneBook.LookupByName(NameField.value) 
+End Sub
+Sub NumberBtn_Onclick
+  alert "Name of line " & NameField.value & ":    " & PhoneBook.LookupByNumber(NameField.value) 
+End Sub
+</SCRIPT>
+</BODY>
+</HTML>