J'ai créé une GUI avec un bouton appelé $Button_test_com1
Le principe est d'envoyer une commande DOS vers une imprimante branchée en série et vérifier l'impression / la réponse.
Au début, j'envoyais le test en allant exécuter un script batch, mais cela m'oblige à l'ajouter dans InnoSetup et si le script est supprimé, le bouton est HS.
Voici le code (inspiré par ci et par là sur le site):
Le code fonctionne bien. Mais !!! J'aimerai du coup ajouter une vérification et personnaliser le message:
Si impression HS (ou pas de réponse du port COM) alors: message: HS sinon: impression OK
Et du coup je bloque...
J'ai tenté de façon un peu hasardeuses des choses comme ceci mais sans succès:
Case $Button_test_com1
$command = 'dir>com1'
RunWait(@ComSpec & " /c " & $command, "", @SW_SHOW)
if ($command = 1) Then
MsgBox(0, "Test envoyé", "La commande a été envoyée sur le COM1 de l'imprimante"&@crlf&@crlf&"Veuillez vérifier l'impression.")
Else
MsgBox(0, "ERREUR", "L'imprimante ne semble pas répondre"&@crlf&@crlf&"Veuillez vérifier le bouton d'alimentation et les branchements.")
EndIf
$command = 'dir>com1'
RunWait(@ComSpec & " /c " & $command, "", @SW_SHOW)
if ($command = 1) Then
MsgBox(0, "Test envoyé", "La commande a été envoyée sur le COM1 de l'imprimante"&@crlf&@crlf&"Veuillez vérifier l'impression.")
Else
MsgBox(0, "ERREUR", "L'imprimante ne semble pas répondre"&@crlf&@crlf&"Veuillez vérifier le bouton d'alimentation et les branchements.")
EndIf
Merci d'avance pour vos lumières. Bonne soirée!!