Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal H
"jacques trepp" a écrit dans news:3fe302d7$0$17141$:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par exemple. Connaissez-vous un moyen de changer COM2 en COM1 par programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes. Je présume qaue tu dois pouvoir faire la manip inverse, à savoir changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées i est entier = 1 w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut w_Imp_Defaut= IniLit("windows","device","") w_Liste_Imp = IniLit("printerports","","")
BOUCLE w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC) si w_Tab_Imp[i,1]="" sortir // 2 alternatives pour lire le port : w_Tab_Imp[i,2] = ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",") w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2]) i++ FIN
-- Pascal
"jacques trepp" <jacques.trepp@wanadoo.fr> a écrit dans
news:3fe302d7$0$17141$626a54ce@news.free.fr:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par
exemple. Connaissez-vous un moyen de changer COM2 en COM1 par
programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes.
Je présume qaue tu dois pouvoir faire la manip inverse, à savoir
changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut
w_Liste_Imp est chaine // Liste des imprimantes installées
i est entier = 1
w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut
w_Imp_Defaut= IniLit("windows","device","")
w_Liste_Imp = IniLit("printerports","","")
BOUCLE
w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC)
si w_Tab_Imp[i,1]="" sortir
// 2 alternatives pour lire le port :
w_Tab_Imp[i,2] =
ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",")
w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2])
i++
FIN
"jacques trepp" a écrit dans news:3fe302d7$0$17141$:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par exemple. Connaissez-vous un moyen de changer COM2 en COM1 par programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes. Je présume qaue tu dois pouvoir faire la manip inverse, à savoir changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées i est entier = 1 w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut w_Imp_Defaut= IniLit("windows","device","") w_Liste_Imp = IniLit("printerports","","")
BOUCLE w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC) si w_Tab_Imp[i,1]="" sortir // 2 alternatives pour lire le port : w_Tab_Imp[i,2] = ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",") w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2]) i++ FIN
-- Pascal
jacques trepp
Pascal H wrote:
"jacques trepp" a écrit dans news:3fe302d7$0$17141$:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par exemple. Connaissez-vous un moyen de changer COM2 en COM1 par programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes. Je présume qaue tu dois pouvoir faire la manip inverse, à savoir changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées i est entier = 1 w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut w_Imp_Defaut= IniLit("windows","device","") w_Liste_Imp = IniLit("printerports","","")
BOUCLE w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC) si w_Tab_Imp[i,1]="" sortir // 2 alternatives pour lire le port : w_Tab_Imp[i,2] > ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",") w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2]) i++ FIN
merci, je vais essayer de faire avec ça.
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
Pascal H wrote:
"jacques trepp" <jacques.trepp@wanadoo.fr> a écrit dans
news:3fe302d7$0$17141$626a54ce@news.free.fr:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par
exemple. Connaissez-vous un moyen de changer COM2 en COM1 par
programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes.
Je présume qaue tu dois pouvoir faire la manip inverse, à savoir
changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut
w_Liste_Imp est chaine // Liste des imprimantes installées
i est entier = 1
w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut
w_Imp_Defaut= IniLit("windows","device","")
w_Liste_Imp = IniLit("printerports","","")
BOUCLE
w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC)
si w_Tab_Imp[i,1]="" sortir
// 2 alternatives pour lire le port :
w_Tab_Imp[i,2] > ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",")
w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2])
i++
FIN
merci,
je vais essayer de faire avec ça.
--
Jacques TREPP
Albygest
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
"jacques trepp" a écrit dans news:3fe302d7$0$17141$:
Bonjour,
je déclare une imprimante et son pilote sur le port COM2, par exemple. Connaissez-vous un moyen de changer COM2 en COM1 par programmation windev 5.5 ?
merci
Jacques
Bonjour,
Avec le code suivant tu peux récupérer les paramètres d'imprimantes. Je présume qaue tu dois pouvoir faire la manip inverse, à savoir changer le port affecté :
// Récupération des informations des imprimantes installées
w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées i est entier = 1 w_Tab_Imp est tableau de 20 par 2 chaines
// Lecture de l'imprimante défaut w_Imp_Defaut= IniLit("windows","device","") w_Liste_Imp = IniLit("printerports","","")
BOUCLE w_Tab_Imp[i,1] = extraitchaine(w_Liste_Imp,i,RC) si w_Tab_Imp[i,1]="" sortir // 2 alternatives pour lire le port : w_Tab_Imp[i,2] > ExtraitChaine(INILit("printerports",w_Tab_Imp[i,1],""),2,",") w_Tab_Imp[i,2] = ExtraitChaine(INILit("Devices",w_Tab_Imp[i,1]),2,",")
Trace("Nom: " + w_Tab_Imp[i,1] + " sur le port : " + w_Tab_Imp[i,2]) i++ FIN
merci, je vais essayer de faire avec ça.
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
jacques trepp
> merci, je vais essayer de faire avec ça.
Bonsoir, Pascal, j'ai essayé, ça l'a pas fait :(.
j'ai recommencé avec la BDR : w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées w_Imp_Defaut1 est chaine // Nom de l'imprimante défaut corrigée w_Liste_Imp1 est chaine // Liste des imprimantes installées corrigées w_Imp_Defaut = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionDevices","CBM1000II") w_Liste_Imp = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionPrinterPorts","CBM1000II") w_Imp_Defaut1=remplace(w_Imp_Defaut,"COM4","COM2") w_Liste_Imp1=remplace(w_Liste_Imp,"COM4","COM2") registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionDevices","CBM1000II",w_Imp_Defaut1) registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionPrinterPorts","CBM1000II",w_Liste_Imp1)
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Quelle galère !
allez, bon week-end
merci
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
>
merci,
je vais essayer de faire avec ça.
Bonsoir, Pascal,
j'ai essayé, ça l'a pas fait :(.
j'ai recommencé avec la BDR :
w_Imp_Defaut est chaine // Nom de l'imprimante défaut
w_Liste_Imp est chaine // Liste des imprimantes installées
w_Imp_Defaut1 est chaine // Nom de l'imprimante défaut corrigée
w_Liste_Imp1 est chaine // Liste des imprimantes installées corrigées
w_Imp_Defaut = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows
NTCurrentVersionDevices","CBM1000II")
w_Liste_Imp = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows
NTCurrentVersionPrinterPorts","CBM1000II")
w_Imp_Defaut1=remplace(w_Imp_Defaut,"COM4","COM2")
w_Liste_Imp1=remplace(w_Liste_Imp,"COM4","COM2")
registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows
NTCurrentVersionDevices","CBM1000II",w_Imp_Defaut1)
registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows
NTCurrentVersionPrinterPorts","CBM1000II",w_Liste_Imp1)
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne
peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas
défaut ?
Quelle galère !
allez, bon week-end
merci
--
Jacques TREPP
Albygest
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
j'ai recommencé avec la BDR : w_Imp_Defaut est chaine // Nom de l'imprimante défaut w_Liste_Imp est chaine // Liste des imprimantes installées w_Imp_Defaut1 est chaine // Nom de l'imprimante défaut corrigée w_Liste_Imp1 est chaine // Liste des imprimantes installées corrigées w_Imp_Defaut = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionDevices","CBM1000II") w_Liste_Imp = registrelit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionPrinterPorts","CBM1000II") w_Imp_Defaut1=remplace(w_Imp_Defaut,"COM4","COM2") w_Liste_Imp1=remplace(w_Liste_Imp,"COM4","COM2") registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionDevices","CBM1000II",w_Imp_Defaut1) registreecrit("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionPrinterPorts","CBM1000II",w_Liste_Imp1)
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Quelle galère !
allez, bon week-end
merci
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
Pascal H
Le ven. 19 déc. 2003 17:42:26, dans le message news:3fe32b39$0$29081$, "jacques trepp" a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à partir de la BDR. Donc la piste du iConfigure() peut être la bonne.
Par ailleurs une autre solution consisterait à créer dans le panneau de config une copie de ton imprimante sur le deuxième port à utiliser et à switcher dessus.Mais je ne suis pas sûr que ça corresponde exactement au problème que tu cherches à solutionner.
-- Pascal
Le ven. 19 déc. 2003 17:42:26, dans le message
news:3fe32b39$0$29081$636a55ce@news.free.fr, "jacques trepp"
<jacques.trepp@wanadoo.fr> a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit
qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en
COM2.
Mais on avance. Il faudrait peut être que je redéclare
l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à
partir de la BDR.
Donc la piste du iConfigure() peut être la bonne.
Par ailleurs une autre solution consisterait à créer dans le panneau de
config une copie de ton imprimante sur le deuxième port à utiliser
et à switcher dessus.Mais je ne suis pas sûr que ça corresponde
exactement au problème que tu cherches à solutionner.
Le ven. 19 déc. 2003 17:42:26, dans le message news:3fe32b39$0$29081$, "jacques trepp" a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à partir de la BDR. Donc la piste du iConfigure() peut être la bonne.
Par ailleurs une autre solution consisterait à créer dans le panneau de config une copie de ton imprimante sur le deuxième port à utiliser et à switcher dessus.Mais je ne suis pas sûr que ça corresponde exactement au problème que tu cherches à solutionner.
-- Pascal
jacques trepp
Pascal H wrote:
Le ven. 19 déc. 2003 17:42:26, dans le message news:3fe32b39$0$29081$, "jacques trepp" a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à partir de la BDR. Donc la piste du iConfigure() peut être la bonne.
merci, je vais en rajouter une couche avec iconfigure :)
Par ailleurs une autre solution consisterait à créer dans le panneau de config une copie de ton imprimante sur le deuxième port à utiliser et à switcher dessus.Mais je ne suis pas sûr que ça corresponde exactement au problème que tu cherches à solutionner.
non, parce que le port serait bloqué quand même.
cordialement
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
Pascal H wrote:
Le ven. 19 déc. 2003 17:42:26, dans le message
news:3fe32b39$0$29081$636a55ce@news.free.fr, "jacques trepp"
<jacques.trepp@wanadoo.fr> a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit
qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en
COM2.
Mais on avance. Il faudrait peut être que je redéclare
l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à
partir de la BDR.
Donc la piste du iConfigure() peut être la bonne.
merci,
je vais en rajouter une couche avec iconfigure :)
Par ailleurs une autre solution consisterait à créer dans le panneau
de config une copie de ton imprimante sur le deuxième port à utiliser
et à switcher dessus.Mais je ne suis pas sûr que ça corresponde
exactement au problème que tu cherches à solutionner.
non, parce que le port serait bloqué quand même.
cordialement
--
Jacques TREPP
Albygest
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
Le ven. 19 déc. 2003 17:42:26, dans le message news:3fe32b39$0$29081$, "jacques trepp" a écrit :
ça le modifie bien, mais quand je lance l'impression, ça me dit qu'il ne peut pas écrire sur COM4, alors que dans la BDR, c'est en COM2.
Mais on avance. Il faudrait peut être que je redéclare l'imprimante pas défaut ?
Possible effectivement que le raffraichissement n'ai pas eu lieu à partir de la BDR. Donc la piste du iConfigure() peut être la bonne.
merci, je vais en rajouter une couche avec iconfigure :)
Par ailleurs une autre solution consisterait à créer dans le panneau de config une copie de ton imprimante sur le deuxième port à utiliser et à switcher dessus.Mais je ne suis pas sûr que ça corresponde exactement au problème que tu cherches à solutionner.
non, parce que le port serait bloqué quand même.
cordialement
-- Jacques TREPP Albygest
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.553 / Virus Database: 345 - Release Date: 18/12/2003
