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

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

 

이 중 UserAgent 로 검사를 해서 다른 페이지로 리다이렉트 해버리는 경우가 있음. (로또 홈페이지 - http://645lotto.net)

이럴 땐 UserAgent 를 잘 설정하면 됨.

로또 홈페이지의 경우 아래처럼 설정하면 잘 됨.

 

 

procedure TForm1.Button1Click(Sender: TObject);
var IdHTTP1: TIdHTTP;
begin
  IdHTTP1:=TIdHTTP.Create(nil);
 
  try
    IdHTTP1.Request.UserAgent:='Mozilla/4.0';
    Memo1.Text:=IdHTTP1.Get(로또_홈페이지);
  finally
    FreeAndNil(IdHTTP1);
  end;
end;