Discussion :

[franckcl]

J'utilise Delphi XE2.
Voila mon code est tres simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses (...), IdHTTP;
procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP : TIdHTTP;
  Content : string;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    Content := HTTP.Get('http://www.djeda.fr');
    ShowMessage(Content);
  except
  End;
  HTTP.Free;
end;

voici l'erreur :
Exception EIdHTTPProtocolException avec le message 'HTTP/1.1 403 forbidden'

Ce site fonctionne avec un explorateur (www.djeda.fr), alors pourquoi ai-je cette erreur avec mon application ?

[franckcl]

Après plusieurs recherches voici comment contourner le problème en ajoutant cette ligne:
HTTP.Request.UserAgent := 'Mozilla/5.0 (compatible; Delphi)';

Et ça marche