NMHTTP prob de rapidité

Version imprimable

Salut et merci pour cette entre-aide mutuelle.

J'ai fait un petit prog pour tester si une page existe à l'adresse indiqué.
La page à chercher est un chiffre / nombre + .html
Je récupère donc le header de la page est si le header est vide la page n'existe pas.

Jusqu'à la aucun problème, mais là où ça se corse c'est que quand je teste le programme (hors compilateur ou en compilateur ne change rien) le moindre mouvement de l'ordi (faut comprendre dès qu'on bouge la souris ou que l'écran de veille apparaît) le programme plante.

Bien sur on pourra ne rien toucher et tout désactiver mais le problème apparaît de lui même un peu plus tard dans le temps.

Le problème vient du module "NMFAST50.bpl".

Merci de m'aider. Je donne le code pour une meilleure compréhension.
Il faut juste ajouter un BitButton, un NMHTTP et un Memo en laissant les noms par défaut.
Code:

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 40 41 42 43 44 45 46 47 48 49 void __fastcall TForm1::BitBtn1Click(TObject *Sender) { test = 1000; NMHTTP1->Disconnect(); go(); } //--------------------------------------------------------------------------- void __fastcall TForm1::NMHTTP1Success(CmdType Cmd) { if (NMHTTP1->Header == "") { NMHTTP1->Disconnect(); Memo1->Lines->Add(AnsiString(test)); go(); } else { ShowMessage("Youpi le code est : "+AnsiString(test)); NMHTTP1->Disconnect(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::NMHTTP1Failure(CmdType Cmd) { NMHTTP1->Disconnect(); go(); } //--------------------------------------------------------------------------- void TForm1::go() { test--; NMHTTP1->Get("http://membres.lycos.fr/jeanpaulpot/jorkenpeteurfou/0"+AnsiString(test)+".htm"); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { NMHTTP1->Disconnect(); } //---------------------------------------------------------------------------
Merci de votre aide !!!

EDITION LE MEME JOUR :
Je sais que ce programme peut servir comme prog de hackage mais ce n'est pas du tout dans ce but. Je m'explique : mon pote m'a mis au défi de trouver son code contenu dans la page dont l'adresse est marqué dans la source ci-dessus.
Mailez-le si vous ne me croyez pas ! (adresse sur le site www.jorkenpeteurfou.fr.st)

Re-Merci !

22/07/2003, 16h25
Neo41

Salut,

je viens de tester ton code et j'ai remarqué que ca me renvoit par défaut le header de lycos dès qu'il commence à faire ses recherches !!
chais pas si j'ai oublié kelke chose mais c'est ce que j'ai. Et donc du coup il s'arrete dans ses recherches à la premiere valeur de ta variable <B>test</B> et me dit tout de suite "Youpi le code est xx" !!!
22/07/2003, 16h30
Freeze

j'ai jamais essayé... mais regarde dans l'aide de la méthode de ton objet Get()... elle est pas mal faite... et ca a pas l'air aussi simple que le code que tu fournis !!!!!!!!!!!!!! Bonne chance et tiens nous au courant !!!!
22/07/2003, 16h34
Neo41

Je sais maintenant pkoi le header n'est pas null même si la page choisie n'existe pas. Eh bien tout simplement parce que lycos redirige la requete vers une dite page "http://www.multimania.lycos.fr/error/404.phtml\r\n" et donc du coup le header n'est jamais null.

Je pense qu'il faudrait tester autre chose. Chui en train de chercher...
22/07/2003, 16h58
Neo41

j'ai trouvé le code !! essayes 25 :D
22/07/2003, 17h11
Neo41

En fait le 25 était un piège !! le vrai code est 709 !!!

Ce que j'ai oublié de dire c'est comment j'ai fais. en fait il suffit de rajouter un booléen dans l'evenement OnRedirect pour tester à chaque fois si on est été redirigé ou non, et le tour est joué !!
ainsi le code sera le suivant !

Code:

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
 
//---------------------------------------------------------------------------
void __fastcall TForm1::NMHTTP1Redirect(bool &Handled)
{
	redirect = true;
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::NMHTTP1Success(CmdType Cmd)
{
if (NMHTTP1->Header == "" || redirect == true)
{
  NMHTTP1->Disconnect();
  Memo1->Lines->Add(AnsiString(test));
  go();
}
else
{
  ShowMessage("Youpi le code est : "+AnsiString(test));
  NMHTTP1->Disconnect();
}
 
}
//---------------------------------------------------------------------------
 
void TForm1::go()
{
test++;
redirect = false;
 
etc.
//---------------------------------------------------------------------------

Voilà voilà

06/08/2003, 00h12
Goldocrack

Merci

Merci à tous pour avoir cherché une réponse.
Bonne continuation à tous dans ce forum et VIVE L'ENTRAIDE !!!