OpenEuphoria

Re: EuCOM : Attn Matt : String Return Value

• Posted by Rad <radhx at re?iffm?il.com> Oct 04, 2007
• 677 views

> Matt Lewis wrote:
> Possibly.  I've found some objects which require named parameters, and
> others that fail if you use them.  Did you try calling everything by name:
>
> OCString = invoke( OC6, {"EncryptString", "Key", "InString"},
>                   {pBstrAppId, pBstrOCStr},
>                   {VT_BSTR, VT_BSTR}, DISPATCH_METHOD )
>

Yes I tried, but it gave following error:

with invoke( OC6, {"EncryptString", "Key", "InString"},
same error as before returning numeric value 2147614729


with invoke( OC6, {OneCryptA_m_EncryptString, "Key", "InString"},

D:\EUPHORIA\EuCOM\eucom.ew:970 in function invoke() 
sequence to be poked must only contain atoms 
    obj = 3
    dispnames = {
                  201,
                  {75'K',101'e',121'y'},
                  {73'I',110'n',83'S',116't',114'r',105'i',110'n',103'g'}
                }
    args = {791276,17698932}
    argtypes = {8,8}
    disp_method = 1
    c = 0
    ok = {49751048,49177269}
    dispid = 201
    retval = <no value>
    bstr = <no value>
    iid = <no value>
    pDispParams = 735700
    mset = 726148
    pVarResult = 735564
    rgvarg = 785060
    pExcepInfo = 801140
    puArgErr = 719300
    rdispidNamedArgs = 729412
    dummy = <no value>
    riid = <no value>
    rgszNames = <no value>
    rgDispId = <no value>
    this = 49751048
    pvtbl = 49177269
    params = <no value>
    source = <no value>
    desc = <no value>
    dispargs = {
                 {73'I',110'n',83'S',116't',114'r',105'i',110'n',103'g'},
                 {75'K',101'e',121'y'}
               }
    i = <no value>
    i = <no value>
    i = <no value>
    i = <no value>

... called from D:\EUPHORIA\EuCOM\OneWay60.exw:315 in procedure proc_onecrypt()


> Is OneCrypt open source?  Or maybe a demo version I could take a look at?
>

It is available for download as shareware from
http://www.atma-software.com/1crypt/index.html

Regards,
Rad.