OpenEdge 10.2A - Le jeu INPUT THROUGH ne fonctionne pas après Windows Update 1703 sous Windows 10

Question

Nous utilisions le code ci-dessous pour obtenir le nom de l'ordinateur.

def new shared var cHost as char format "x(40)" no-undo. 
INPUT THROUGH hostname NO-ECHO. 
SET cHost. 
INPUT CLOSE. 
DISPLAY chost. 

Après avoir mis à jour nos ordinateurs (Windows 10 - 1703), cela ne fonctionne plus. Il semble SET cHost est la partie où il échoue. J'ai essayé IMPORT UNFORMATTED cHost mais cela ne fonctionne pas.

PS: Je peux obtenir le nom d'ordinateur à l'aide OS-GETENV (« NOMORDINATEUR ») mais je dois le faire en utilisant agrofourniture déclaration.

---

Edit: Il semble qu'il est non seulement un problème avec 10.2A mais plus général. En outre, il n'est pas seulement lié à nom d'hôte mais toutes les applications de la console et commandes MS-DOS. Maintenant, je vais essayer de remplacer INPUT THROUGH instruction avec une autre commande de progression s'il y en a, ou essayer de communiquer avec des applications de console existantes avec une autre méthode.

Answer 1

Comme il semble comme un bug, jusqu'à ce que quelqu'un arrive avec une meilleure solution, voilà comment je vais changer mes codes:

DEF VAR cHost AS CHAR FORMAT "x(40)" NO-UNDO. 
OS-CREATE-DIR VALUE("c:\temp"). 
OS-COMMAND SILENT VALUE("hostname >c:\temp\hostname.txt"). 
INPUT FROM VALUE("c:\temp\hostname.txt"). 
IMPORT UNFORMATTED cHost. 
INPUT CLOSE. 
MESSAGE cHost. 

Ce code peut être utilisé pour d'autres commandes ms-dos et applications de la console ainsi.

DEF VAR cHost AS CHAR FORMAT "x(40)" NO-UNDO. 
OS-CREATE-DIR VALUE("c:\temp"). 
OS-COMMAND SILENT VALUE("ECHO %cd% >c:\temp\result.txt"). 
INPUT FROM VALUE("c:\temp\result.txt"). 
IMPORT UNFORMATTED cHost. 
INPUT CLOSE. 
MESSAGE cHost. 

Merci pour votre aide.

Answer 2

La première chose que je ferais est de vérifier que la commande 'hostname' fonctionne encore correctement à partir d'une fenêtre de commande.

Si l'on suppose qu'il est je coder votre extrait quelque chose comme ceci:

INPUT THROUGH VALUE("hostname"). 
IMPORT UNFORMATTED cHost. 
INPUT CLOSE. 
DISPLAY cHOST format "x(60)". 

Ce qui pourrait révéler un message d'erreur plus utile que « il ne fonctionne plus ».

Depuis NOMORDINATEUR répond à vos besoins, mais vous devez utiliser agrofourniture pour une très mystérieuse raison, vous pouvez aussi essayer:

INPUT THROUGH VALUE("echo %COMPUTERNAME%"). 
IMPORT UNFORMATTED cHost. 
INPUT CLOSE. 
DISPLAY cHOST format "x(60)". 

Answer 3

Il semble que le problème ne peut pas être limitée à la version OpenEdge 10. Je suis sous Windows 10 Winver 1703 périphérique de développement, en utilisant Progress/Openedge 8.3 et je ne suis plus en mesure d'exécuter cela.

def var a as char format "x(70)". 

    input through "echo %cd%" no-echo. 
    import unformatted a. 
    input close. 

    message a. pause. 

Ceci fonctionne sur un serveur Windows 2012 R2, en utilisant progress/openge 8.3.

Où ne fonctionne plus, il quitte simplement à partir du programme lorsqu'il frappe la commande d'importation.