darksmtp_p.c

DarkATLSmtp(SMTP COM 组件原创代码),注册后可在Delphi中发邮件。

                  ( unsigned char __RPC_FAR * )&bstMemberNick);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2352],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_SeaComNameForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserName,
    /* [out] */ VARIANT __RPC_FAR *pMemberList)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pMemberList);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2398],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2398],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserName,
                  ( unsigned char __RPC_FAR * )&pMemberList);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2398],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_SearchComUserByWordForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstWord,
    /* [out] */ VARIANT __RPC_FAR *pMemberList)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pMemberList);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2438],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2438],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstWord,
                  ( unsigned char __RPC_FAR * )&pMemberList);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[2438],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

extern const USER_MARSHAL_ROUTINE_QUADRUPLE UserMarshalRoutines[1];

static const MIDL_STUB_DESC Object_StubDesc = 
    {
    0,
    NdrOleAllocate,
    NdrOleFree,
    0,
    0,
    0,
    0,
    0,
    __MIDL_TypeFormatString.Format,
    1, /* -error bounds_check flag */
    0x20000, /* Ndr library version */
    0,
    0x50100a4, /* MIDL Version 5.1.164 */
    0,
    UserMarshalRoutines,
    0,  /* notify & notify_flag routine table */
    1,  /* Flags */
    0,  /* Reserved3 */
    0,  /* Reserved4 */
    0   /* Reserved5 */
    };

static const unsigned short ISmtpModel_FormatStringOffsetTable[] = 
    {
    (unsigned short) -1,
    (unsigned short) -1,
    (unsigned short) -1,
    (unsigned short) -1,
    0,
    28,
    56,
    84,
    112,
    140,
    168,
    196,
    224,
    252,
    280,
    308,
    336,
    364,
    392,
    420,
    448,
    476,
    504,
    532,
    560,
    588,
    616,
    644,
    672,
    700,
    728,
    756,
    784,
    818,
    852,
    886,
    920,
    948,
    970,
    1004,
    1026,
    1048,
    1100,
    1146,
    1192,
    1226,
    1266,
    1312,
    1358,
    1470,
    1582,
    1658,
    1734,
    1786,
    1838,
    1878,
    1918,
    1958,
    2028,
    2074,
    2114,
    2142,
    2182,
    2216,
    2250,
    2284,
    2318,
    2352,
    2398,
    2438
    };

static const MIDL_SERVER_INFO ISmtpModel_ServerInfo = 
    {
    &Object_StubDesc,
    0,
    __MIDL_ProcFormatString.Format,
    &ISmtpModel_FormatStringOffsetTable[-3],
    0,
    0,
    0,
    0
    };

static const MIDL_STUBLESS_PROXY_INFO ISmtpModel_ProxyInfo =
    {
    &Object_StubDesc,
    __MIDL_ProcFormatString.Format,
    &ISmtpModel_FormatStringOffsetTable[-3],
    0,
    0,
    0
    };

