CB6中使用浏览器控件的一些操作[7]

        if(!disp)
                return rtn;

        htmldoc2 = disp;
        htmldoc2->get_all(&htmlelemcoll);
        htmlelemcoll->item(tvariant(itemname),tvariant(0),&disp);
        htmlelem = disp;
        tvariant val;
        htmlelem->getattribute(widestring("value"),0,&val);
        rtn = val.bstrval;

        return rtn;
}

void tfrmaddfriend::putinputvalue(ansistring itemname, ansistring value)
{
        //todo: add your source code here
        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlelement> htmlelem;
        system::delphiinterface<ihtmlelementcollection> htmlelemcoll;

        disp = this->cppwebbrowseraddfriend->document;
        if(!disp)
                return;

        htmldoc2 = disp;

        htmldoc2->get_all(&htmlelemcoll);
        htmlelemcoll->item(tvariant(itemname),tvariant(0),&disp);
        htmlelem = disp;
        htmlelem->setattribute(widestring("value"),tvariant(value),0);
}

void tfrmaddfriend::addfriendonclick(dispid id, variant* pvarresult)
{
        //todo: add your source code here
        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlwindow2> htmlwnd2;
        system::delphiinterface<ihtmleventobj> htmlevt;
        system::delphiinterface<ihtmlelement> htmlelem;

        disp = this->cppwebbrowseraddfriend->document;
        if(!disp)
                return;

        htmldoc2 = disp;
        htmldoc2->get_parentwindow(&htmlwnd2);
        htmlwnd2->get_event(&htmlevt);
        htmlevt->get_srcelement(&htmlelem);

        widestring ws;
        bool flag;
        ws.setlength(64);
        htmlelem->get_tagname(&ws);
        if(ws == widestring("img"))
        {
                tvariant val;
                htmlelem->getattribute(widestring("name"),0,&val);

                ansistring str;
                str = val.bstrval;
                if(str == widestring("closeform"))
                {
                        this->close();
                }
                else if(str == widestring("minform"))
                {