modi_ocx.cpp

微软的虚拟打印组件

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// C++ TLBWRTR : $Revision:   1.151.1.0.1.27  $
// File generated on 2006-4-17 15:33:26 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MDIVWCTL.DLL (1)
// LIBID: {A5EDEDF4-2BBC-45F3-822B-E60C278A1A79}
// LCID: 0
// Helpfile: 
// HelpString: Microsoft Office Document Imaging 11.0 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TDocument) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TLayout) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TMODI_Image) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TWord) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TMiFont) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TWords) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TImages) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TMiRect) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TMiRects) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
//   Error creating palette bitmap of (TMiDocSearch) : Server C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.DLL contains no icons
// ************************************************************************ //

#include <vcl.h>
#pragma hdrstop

#include <olectrls.hpp>
#include <oleserver.hpp>
#if defined(USING_ATL)
#include <atl\atlvcl.h>
#endif

#include "MODI_OCX.h"

#if !defined(__PRAGMA_PACKAGE_SMART_INIT)
#define      __PRAGMA_PACKAGE_SMART_INIT
#pragma package(smart_init)
#endif
typedef struct
{
  WORD KEY;
  WORD CNTR;
  DWORD BACK;
public:
  void __fastcall SetKey()
  {
    KEY= 0X3A91;
  }
  bool __fastcall CheckKey()
  {
    return KEY== 0X3A91;
  }
} PrintCntlData;
static WORD MSG_INDEX = 0X0001;
static WORD MSG_SCALE = 0X0002;

namespace Modi_tlb
{

IDocumentPtr& TDocument::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TDocument::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TDocument::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TDocument::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TDocument::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TDocument::ConnectTo(IDocumentPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TDocument::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Document;
  sd.IntfIID = __uuidof(IDocument);
  sd.EventIID= __uuidof(_IDocumentEvents);
  ServerData = &sd;
}

void __fastcall TDocument::InvokeEvent(int id, Oleserver::TVariantArray& params)
{
  switch(id)
  {
    case 1: {
      if (OnOCRProgress) {
        (OnOCRProgress)(this, TVariant(params[0]), TVariant(params[1]));
      }
      break;
      }
    default:
      break;
  }
}

ILayoutPtr& TLayout::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TLayout::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TLayout::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TLayout::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TLayout::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TLayout::ConnectTo(ILayoutPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TLayout::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Layout;
  sd.IntfIID = __uuidof(ILayout);
  sd.EventIID= GUID_NULL;
  ServerData = &sd;
}

IImagePtr& TMODI_Image::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TMODI_Image::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TMODI_Image::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TMODI_Image::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TMODI_Image::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TMODI_Image::ConnectTo(IImagePtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TMODI_Image::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Image;
  sd.IntfIID = __uuidof(IImage);
  sd.EventIID= __uuidof(_IImageEvents);
  ServerData = &sd;
}

void __fastcall TMODI_Image::InvokeEvent(int id, Oleserver::TVariantArray& params)
{
  switch(id)
  {
    default:
      break;
  }
}

IWordPtr& TWord::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TWord::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TWord::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TWord::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TWord::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TWord::ConnectTo(IWordPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TWord::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Word;
  sd.IntfIID = __uuidof(IWord);
  sd.EventIID= GUID_NULL;
  ServerData = &sd;
}

IMiFontPtr& TMiFont::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TMiFont::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TMiFont::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TMiFont::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TMiFont::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TMiFont::ConnectTo(IMiFontPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TMiFont::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_MiFont;
  sd.IntfIID = __uuidof(IMiFont);
  sd.EventIID= GUID_NULL;
  ServerData = &sd;
}

IWordsPtr& TWords::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TWords::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TWords::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TWords::Disconnect()
{
  if (m_DefaultIntf) {

    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TWords::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TWords::ConnectTo(IWordsPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TWords::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Words;
  sd.IntfIID = __uuidof(IWords);
  sd.EventIID= GUID_NULL;
  ServerData = &sd;
}

IImagesPtr& TImages::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TImages::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}

void __fastcall TImages::Connect()
{
  if (!m_DefaultIntf) {
    _di_IUnknown punk = GetServer();
    m_DefaultIntf = punk;
    if (ServerData->EventIID != GUID_NULL)
      ConnectEvents(GetDunk());
  }
}

void __fastcall TImages::Disconnect()
{
  if (m_DefaultIntf) {
    
    if (ServerData->EventIID != GUID_NULL)
      DisconnectEvents(GetDunk());
    m_DefaultIntf.Reset();
  }
}

void __fastcall TImages::BeforeDestruction()
{
  Disconnect();
}

void __fastcall TImages::ConnectTo(IImagesPtr intf)
{
  Disconnect();
  m_DefaultIntf = intf;
  if (ServerData->EventIID != GUID_NULL)
    ConnectEvents(GetDunk());
}

void __fastcall TImages::InitServerData()
{
  static Oleserver::TServerData sd;
  sd.ClassID = CLSID_Images;
  sd.IntfIID = __uuidof(IImages);
  sd.EventIID= GUID_NULL;
  ServerData = &sd;
}

IMiRectPtr& TMiRect::GetDefaultInterface()
{
  if (!m_DefaultIntf)
    Connect();
  return m_DefaultIntf;
}

_di_IUnknown __fastcall TMiRect::GetDunk()
{
  _di_IUnknown diUnk;
  if (m_DefaultIntf) {
    IUnknownPtr punk = m_DefaultIntf;
    diUnk = LPUNKNOWN(punk);
  }
  return diUnk;
}