CINTERFACE_PROXY_VTABLE(73) _ISmtpModelProxyVtbl = 
{
    &ISmtpModel_ProxyInfo,
    &IID_ISmtpModel,
    IUnknown_QueryInterface_Proxy,
    IUnknown_AddRef_Proxy,
    IUnknown_Release_Proxy ,
    0 /* (void *)-1 /* IDispatch::GetTypeInfoCount */ ,
    0 /* (void *)-1 /* IDispatch::GetTypeInfo */ ,
    0 /* (void *)-1 /* IDispatch::GetIDsOfNames */ ,
    0 /* IDispatch_Invoke_Proxy */ ,
    (void *)-1 /* ISmtpModel::get_IsHTML */ ,
    (void *)-1 /* ISmtpModel::put_IsHTML */ ,
    (void *)-1 /* ISmtpModel::get_Port */ ,
    (void *)-1 /* ISmtpModel::put_Port */ ,
    (void *)-1 /* ISmtpModel::get_HostName */ ,
    (void *)-1 /* ISmtpModel::put_HostName */ ,
    (void *)-1 /* ISmtpModel::get_UserName */ ,
    (void *)-1 /* ISmtpModel::put_UserName */ ,
    (void *)-1 /* ISmtpModel::get_PassWord */ ,
    (void *)-1 /* ISmtpModel::put_PassWord */ ,
    (void *)-1 /* ISmtpModel::get_From */ ,
    (void *)-1 /* ISmtpModel::put_From */ ,
    (void *)-1 /* ISmtpModel::get_FromName */ ,
    (void *)-1 /* ISmtpModel::put_FromName */ ,
    (void *)-1 /* ISmtpModel::get_Body */ ,
    (void *)-1 /* ISmtpModel::put_Body */ ,
    (void *)-1 /* ISmtpModel::get_Subject */ ,
    (void *)-1 /* ISmtpModel::put_Subject */ ,
    (void *)-1 /* ISmtpModel::get_ProxyType */ ,
    (void *)-1 /* ISmtpModel::put_ProxyType */ ,
    (void *)-1 /* ISmtpModel::get_ProxyUserName */ ,
    (void *)-1 /* ISmtpModel::put_ProxyUserName */ ,
    (void *)-1 /* ISmtpModel::get_ProxyPassWord */ ,
    (void *)-1 /* ISmtpModel::put_ProxyPassWord */ ,
    (void *)-1 /* ISmtpModel::get_ProxyPort */ ,
    ISmtpModel_put_ProxyPort_Proxy ,
    ISmtpModel_get_ProxyHostName_Proxy ,
    ISmtpModel_put_ProxyHostName_Proxy ,
    ISmtpModel_AddAddress_Proxy ,
    ISmtpModel_AddBCC_Proxy ,
    ISmtpModel_AddCC_Proxy ,
    ISmtpModel_AddReplyTo_Proxy ,
    ISmtpModel_AddAttachment_Proxy ,
    ISmtpModel_Reset_Proxy ,
    ISmtpModel_Connect_Proxy ,
    ISmtpModel_Disconnect_Proxy ,
    ISmtpModel_SendMail_Proxy ,
    ISmtpModel_SendMailForWeb_Proxy ,
    ISmtpModel_CreateMailDirForWeb_Proxy ,
    ISmtpModel_DeleteAttachByNameForWeb_Proxy ,
    ISmtpModel_ClearMailBoxSpace_Proxy ,
    ISmtpModel_SaveMailToSaveBoxForWeb_Proxy ,
    ISmtpModel_CreateLevelInfoForWeb_Proxy ,
    ISmtpModel_GetLevelInfoForWeb_Proxy ,
    ISmtpModel_CreateUserInfoForWeb_Proxy ,
    ISmtpModel_GetUserInfoForWeb_Proxy ,
    ISmtpModel_CreateSysInfoForWeb_Proxy ,
    ISmtpModel_GetSysInfoForWeb_Proxy ,
    ISmtpModel_CreateAssistInfoForWeb_Proxy ,
    ISmtpModel_GetAssistInfoForWeb_Proxy ,
    ISmtpModel_AddGroupNameForWeb_Proxy ,
    ISmtpModel_DelGroupNameForWeb_Proxy ,
    ISmtpModel_GetGroupListForWeb_Proxy ,
    ISmtpModel_AddGroupUserForWeb_Proxy ,
    ISmtpModel_GetGroupUserListForWeb_Proxy ,
    ISmtpModel_DelGroupUserForWeb_Proxy ,
    ISmtpModel_GetLocalHostIp_Proxy ,
    ISmtpModel_GetCompanyUserListForWeb_Proxy ,
    ISmtpModel_GetCompanyGroupListForWeb_Proxy ,
    ISmtpModel_GetCompanyAddrTextForWeb_Proxy ,
    ISmtpModel_AddComGroupForWeb_Proxy ,
    ISmtpModel_DelComGroupForWeb_Proxy ,
    ISmtpModel_DelComGroupUserForWeb_Proxy ,
    ISmtpModel_AddComGroupUserForWeb_Proxy ,
    ISmtpModel_SeaComNameForWeb_Proxy ,
    ISmtpModel_SearchComUserByWordForWeb_Proxy
};


static const PRPC_STUB_FUNCTION ISmtpModel_table[] =
{
    STUB_FORWARDING_FUNCTION,
    STUB_FORWARDING_FUNCTION,
    STUB_FORWARDING_FUNCTION,
    STUB_FORWARDING_FUNCTION,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2,
    NdrStubCall2
};

CInterfaceStubVtbl _ISmtpModelStubVtbl =
{
    &IID_ISmtpModel,
    &ISmtpModel_ServerInfo,
    73,
    &ISmtpModel_table[-3],
    CStdStubBuffer_DELEGATING_METHODS
};

#pragma data_seg(".rdata")

static const USER_MARSHAL_ROUTINE_QUADRUPLE UserMarshalRoutines[1] = 
        {
            
            {
            VARIANT_UserSize
            ,VARIANT_UserMarshal
            ,VARIANT_UserUnmarshal
            ,VARIANT_UserFree
            }

        };


#if !defined(__RPC_WIN32__)
#error  Invalid build platform for this stub.
#endif

#if !(TAR