WebBrowser (Código fuente)

[Silvionel]

Hola a todos, soy novato. Quiciera saber como puedo leer el código fuente de X página cargada en un WebBrowser y poder manejarlo en una variable de tipo string, algo así como visualizar en un Memo el código fuente de cada página a la que ingrese. Gracias por su ayuda.

[dec]

Hola,

No sé hasta qué punto algo como lo siguiente podría sacarte del apuro:

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

function WebBrowerDocumentSource(webBrowser: TWebBrowser) : string;
var
  ss: TStringStream;
  ips: IPersistStreamInit;
begin
  Result := EmptyStr;
  ss := TStringStream.Create(Result);
  try
    if Assigned(webBrowser) and Assigned(webBrowser.Document) then
    begin
      ips := webBrowser.Document as IPersistStreamInit;
      if Assigned(ips) and Succeeded(ips.Save(TStreamAdapter.Create(ss), true)) then
        Result := ss.DataString;
    end;
  finally
    ss.Free;
  end;
end;

El código fuente de la función anterior está basado en parte del código fuente del componente EmbeddedWB, escrito por Per Lindsø Larsen. Échale un vistazo, puesto que acaso te parezca bien hacer uso del mismo en lugar del "TWebBrowser" que acompaña a Delphi.

[Silvionel]

Muchas gracias, si me sirvió, saludos...