🚀 go-pugleaf

I just try and It works...

THANKYOU VERY MUCH!!





"Remy Lebeau (TeamB)" <no.spam@no.spam.com> ha scritto nel messaggio
news:4241d051@newsgroups.borland.com...
>
> "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
>
>