>>762 'write' は 'IHTMLElement' のメンバーではない
と、コンパイラに怒られます。
CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,(void**)&doc2);
doc2->get_activeElement(&el);
この辺りで既に間違ってそうな気がするんですよね。
monazilla を参考にすると以下のようになると思うのですが、
TStringList *List = new TStringList;
List->Text = "テスト";
List->SaveToStream(ResStream);
ResStream->Seek(1,soFromBeginning);
IPersistStreamInit* IP;
CppWebBrowser1->Document->QueryInterface(IID_IPersistStreamInit,(void**)&IP);
IP->Load((IStream *)ResStream); //←ココでエラー
delete List;
deleteResStream ;
他にも色々試してるんですけど、現状ではお手上げ状態です。(^-^;