Fórum Duvida WebBrowser com vetor delphi 7 #535913

var i: integer;
begin

  for i:= 0 to Length(SeuVetor) do
    begin
      WebBrowser.Navigate(SeuVetor[i]);
      Sleep(5000); // Aguarda 5 segundos
    end;

var 
  Form1: TForm1; 

  CurDispatch: IDispatch; 
  FDocLoaded: Boolean; 

implementation

CurDispatch := nil; 
FDocLoaded := False;

if (pDisp = CurDispatch) then 
    begin 
      FDocLoaded := True; 
      CurDispatch := nil; 
    end;

if CurDispatch = nil then 
    CurDispatch := pDisp;

var i: integer; 
begin 
  
  for i:= 0 to Length(SeuVetor) do 
    begin 
      WebBrowser.Navigate(SeuVetor[i]); 
      repeat Application.ProcessMessages until FDocLoaded; //Depois de acessar a página, espera ela carregar 
      Sleep(5000); // Aguarda 5 segundos 
    end;

function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;
var
  LStream: TStringStream;
  Stream : IStream;
  LPersistStreamInit : IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then exit;
  LStream := TStringStream.Create('');
  try
    LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;
    Stream := TStreamAdapter.Create(LStream,soReference);
    LPersistStreamInit.Save(Stream,true);
    result := LStream.DataString;
  finally
    LStream.Free();
  end;
end;

var i: integer; 
      Nome, xHTML: String;
begin 

  Nome:= 'Você é bonito(a)';
   
  for i:= 0 to Length(SeuVetor) do
    begin 
      WebBrowser.Navigate(SeuVetor[i]); 
      repeat Application.ProcessMessages until FDocLoaded; //Depois de acessar a página, espera ela carregar 
      
      xHTML:= GetWebBrowserHTML(WebBrowser1); // Obtendo o código HTML da página atual
      if Pos(Nome, xHTML)<> 0 then // Verifica se no HTML existe o valor da variável NOME
         Break; // Se existir, para o contador e permanece na página      
      
      Sleep(5000); // Aguarda 5 segundos 
    end;