Discussion :

[GoustiFruit]

Bonjour,

Est-ce que quelqu'un aurait un code fiable permettant de vérifier si un proxy fonctionne bien ? (si il y a moyen de tester son "niveau" - transparent, anonyme, etc. -, c'est encore mieux )

J'utilise Synapse, et j'ai écrit ce code à la va-vite mais il me retourne que tous mes proxies sont ok donc je pense qu'il y a une erreur

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  slProxies := TStringList.Create;
  slProxies.LoadFromFile('Proxies.txt');
  slProxies.NameValueSeparator := ';';  { Indique que le Host et le Port sont séparés par un point-virgule (;) }
 
  memoAllProxies.Lines.AddStrings(slProxies);
end;
 
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  slProxies.Clear;
  slProxies.Free;
end;
 
procedure TfrmMain.btnTestProxiesClick(Sender: TObject);
var
  sProxy: string;
  i1: integer;
begin
  with THTTPSend.Create do begin
    try
      for i1 := 0 to slProxies.Count - 1 do begin
        lblProgress.Caption := Format('Test proxy %d/%d', [i1 + 1, slProxies.Count]);
        // UserAgent := HttpUserAgent;
        sProxy := slProxies[i1];
        ProxyHost := slProxies.Names[i1];
        ProxyPort := slProxies.ValueFromIndex[i1];
        if HTTPMethod('GET', 'http://www.google.com') then
          memoValidProxies.Lines.Add(sProxy)
        else
          memoDeadProxies.Lines.Add(sProxy);
      end;
    finally
      Free;
    end;
  end;
  lblProgress.Caption := 'Terminé !';
end;

[JustMe]

peut être que ce lien va t'aider

[GoustiFruit]

Non, j'avais déjà consulté ce lien, ne m'a pas aidé. Je me suis inspiré de celui-ci pour mon code mais il ne permet pas d'avoir les informations qui m'intéressent ("niveau" du proxy) et je ne suis pas certain qu'il soit utile quant au test de validité... Ou alors c'est que ma liste de proxies était vraiment entièrement ok !? Je vais tester avec quelques fakes pour voir...

[ouiouioui]

charge une page style http://www.monip.org/
et tu regarde le source envoyé si ya ton ip ou pas et si c'est bien le site monip, certain proxie renvoie du html mais c'est genre une page qui te dit acces refusé.

tu as aussi des script php, si tu veux comme sa tu crée une réponse en xml, ini avec le resultat que tu charge avec delphi

PHP proxy tester - Recherche Google

il y a quelque années j'ai utilisé "judge.php" qui est inclu avec Charon

[GoustiFruit]

Merci ouiouioui ! étrangement je n'avais pas eu l'idée de regarder du côté du PHP: je pense que je devrais pouvoir adapter ce code en Delphi

[GoustiFruit]

Voilà j'ai écrit un petit outil qui semble fonctionner, dispo ici si ça intéresse quelqu'un.