Discussion :

[davidmarli]

Bonjour,

Je veux récupérer des infos depuis le site d'allociné. Mon programme fonctionnait bien jusqu'à il y a quelques jours ; l'API d'allociné renvoie maintenant des réponses JSON.

Voici un exemple : http://api.allocine.fr/rest/v3/searc...ge=1&q=Asterix

Si on cpoie/colle cette adresse dans FireFox, pas de problème, la réponse s'affiche.

Mais si je fais un idhttp.get(web_adresse), dans Delphi, alors j’obtiens une belle 'erreur http 1.1/ 502 bad gateway' .

Du coup je suis coincé. Quelqu'un peut-il m'aider à faire en sorte que IdHttp récupère le contenu JSON de la réponse ?

Merci.

[Ph. B.]

Bonjour,

Mais si je fais un idhttp.get(web_adresse), dans delphi, alors j'optiens un beau 'erreur http 1.1/ 502 bad gateway' .

Votre code est certainement incorrect à un endroit.
En partant de la FAQ delphi et avec le code basique qui suit, je récupère bien les données (à la conversion du jeu de caractères près):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
 Fs : TFileStream;
begin
  Fs := TFileStream.Create('c:\test.txt',fmCreate);
  try
    with TIdHTTP.Create(Application) do
    try
      try
        Get('http://api.allocine.fr/rest/v3/search?partner=YW5kcm9pZC12M3M&filter=movie&count=50&page=1&q=Asterix', Fs);
      except
        On e : Exception do
          MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
      end;
    finally
      Free;
    end;
  finally
    Fs.Free;
  end;
  if FileExists('c:\test.txt') then
    Memo1.Lines.LoadFromFile('c:\test.txt');
end;

[davidmarli]

Je vous remercie pour cette réponse, plus que complète.
Je testerai cela ce soir.

Merci beaucoup.

[davidmarli]

Bon cela fonctionne bien. J'avais la bonne procedure, mais effectivement si on met un accent dans l'adresse, cela provoque le bad gateway...
Merci pour votre aide.