Discussion :

[[ZiP]]

Bonjour,

J'essai d'utiliser le code suivant :
http://www.developpez.com/delphi/faq...ne_ip#indyping

Avec BDS 2006 et Indy 10 mais j'ai quelques soucis...

Code :

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

1
2
3
4
5
6
7
8
 
[Pascal Erreur] Unit1.pas(59): E2003 Identificateur non déclaré : 'ReplyStatus'
[Pascal Erreur] Unit1.pas(59): E2066 Opérateur ou point-virgule manquant
[Pascal Erreur] Unit1.pas(65): E2029 'THEN' attendu(e) mais identificateur 'ReplyStatusType' trouvé(e)
[Pascal Erreur] Unit1.pas(68): E2081 Affectation à la variable de boucle FOR 'i'
[Pascal Erreur] Unit1.pas(74): E2029 'END' attendu(e) mais 'FINALLY' trouvé(e)
[Pascal Erreur] Unit1.pas(76): E2125 EXCEPT ou FINALLY attendu
[Pascal Erreur fatale] Project1.dpr(5): F2063 Impossible de compiler l'unité utilisée 'Unit1.pas'

Merci,
ZiP

[Pedro]

Salut

Cette fonction nécessite l'inclusion des unités : IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient.

C'est OK avec ça?

[[ZiP]]

Salut,

Oui, j'ai bien inclus les unités citées.

J'ai mes deux erreurs ici :

R[i] := ReplyStatus.MsRoundTripTime;

et là :

if ReplyStatus.ReplyStatusType <> rsEcho Then result := False; //pas d'écho, on renvoi false.

Merci,
ZiP

[Pedro]

Salut,

Oui, j'ai bien inclus les unités citées.

Merci,
ZiP

Est est-ce que ça a résolu le problème?

[[ZiP]]

Salut,

Non, non, j'avais bien dès le départ inclus ces unités, le problème est donc celui du départ.

Merci,
ZiP

[Pedro]

Mmmmh... Peut-être que cette QR n'est pas compatible avec Indy 10... Faudra faire de plus amples tests... i toutefois, tu arrives à la faire marcher avec Indy 10, n'hésite pas à nous la proposer

[Rayek]

Fait voir ton code complet svp.

Qui parie qu'il a viré le With