폼에 TWebBrowser 하나 올림.

(만약 보이지 않게 하고 싶으면 폼에 올린 TWebBrowser 를 엉뚱한 안드로메다에 처박거나 Width, Height 를 0 으로 만들어 버리면 됨)

 

 

 

 

 

procedure TForm1.Button2Click(Sender: TObject);
const
  URL = 'http://어떤사이트';

  찾을단어 = '찾을단어';

var
  sList: TStringList;
  i: Integer;

begin
  sList:=TStringList.Create;
  try
    WebBrowser1.Navigate(URL);
    while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
    sList.Text:=WebBrowser1.OleObject.Document.DocumentElement.OuterText;

    for i:=0 to sList.Count-1 do begin
      if
 Pos(찾을단어, sList[i])>0 then Memo1.Lines.Add(sList[i]);
    end;

  finally
    FreeAndNil(sList);
  end;
end; 





Posted by bloodguy
,