폼에 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;
'Delphi' 카테고리의 다른 글
[Delphi] 바이너리 파일을 텍스트로 읽어들이기 (0) | 2009.04.18 |
---|---|
[Delphi] TForm.Components[i] 사용 시 주의점 (0) | 2009.04.18 |
[Delphi] 웹페이지의 html 긁어와서 뒤지기 (0) | 2009.04.18 |
[Delphi] 실수연산 오류 (0) | 2009.04.18 |
[Delphi] GetDC(0) 으로 캡쳐되지 않는 윈도우 (0) | 2009.04.18 |