请教delphi mshtml 问题

[xue5521]

<iframe class="WBTB_Composition" id="WBTB_Composition" marginheight="5" marginwidth="5" width="100%" height="100%" onblur="WBTB_CopyData('Body');"></iframe>
<textarea class='WBTB_Compostion' id='WBTB_HtmlArea' name='WBTB_HtmlArea' style='clear:both;display:none;width:100%;height:100%;word-break:break-all;' ></textarea>


iframe 如何用delphi webbrowser 往textarea 里写数据用MSHTML

[kampan]

不知道啊，帮顶！

[xue5521]

自己顶

[lcgboy]

procedure SetTextAreaValue(str: string);
var
  doc:IHTMLDocument2;
  area:IHTMLTextAreaElement;
begin
  doc:=webbrowser1.document as IHTMLDocument2;
  area:=doc.all.item('WBTB_HtmlArea',0) as IHTMLTextAreaElement;
  area.value:='asdfasdfasdf';
end;

[lcgboy]

结贴吧

[nkym0626]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

var
Frame, Bod, Doc: Variant;
begin
Frame:=IWebBrowser(pDisp).Document;
Bod:=Frame.Body;
memo1.Text:= memo1.Text + #13#10 + '<!-- NEW FRAME --!>'+ #13#10 + Bod.InnerHTML;
memo1.Update;
Doc:=WebBrowser1.Document;
if CompareText(String(doc.ReadyState),'complete')=0
then begin
if ( pos('res://', Doc.URL)=1 )
then ShowMessage('Error:'+#10+Doc.Title)
else ShowMessage('Document complete');
end;
end;