Fonction GetPage

[hervem]

Bonjour,

Tout d'abord, un grand merci pour l'appli AMC que j'utilise depuis longtemps.

Ensuite, j'utilise le script Amazon.fr que j'ai déjà modifié plusieurs fois. Mais cette fois-ci, il ne fonctionne plus.
Avec le code suivant :

Code: Select all

Line := GetPage(adresseRecherche);

La variable Line est égale à : '‹
alors qu'elle devrait contenir tout le code de la page adresseRecherche qui est égale à : 'https://www.amazon.fr/ABC-Murders-DVD-v ... B07MLX2DTM'

J'ai cherché en Delphi 7 à remplacer la fonction GetPage mais je n'arrive pas à ajouter le code suivant (cela me génère une erreur sans doute que l'unité IdHTTP n'est pas disponible dans AMC) :

Code: Select all

 uses
  IdHTTP;

function GetURLContent(const url: string): string;
var
  httpClient: TIdHTTP;
begin
  httpClient := TIdHTTP.Create(nil);
  try
    Result := httpClient.Get(url);
  finally
    httpClient.Free;
  end;
end;

Ou alors comment modifier la fonction GetPage mais je ne la trouve pas dans les unités.

Merci pour votre aide.

[antp]

Bonjour,
La fonction GetPage de AMC appelle déjà TIdHTTP.Get en interne, donc rien à changer à ce niveau-là (et ça fonctionne bien pour les autres scripts).
Si je fais juste ceci :

Code: Select all

  Line := GetPage('https://www.amazon.fr/ABC-Murders-DVD-version-fran%C3%A7aise/dp/B07MLX2DTM');

avec la variable déclarée comme ceci :

Code: Select all

  Line: string;

Il me récupère bien le code de la page. Après il faut voir comment le traiter
Vérifiez toutefois que vous avez bien AMC 4.2.3.3 car les dernières versions incluaient des corrections pour la récupération des pages.

[hervem]

Bravo, bien vu !
Je n'utilisais pas la dernière version.
Un grand merci !