🚀 go-pugleaf

"melk" <NOSPAMi_melk@libero.it> wrote in message
news:4241c844@newsgroups.borland.com...

> I just created a Method to write a text into my ASP using
"response->write"
> of my IResponse interface but it doesn't work... ?!?!

That is because you are not using it properly.

>     m_scriptContext = (IScriptingContext*)AScriptingContext;
>     m_scriptContext->get_Response((IResponse**)&rs);

Why are you retreiving the IResponse interface manually?  TASPObject already
does that for you, and exposes it via its Response property.  You don't need
your own OnStartPage() implementation at all.

>      tagVARIANT rr;
>      rr.bstrVal = (WideString)"Prova";
>
>      rs->Write(rr);

That code will not work for several reasons.  You did not initialize the
VARIANT before filling it in.  You did not set the VARIANT's vt member to
VT_BSTR to tell the VARIANT that it contains a BSTR.  You are assigning a
temporary WideString that goes out of scope immediately thus leaving the
VARIANT pointing to invalid string memory.  You did not clean up the VARIANT
after using it.

Use something more like the following code instead:

    STDMETHODIMP TWEBImpl::Method1()
    {
        try
        {
            VARIANT rr;
            VariantInit(&rr);
            rr.bstrVal = WideString("Prova").Detach();
            rr.vt = VT_BSTR;
            TASPObject::Response->Write(rr);
            VariantClear(&rr);
        }
        catch(const Exception &e)
        {
            return Error(e.Message.c_str(), IID_IWEBImpl, E_UNEXPECTED);
        }
        return S_OK;
    }


Which can then be simplied to the following:

    #include <utilcls.h>

    STDMETHODIMP TWEBImpl::Method1()
    {
        try
        {
            TVariant rr = WideString("Prova");
            TASPObject::Response->Write(rr);
        }
        catch(const Exception &e)
        {
            return Error(e.Message.c_str(), IID_IWEBImpl, E_UNEXPECTED);
        }
        return S_OK;
    }


Gambit