Discussion :

[mballasse]

Bonjour

Je développe actuellement des outils tablette sous Delphi XE6 (support Windows 8.1)
Afin de m'assurer que les utilisateurs nomades ont bien la dernière version de l'exécutable, je génère sur un serveur un fichier texte qui contient simplement le N° de la dernière version en production
L'application, à son lancement se connecte au serveur et récupère le contenu du fichier

Plusieurs cas se présentent alors
- les tablette sont pluggées sur leur dock, connecté au réseau par RJ45
- les tablettes sont nomades mais connectées au WIFi de l'entreprise
- les tablettes sont nomades mais connectée sà un WIFI lambda

Je pensais donc faire un simple PING sur le serveur afin de vérifier que je pouvais accéder au fichier de version
J'ai donc utilisé le code source de Claudius (trouvé sur ce forum sous la recherche Ping) mais les résultats ne sont pas au rendez vous
cas N° 1 : en filaire : aucun PING
cas N° 2 : en wifi de l'entreprise : aucun PING
cas N° 3 : cas non testé pour le moment

Complément d'information :
- l'UAC est activé et ne peut être désactivé (prérogatives Système et Réseau)
- la commande DOS ping fonctionne elle très bien

Quid de la situation ?

[Andnotor]

Je ne vois pas l'intérêt du ping. Il va simplement indiquer que le serveur est actif mais pas s'il est en maintenance, le fichier ne sera peut-être pas accessible.
Ici, la réponse au ping ne semble simplement pas être autorisée par le router/serveur.

Le téléchargement (et éventuellement l'erreur reportée) me paraît suffisant.

[ShaiLeTroll]

le ping en DOS répond mais pas la version en Delphi,
le code de Cl@udius utilise TIdIcmpClient, normalement Indy c'est efficace

le ping en DOS tente peut-être plusieurs variantes de requête ICMP ou alors le paramètrage du TIdIcmpClient est insuffisant,
je ne connais pas cette classe ayant utilisé directement de "IcmpCreateFile", "IcmpCloseHandle" et "IcmpSendEcho"
Ce code est vieux et date de WinXP/Vista en client sur des servers 2K/2003
Ce sujet sera l'occasion de l'intégrer a ma lib perso

Comment sera récupéré le fichier de version par la suite ? HTTP File ? HTTP Rest/Soap ? FTP ? simple TCP/IP ?
Tu peux aussi tenter l'accès mais avec un timeout très court pour gérer l'éventuel absence de réseau pour ne pas bloquer l'utilisateur

[mballasse]

Pour répondre à ShaïLeTroll, je me contente de faire un assignfile et de lire la valeur
Oui c'est tout pourri mais je n'ai pas estimé utile de downloader le fichier

En complément d'information,
- le code de Claudius fonctionne très bien sur mon ordinateur portable Windows 7 en réseau et WIFI
- le code de Claudius ne fonctionne pas sur la tablette Windows 8.1 ni en réseau ni en WIFI, même en ayant déactivé l'UAC

[ShaiLeTroll]

OK,

tes tablettes seront donc en VPN sur le réseau local lors de l'utilisation d'un WIFI lambda ?!

Ah, 8.1, c'est surement lui le coupable !

fichier "SLT.Common.ICMP.pas"
Voir version plus récente

l'utilisation

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
begin
  MemoPing.Lines.Clear();
 
  with TSLTICMPRequest.Create() do
  try
    MemoPing.Lines.Add(Format('Windows %d.%d', [Win32MajorVersion, Win32MinorVersion]));
 
    if Ping('localhost') then
      MemoPing.Lines.Add('Success - localhost')
    else
      MemoPing.Lines.Add('Error - localhost');
 
    if Ping('127.0.0.1') then
      MemoPing.Lines.Add('Success - 127.0.0.1')
    else
      MemoPing.Lines.Add('Error - 127.0.0.1');
 
    if Ping('www.google.fr') then
      MemoPing.Lines.Add('Success - www.google.fr')
    else
      MemoPing.Lines.Add('Error - www.google.fr');
 
    MemoPing.Lines.Add('Details :');
    MemoPing.Lines.Add(TextResult);
  finally
    Free();
  end;
end;

le résultat

Windows 6.1
Success - localhost
Success - 127.0.0.1
Success - www.google.fr
Details :
Ping sur localhost, Status : "The status was success.", Temps = 1ms, Message Reçu 1/1, TTL = 64
Ping sur 127.0.0.1, Status : "The status was success.", Temps < 1ms, Message Reçu 1/1, TTL = 128
Ping sur www.google.fr, Status : "The status was success.", Temps = 1ms, Message Reçu 1/1, TTL = 64

[mballasse]

Bon ben ShaillTheTroll, je te dois une bonne bière alors
Ca marche nickel
Un gros merci à toi

[Barbibulle]

Je pensais donc faire un simple PING sur le serveur afin de vérifier que je pouvais accéder au fichier de version

Je pose la même question d'Andnotor a quoi sert le ping sur le serveur ?
Pourquoi ne pas accéder directement au fichier en question (avec une éventuelle gestion de time-out).

Le fichier s'ouvre je récupère le numéro de version et éventuellement je fais une mise à jour le fichier ne s'ouvre pas on ne peut vérifier la version (que ce soit parce que le serveur est en maintenance, arrêté, ou parce que je ne suis pas connecté à un réseau peu importe..)

Dans 5 ans pour des raisons de sécurités, l'administrateur réseau décide de bloquer les réponses aux ping. Votre application en déduira que vous n'êtes pas en réseau et n'essayera pas d'accéder à votre fichier (alors qu'il le pourrait)...