pEp_utility.h
author Volker Birk <vb@pep.foundation>
Mon, 22 Oct 2018 10:14:50 +0200
branchsync
changeset 304 00916b0afaac
parent 302 b3444780fa9f
child 332 54d5b01490d6
permissions -rw-r--r--
start COM on sync thread
vb@8
     1
#pragma once
vb@8
     2
vb@8
     3
#include "stdafx.h"
vb@8
     4
#include "pEpComServerAdapter_i.h"
vb@8
     5
#include "utf8_helper.h"
vb@8
     6
vb@8
     7
using namespace std;
vb@8
     8
vb@10
     9
namespace pEp {
vb@10
    10
    namespace utility {
vb@8
    11
vb@10
    12
        struct pEp_identity_cpp {
vb@10
    13
            string address;
vb@10
    14
            string fpr;
vb@10
    15
            string user_id;
vb@10
    16
            string username;
markus@172
    17
            pEpComType comm_type;
vb@10
    18
            string lang;
markus@269
    19
            int flags;
vb@8
    20
vb@10
    21
            pEp_identity_cpp(
vb@10
    22
                string _address = string(),
vb@10
    23
                string _fpr = string(),
vb@10
    24
                string _user_id = string(),
vb@10
    25
                string _username = string(),
markus@172
    26
                pEpComType _comm_type = pEpCtUnknown,
vb@10
    27
                string _lang = string()
markus@269
    28
            ) : address(_address), fpr(_fpr), user_id(_user_id), username(_username), comm_type(_comm_type), lang(_lang)
vb@10
    29
            { }
vb@8
    30
vb@10
    31
            pEp_identity_cpp(const ::pEp_identity *_ident);
markus@172
    32
            pEp_identity_cpp(const pEpIdentity *_ident);
vb@8
    33
vb@10
    34
            pEp_identity * to_pEp_identity();
markus@172
    35
            pEpIdentity * to_pEp_identity_s();
vb@10
    36
        };
vb@8
    37
markus@172
    38
        void copy_identity(pEpIdentity * ident_s, const pEp_identity * ident);
markus@172
    39
        void free_identity_strings(pEpIdentity * ident_s);
markus@172
    40
        void clear_identity_s(pEpIdentity& ident);
markus@172
    41
        void clear_text_message(TextMessage *msg);
markus@172
    42
        ::pEp_identity *new_identity(const pEpIdentity * ident);
vb@8
    43
markus@269
    44
        void opt_field_array_from_C(stringpair_list_t* spair_list, LPSAFEARRAY* pair_list_out);
markus@269
    45
        void clear_opt_field_array(LPSAFEARRAY* pair_list);
markus@269
    46
        template< class T2, class T > SAFEARRAY * array_from_C(T *tl);
krista@157
    47
vb@39
    48
        static LPTYPELIB pTypelib = NULL;
vb@39
    49
vb@13
    50
        template< class UDType > static IRecordInfo *getRecordInfo()
vb@13
    51
        {
vb@13
    52
            LPTYPEINFO pTypeInfo = NULL;
vb@13
    53
            LPSAFEARRAY psaUDType = NULL;
vb@13
    54
            IRecordInfo* pRecInfo = NULL;
vb@302
    55
            HRESULT hr;
vb@13
    56
vb@13
    57
            // Fetch the IRecordInfo interface describing the UDT
vb@302
    58
            if (pTypelib == NULL) {
vb@302
    59
                hr = LoadRegTypeLib(LIBID_pEpCOMServerAdapterLib, 1, 0, GetUserDefaultLCID(), &pTypelib);
vb@302
    60
                assert(SUCCEEDED(hr));
vb@302
    61
                if (!SUCCEEDED(hr))
vb@302
    62
                    throw runtime_error("getRecordInfo(): LoadRegTypeLib cannot load LIBID_pEpCOMServerAdapterLib");
vb@302
    63
            }
vb@13
    64
vb@39
    65
            assert(pTypelib);
vb@39
    66
vb@41
    67
            GUID guid = __uuidof(UDType);
vb@302
    68
            hr = pTypelib->GetTypeInfoOfGuid(guid, &pTypeInfo);
vb@13
    69
            assert(SUCCEEDED(hr) && pTypeInfo);
vb@13
    70
            hr = GetRecordInfoFromTypeInfo(pTypeInfo, &pRecInfo);
vb@13
    71
            assert(SUCCEEDED(hr) && pRecInfo);
vb@13
    72
            pTypeInfo->Release();
vb@13
    73
vb@13
    74
            return pRecInfo;
vb@13
    75
        }
vb@13
    76
vb@13
    77
        template< class UDType > LPSAFEARRAY newSafeArray(ULONG cElements)
vb@13
    78
        {
vb@13
    79
            IRecordInfo *pRecInfo = getRecordInfo< UDType >();
vb@13
    80
            SAFEARRAYBOUND rgbounds = { cElements, 0 };
vb@13
    81
            LPSAFEARRAY psaUDType = SafeArrayCreateEx(VT_RECORD, 1, &rgbounds, pRecInfo);
vb@13
    82
            pRecInfo->Release();
vb@13
    83
            assert(psaUDType);
vb@13
    84
vb@13
    85
            return psaUDType;
vb@13
    86
        }
vb@13
    87
markus@172
    88
        ::message * text_message_to_C(TextMessage *msg);
markus@172
    89
        void text_message_from_C(TextMessage *msg2, const ::message *msg);
vb@8
    90
    }
vb@8
    91
}