{}procedure WBLoadHTML(aWebBrowser: TWebBrowser; HTMLCode: string) ;

    var

       sl: TStringList;

       ms: TMemoryStream;

    begin

      aWebBrowser.Navigate('about:blank') ;

      while aWebBrowser.ReadyState < READYSTATE_INTERACTIVE do begin

        Application.ProcessMessages;

      end;



      if Assigned(aWebBrowser.Document) then begin

        sl := TStringList.Create;

        try

          ms := TMemoryStream.Create;

          try

            sl.Text := HTMLCode;

            sl.SaveToStream(ms) ;

            ms.Seek(0, 0) ;

            (aWebBrowser.Document as IPersistStreamInit{uses ActiveX}).Load(TStreamAdapter.Create(ms)) ;

          finally

            ms.Free;

          end;

        finally

          sl.Free;

        end;

      end;

    end;

{}procedure AppendToWB(aWebBrowser: TWebBrowser; const html: widestring) ;

    var

       Range: IHTMLTxtRange{uses MSHTML};

    begin

       Range := ((aWebBrowser.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;

       Range.Collapse(False) ;

       Range.PasteHTML(html) ;

    end;

Редактирано от NikB на 08.04.06 11:55.