Discussion :

[Invité]

Bonjour

Sur une Form, je dépose un TIDhttp sans modifier ses paramètres d'origine, un bouton et dans son évènement OnClick

Code :

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

1
2
3
4
5
6
7
 
try
 showmessage(idhttp1.Get('http://www.google.fr')); 
 //Où n'importe quelle autre adresse   
except
 ...
end;

Aucun message d'erreur mais le showmessage est vide... (Une adresse fausse déclenche correctement le except)

Je passe à côté de quoi ?

Merci. Cordialement. Gilles

[Invité]

Bonjour,

Exactement le même code sous Debian Lenny (mêmes versions Lazarus et Indy) fonctionne correctement. Est-ce que cela serait (encore) un problème d'ANSI/UTF-8 ?

Cordialement. Gilles

[Invité]

Bonjour,
J'ai trouvé une solution qui fonctionne semble-t-il sous Windows.

A partir de

• la discussion http://www.developpez.net/forums/d22...ptable-idhttp/
• d'un commentaire dans le package Indy : {Note that you probably should set the UserAgent because some servers now screen out requests from our default string "Mozilla/3.0 (compatible; Indy Library)" to prevent address harvesters and Denial of Service attacks. Some people have used Indy for these. Note that you do need a Mozilla string for the UserAgent property. The format is like this: Mozilla/4.0 (compatible; MyProgram)}

et par ajustement de Mozilla/4.0 (compatible; MyProgram)

Code :

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

1
2
3
4
5
6
7
8
try
 idHTTP1 := TIdHTTP.Create;
 idHTTP1.HandleRedirects := True;
 idHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
 showmessage(idHTTP1.get('http://www.google.fr'));
finally
 FreeAndNil(idHTTP1);
end;

Une autre combinaison MSIE x.x, Windows xxxx conviendrait sans doute (Ex. MSIE 5.5 ; Windows NT 5.0 - cf site de Microsoft) mais s'il s'agit bien d'un problème de mod_security, il suffit d'en obtenir une qui fonctionne.

Il y a également un problème d'encodage. Dans un des sites testés, sur la page index il y a une (seule) lettre accentuée 'à'. La page HTML est décrite en charset=windows-1252 mais là n'est pas le problème. Sous windows, le showmessage renvoie une chaine vide. Mais, j'ai pu afficher le contenu de la page (par le showmessage) dès que j'ai remplacé le 'à' par 'à' dans le fichier index.html... donc si on veut afficher le résultat sous Lazarus/Windows, il faut utiliser : AnsiToUTF8(idHTTP1.get(....

Le code retenu est donc finalement pour Windows (le code initial fonctionne sans modification sous Linux) :

Code :

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

1
2
3
4
5
6
7
8
try
 idHTTP1 := TIdHTTP.Create;
 idHTTP1.HandleRedirects := True;
 idHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
 showmessage(AnsiToUTF8(idHTTP1.get(edit1.text)));
finally
 FreeAndNil(idHTTP1);
end;

Pour l'instant, je n'ai plus rencontré de problèmes...
Cordialement. Gilles