IP INTERNET VIA UNE CONNEXION RÉSEAU - RÉCUPÉRER UNE IP DANS UN STRING

JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 12 janv. 2005 à 17:47
sara7delphi777 Messages postés 2 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 12 septembre 2009 - 12 sept. 2009 à 17:11
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/28787-ip-internet-via-une-connexion-reseau-recuperer-une-ip-dans-un-string

sara7delphi777 Messages postés 2 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 12 septembre 2009
12 sept. 2009 à 17:11
j'ai une petite question
quel est le composant qui remplace
"NMHTTP" Delphi4,
et "FastNet" Delphi6
dans la version Delphi7
car je travail avec lui (delphi7)
merci d'avance pour votre aide
l_isserel Messages postés 1 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 19 juillet 2006
19 juil. 2006 à 12:41
On telecharge, ca marche sans retouche
Cela fait toujours plaisir

j'ai trouver comment déclencher un exe sur un mail recu
je souhaite renvoyer cette ip par mail

Bravo
dxh_master Messages postés 97 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 25 juin 2006
15 juin 2006 à 01:06
jai remarqué que jai pas la lib PSOCK ou pui-je la trouvée???
josswel Messages postés 67 Date d'inscription lundi 23 mai 2005 Statut Membre Dernière intervention 3 juin 2009
14 juin 2005 à 12:37
tres cool
japee tu sais comment cacher son adresse IP pour que les curieux ne peuvent le voir . Un redirection des adresse IP si tu veux . Mais ton code est on merci elle va m'inspirer .
mathieu57100 Messages postés 103 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 9 février 2006
16 mars 2005 à 13:57
très sympa la source, je m'en suis inspiré pour un projet...merci.
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
14 janv. 2005 à 15:10
Je voulais dire: pour éviter que le message "Recherche en cours..." ne continue d'apparaître, vous aviez compris ;)
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
14 janv. 2005 à 15:02
Sérieusement, il vaut mieux remplacer la 4ème url :

http://mire.ipadsl.net/speedtest/speedtest4.php

par :

http://mire.ipadsl.net/

... ça va beaucoup plus vite !

De même, en attendant une mise à jour du code, j'aurais dû mettre les instructions :

Animate1.Active := False;
sbInfo.SimpleText := 'Terminé';

dans un bloc finally...end, pour éviter que le TAnimate ne continue de fonctionner et que le message "Terminé" ne continue d'apparaître, alors que le NMHTTP est déconnecté (en cas d'exception).
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
12 janv. 2005 à 22:19
JulioDelphi : désolé pour le dernier lien, c'était pour avoir le temps de vérifier le bon fonctionnement du TAnimate ;)
Effectivement, comme exprimé par Delphiprog, je ne dispose pas du composant TDownloadURL. Il va falloir que tu t'y colles.

Caribensila : merci de ton appréciation pour la fonction GetIPAdress. Je lui ai fait passer quelques tests bien tordus, elle a l'air de faire correctement son boulot.

Delphiprog : j'avoue être peu familier du concept d'expression régulière. Je te remercie d'avoir attiré mon attention sur ce sujet qui m'avait échappé jusqu'à présent et que je vais étudier avec intérêt.
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
12 janv. 2005 à 20:51
DelphiProg : ha ouè dsl, moi qui ai commencé à Delphi7 :p je ne pense jamais à ça. Tu nous fais une petite démo de l'expression regulière à utiliser pour l'ip ? :)
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
12 janv. 2005 à 20:49
JulioDelphi : Japee a indiqué que le code avait été écrit et testé avec Delphi 4 pro. Or le composant TDownloadURL n'existe que depuis Delphi 6. Je ne suis donc pas sur que Japee soit en mesure d'apprécier les efforts que tu vas consentir.

Japee : ce code a le mérite de décomposer le texte reçu et rechercher l'adresse IP.
Personnellement, j'aurais utilisé les expressions régulières, si simples à mettre en oeuvre.
De plus, cela aurait facilité la "migration" lors de l'apparition des adresses IP à la norma IP V6.
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
12 janv. 2005 à 18:03
Cari : ouè c vrai je vois l'extreme :p

ps : a la place de mon "o^a" il faut lire "ip au" ... oui oui c'est une faute de frappe :p
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
12 janv. 2005 à 17:47
hello,
ça ressemble tres tres fort a cari sauf le webbrowser en moins...
evite ce lien qui fait télécharger 2.5mo :) c long pour les 56k :p http://mire.ipadsl.net/speedtest/speedtest4.php
ce soir ou demain je te montre comment je fais avec un TDownloadURL ou bien tu le fais ? :) c une action standard du compo de base TActionList (creer "new stardard action" > "internet") tu verras c super facile aussi.
C'est bien ce genre de source pour choper son o^a travers un routeur, c la seule "bonne "soluce que j'ai trouvé aussi. je mets entre " car si aucun des serveurs ne réponds ...
;) a+