☆HTMLのソースを取得する。

HTMLのソースを取得するには、TWebBrowserやIndyを使ったりしていますが、 NewsGroupsでWinInetを使ったコードのリンク先が紹介されていたので試してみました。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := Utf8ToAnsi(DownloadFile('http://hiderin.air-nifty.com/delphi/'));
end;

※DownloadFile関数は、下記サイトにコードがあります。

WinInetなんて使うのは、かなり久しぶりです。wininet.dllって、確かIEの付属dllだったような 記憶があるのですが、IE7になっても健在なんですね(^^;


Scalabium Software
#80:How can I download a file from Internet by link?
http://www.scalabium.com/faq/dct0080.htm

[NewsGroupsの記事]
borland.public.delphi.language.delphi.general
AutoUpdate - Best way to read a file off the web?