Ventana emergente al pasar html a texto plano

[ecfisa]

Empezado por ZayDun

...
Funciona bien, pero ocurre algo extraño que no se como puedo evitarlo, y es que al hacer la conversión de html a texto se abre una ventana de IExplorer en blanco con la siguiente url "about:blank#_methods=onPlusOne%2C_ready%2C_close%2C_open%2C_resizeMe%2C_renderstart%2Concircled&id= I0_1351596422868&parent=about%3A%2F%2F"

¿Existe alguna manera de evitar que se abra la ventana?
Supongo que de alguna manera se puede evitar al igual que se evita en un WebBrowser con solo poner Cancel:=True; en el OnNewWindow, pero no se como hacer en este caso.

Hola.

Acabo de ejecutar el código que pusiste y en ningún momento se me presenta IE como mencionas. ¿ Hay más código que pudiera estar involucrado en esa acción ?

Como dato adicional, uso Mozilla Firefox por lo que también probé poniendo y sacando a IE como navegador predeterminado por si esa pudiera haber sido la causa, pero en ningún momento el código abrió IE.

Saludos.

[roman]

Corroboro lo que comenta ecfisa. Para efectos de facilitar el trabajo, he resumido el código expuesto en esta función:

Código Delphi [-]
uses MsHtml, ComObj, ActiveX;

function StripTags(S: String): String;
var
  HtmlDocument: IHTMLDocument2;
  PsArray: OleVariant;

begin
  HtmlDocument := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;

  HtmlDocument.designMode := 'on';

  while HtmlDocument.readyState <> 'complete' do
    Application.ProcessMessages;

  PsArray := VarArrayCreate([0, 0], VarVariant);
  PsArray[0] := S;
  HtmlDocument.write(PSafeArray(TVarData(PsArray).VArray));

  HtmlDocument.designMode := 'off';

  while HtmlDocument.readyState <> 'complete' do
    Application.ProcessMessages;

  Result := HtmlDocument.body.innerText;
end;

He de añadir que el código me gustó porque yo no sabía cómo se accedía a un IHTMLDocument sin tener que crear una instancia del WebBrowser.

// Saludos

[ecfisa]

Empezado por roman

He de añadir que el código me gustó porque yo no sabía cómo se accedía a un IHTMLDocument sin tener que crear una instancia del WebBrowser.

Yo también ignoraba como hacerlo, así que: gracias ZayDun

Saludos.

[elguille]

El codigo descrito en mi caso tenia un comportamiento errático en tiempo de proceso al ejecutarse muchas veces, llegando a estar 20 segundos para una sola transformación en cambio este me ha ido perfecto y rápido...

Código Delphi [-]
uses
MSHTML,
SHDocVw,
ActiveX;

function GetPlainText(Const Html: string): string;
var
DummyWebBrowser: TWebBrowser;
Document       : IHtmlDocument2;
DummyVar       : Variant;
begin
   Result := '';
   DummyWebBrowser := TWebBrowser.Create(nil);
   try
     //open an blank page to create a IHtmlDocument2 instance
     DummyWebBrowser.Navigate('about:blank');
     Document := DummyWebBrowser.Document as IHtmlDocument2; 
     if (Assigned(Document)) then //Check the Document
     begin
       DummyVar      := VarArrayCreate([0, 0], varVariant); //Create a variant array to write the html code to the  IHtmlDocument2
       DummyVar[0]   := Html; //assign the html code to the variant array
       Document.Write(PSafeArray(TVarData(DummyVar).VArray)); //set the html in the document
       Document.Close;
       Result :=(Document.body as IHTMLBodyElement).createTextRange.text;//get the plain text
     end;
   finally
     DummyWebBrowser.Free;
   end;
end;