IdHTTP를 이용해 소스 가져와지지 않을 때

IdHTTP 를 이용해 소스를 가져오다가 가져와지지 않는 경우가 있음.

이 중 UserAgent 로 검사를 해서 다른 페이지로 리다이렉트 해버리는 경우가 있음. (로또 홈페이지 - http://http://645lotto.net)
이럴 땐 UserAgent 를 잘 설정하면 됨.
로또 홈페이지의 경우 아래처럼 설정하면 잘 됨.

procedureTForm1.Button1Click(Sender: TObject);

varIdHTTP1: TIdHTTP;

begin

IdHTTP1:=TIdHTTP.Create(nil);

try

IdHTTP1.Request.UserAgent:='Mozilla/4.0';

Memo1.Text:=IdHTTP1.Get(로또_홈페이지);

finally

FreeAndNil(IdHTTP1);

end;

end;