dlprinterportioimpl.cpp

这里介绍的一款多功能编程器

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <atl\atlvcl.h>

#include "DLPrinterPortIOImpl.h"
#include "About.h"
//---------------------------------------------------------------------------
#pragma link "TDLPortIOX"
#pragma package(smart_init)
STDMETHODIMP TDLPrinterPortIOXImpl::AboutBox()
{
  try
  {
    ShowDLPrinterPortIOXAbout();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::ClassNameIs(BSTR string,
  VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->ClassNameIs(string);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::CloseDriver()
{
  try
  {
    m_VclCtl->CloseDriver();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_ActiveHW(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->ActiveHW;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_Cursor(short* Value)
{
  try
  {
    *Value = (short)(m_VclCtl->Cursor);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_DLLPath(BSTR* Value)
{
  try
  {
    *Value = WideString(m_VclCtl->DLLPath).Copy();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_DriverPath(BSTR* Value)
{
  try
  {
    *Value = WideString(m_VclCtl->DriverPath).Copy();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_Enabled(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->Enabled;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_HardAccess(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->HardAccess;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LastError(BSTR* Value)
{
  try
  {
    *Value = WideString(m_VclCtl->LastError).Copy();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTAckwl(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTAckwl;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTBasePort(short* Value)
{
  try
  {
    *Value = (short)(m_VclCtl->LPTBasePort);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTBusy(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTBusy;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTError(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTError;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTNumber(unsigned char* Value)
{
  try
  {
    *Value = m_VclCtl->LPTNumber;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTNumPorts(unsigned char* Value)
{
  try
  {
    *Value = m_VclCtl->LPTNumPorts;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTPaperEnd(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTPaperEnd;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_LPTSlct(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTSlct;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::get_Visible(VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->Visible;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::GetPin(unsigned char Index,
  VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->GetPin(Index);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::LPTAutofd(VARIANT_BOOL Flag)
{
  try
  {
    m_VclCtl->LPTAutofd(Flag);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::LPTInit()
{
  try
  {
    m_VclCtl->LPTInit();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::LPTPrintChar(short Ch,
  VARIANT_BOOL* Value)
{
  try
  {
    *Value = m_VclCtl->LPTPrintChar(Ch);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------

STDMETHODIMP TDLPrinterPortIOXImpl::LPTSlctIn()
{
  try
  {
    m_VclCtl->LPTSlctIn();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IDLPrinterPortIOX);
  }
  return S_OK;
};
//---------------------------------------------------------------------------