WEB-RES TESTEUR DE FAILLE !
yvemoreau
Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008
-
26 déc. 2003 à 21:27
cs_AMokers Messages postés 83 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 8 octobre 2008 - 28 déc. 2003 à 15:49
cs_AMokers Messages postés 83 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 8 octobre 2008 - 28 déc. 2003 à 15:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19002-web-res-testeur-de-faille
https://codes-sources.commentcamarche.net/source/19002-web-res-testeur-de-faille
28 déc. 2003 à 15:49
:D :p :/ :( :)
:: Na ::
Bon aller j'arrette ca va dérailler ;)
28 déc. 2003 à 15:46
Hé hé pas problème, je ne te reprochait rien...
Félicitations, je crois que tu détiens le record du nombre de smilies... 1 par ligne pratiquement !!! =0)
Bonne prog' !
Bestiol.
http://bestiol.aquila-net.com
----------------------------------------------------------------
28 déc. 2003 à 15:43
je met juste ma source ici pour aider les autres à apprendre ;)
Car moi j'ai débutter et apprend encore comme ca en dl plein de sources ;)
Et puis je me dis que si j'apprend aux autres, ceux-ci peuvent développer des appli meilleurs que les miennes et donc je pourais apprendre sur eux et ainssi de suite ;)
C'est ma philosophie ;)
Lol sinon la note je m'en fiche mais c'est sur que si elle est au dessus de 5 ca fait plaisir !
Car j'avais fais un prog moins bien et j'ai eu une bonne note alors que celui ci est pour moi le meilleur que j'ai fais avec Windows Optimizer !
Voila :)
++ et merci :)
Si vous n'arrivez pas à compiler, aller voir sur mon site :
www.delphi-projets.fr.st
Rubrique Téléchargement :)
PS : Il faut être membre :p
Voila :)
28 déc. 2003 à 15:30
Effectivement les composants Indy sont fournis avec certaines versions de Delphi, à parti de la license "pro" !
Pour les bases de données, c'est vrai qu'avec une version perso, c'est toujours compliqué de trouver des bons composants qui ne demandent pas que BDE ou autre soit déjà installé...
Dernière note à AMokers : ne fais pas ta source pour la note que tu espères avoir, mais plutôt pour ce qu'elle peut apporter à un peu ou beaucoup de personne !!! Certains seront peut-petre soulagés d'enfin trouver cette source après pas mal de recherches !
La note qu'il y a derrière, on s'en fiche pas mal... (sauf si on peut faire un rapprochement quelconque entre le titre/contenu du source et la note !! :o) )
Bonne prog' !
Bestiol.
http://bestiol.aquila-net.com
PS: Vous pensez pas que si tout le monde faisais deux lignes pour délimiter son commentaire, on pourrais enfin lire ceux-ci plus confortablement ?!!
-------------------------------------------------------------
28 déc. 2003 à 00:48
HomeDB :
http://homedb.chez.tiscali.fr/index.htm
Mais bon pour le moemnt je m'en sert pas !
Au fait c'est toi qui as voter 4 pour le source ?
Lol faut que je remonte moi !
je penssais que ca allais interréssé plus de monde lol
28 déc. 2003 à 00:44
oui ,j'ai réussi à installer le paquet indy ,je ne me souviens plus où je l'ai trouvé...
Même si j'ai dû m'y reprendre à quelques reprises ? design...
notez que j'utilisais plus les composant de François Piette http et ftp.
mais c'est tant mieux ,j'avais déjà tentez l'expérience sans succès or cette fois je vais pouvoir regarder de quoi ils ont l'air ...
Mais question ? Ne sont-ils pas distribués avec les versions pros de delphi ? Si oui ,c'est peut-être pour cette raison que j'avais abandonné l'installation ,comme les bases de données ,hic !!! j'ai réussi à installer "myLittleBase" ,très loin des espérances d'une MAcces ...
Merci à tous !!!
27 déc. 2003 à 05:02
>>La dernière version stable en date est la 9 :
http://www.indyproject.org/download/Indy9.html
Bonne prog' !
Bestiol.
http://bestiol.aquila-net.com
27 déc. 2003 à 01:29
procedure TFmain.ThreadExecute(Sender: TObject; params: Pointer);
var
i : integer;
code:Integer;
begin
Log.Clear;
for i:=0 to ListeFichiers.Count-1 do
begin
code:=0;
Try
try
TStringStream.Create(Http.Get(Url.Text+ListeFichiers.Items[i]));
Except code:=HTTP.ResponseCode;//si une exception code<>0
end;
finally
begin
if(code=0)then// pas d'erreur
begin
LogMessage(FichierExist, Url.Text+ListeFichiers.Items[i]+' : à bien été trouvé.');
Status.Panels[0].Text := Url.Text+ListeFichiers.Items[i]+' : à bien été trouvé.';
end else
begin
LogMessage(Erreur, 'Erreur n° '+IntToStr(HTTP.ResponseCode));
Status.Panels[0].Text := 'Erreur n° '+IntToStr(HTTP.ResponseCode);
end;
end;
end;
end;
end;
Et le beep ne vient pas de là !!!
il proviens simplement de la procédure onKeypress
procedure TFmain.UrlKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;//après un "enter" l'édit exécute un notifyevent
// or ici on le gère déjà
// sinon ça beep pour rien
if (Url.Text[Length(Url.Text)] <> '/') then Url.Text := Url.Text+'/';
Thread.Execute(self);
end;
end;
sinon ça fonctionne plutôt bien ,il y a peut-être la procédure
procedure TFmain.UrlClick(Sender: TObject);
begin
Url.Text := 'http://'
end;
qui devient fatigante après une ou deux utilisation ,pour l'essai je l'ai supprimer !!!
bonne continuation ...là je passe mon tour !!!
n3.5
yve
26 déc. 2003 à 23:10
Heu non livré avec delphi 7 edition perso !
Regarde sur le site de Indy si tu peut les télécharger avec la version 6 !
il me semble !
En tout cas s'est gratuit :)
Apres tu me dit stp si tu as réusis, et ques-ce que je modifie ?
Merci
26 déc. 2003 à 22:44
or je travaille sous delphi6 ???
26 déc. 2003 à 22:15
je préfère voir des commentaire inutiles ou des erreurs que rien !
Cela prouve que tu essaye de m'aider et cela j'aprécie :)
Merci Bon alors Récapitulons Que dois-je faire ?
En sachant tout ce que tu c'est ?
Au Fait j'ai pas la version pro mais la version Perso de Delphi 7 Fr !
Et XPManifest est deja integré dedans !
Ya que ScroolCredits et les VCL
Sinon tu dois tout avoir !
Si il te manque quelque chose dit moi quoi ;)
26 déc. 2003 à 21:50
TScrollingCredits
http://www.saturnlaboratories.co.za/download.php?filename=credits.zip
Tidhttp, composant faisant partie d'Indy et livré avec delphi 7.
TXPManifest
http://darkskull.developpez.com/d7xpstyle/
26 déc. 2003 à 21:34
désolé vraiment !!!, je te jures ...
yve
26 déc. 2003 à 21:27
procedure ThreadExecute(Sender: TObject; params: Pointer);
n'est pas réellement un thread ,ce n'est pas parce que tu nomme une procédure thread que ^ca en sera un il te faut le créé dans un type
TmonThread =class(tthread)
bla bla bla end
attention ?
for i:=0 to ListeFichiers.Count-1 do
begin
Try
TStringStream.Create(Http.Get(Url.Text+ListeFichiers.Items[i]));
tout ce que tu créé en run time devrait en théorie être libéré or
utilise plutôt duex bloc try imbriqué
for i:=0 to ListeFichiers.Count-1 do
try
try
TStringStream.Create(Http.Get(Url.Text+ListeFichiers.Items[i]));
...
except
begin
On EIdHTTPProtocolException Do...(envoi un code vers finally qui sera exécuter en cas d'erreur exemple erreur:=4;)
end;//except
end;//try1
finally
begin
...
TStringStream.free;
if(erreur=4)then ...
end;//finally
end;//try2
le problème vient du fait que lorsque delphi intercepte une erreur il termine la procédure or ,si tu agis comme il se doit le bloc finally gèrera ce que tu souhaites...
bonne chance (j'aurais aimé pouvoir comiplé sans supprimé des objets) je ne peux pas testé ce que je dis !!!
yve