Un printername par un autre nom

Un printername par un autre nom

Un printername par un autre nom : Plusieurs milliers de conseils pour vous faciliter la vie.

L'eternel Debutant - Entree de Journal #4.1
Cet article est d'abord paru sur http://www.undu.com
je tiens a garder mes utilisateurs informes. Un element particulier de l'information qui tend a eviter les ennuis en bas de la route est d'avoir un etiquetage clair sur l'ecran, comme pour ce qui est de l'imprimante active. Cela permet d'eviter l'envoi de laser de rapports pour les imprimantes matricielles et vice-versa. Et de savoir ou la destination se trouve me permet de modifier l' & bouton Imprimer pour un & Fax bouton que l'occasion l'exige. Une petite chose, mais il rassure l'utilisateur que vous etes en controle.
Malheureusement, j'ai utilise un tiers de la DCU pour obtenir le nom de l'imprimante pour plusieurs annees. Je sais, je sais. Vous n'etes pas cense utiliser n'importe quel outil tiers que vous n'avez pas de source, mais il a fonctionne a merveille. Jusqu'a ce que ma plus recente mise a niveau. C'est quand j'ai decouvert le DCU-fournisseur n'etait plus le soutien ou la mise a jour de l'outil. Oups!!!
je suis passe par la TPrinter section d'aide. Encore ne pouvait pas venir avec une solution. Ainsi, a l'internet, je suis alle, a l'aide de www.deja.com a la recherche de 'Delphi printername.' Comme cela a ete souligne a moi, j'aurais probablement ete mieux chez http://www.tamaracka.com/search.htm. Malgre le faux depart, j'ai fait la rencontre de plusieurs e-mails, y compris par Barry McClure de Grebar Systemes, les fournisseurs de PrintDAT!, une tres belle grille imprimante outil que j'utilise avec plaisir. Dans l'echange a ete ma solution,
presente ici comme une fonction ou deux:

& nbsp & nbsp utilise des Imprimantes
& nbsp & nbsp {est PLEIN Printername y compris la designation du port}
& nbsp & nbsp fonction gmGetPrinterName:string
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Defaut Selectionne'
& ! & ! & ! & ! & ! & nbsp else result := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& nbsp & nbsp fin
& nbsp & nbsp {Retourne le Printername sans les designations de port}
& nbsp & nbsp fonction gmGetJustPrinterName:string
& nbsp & nbsp const
& ! & ! & ! & nbsp s = ''/ / un espace avant et apres ' on ' pour le pos de recherche
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Defaut Selectionne'
& ! & ! & ! & ! & ! & nbsp else begin
& ! & ! & ! & ! & ! & ! & ! & nbsp resultat := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& ! & ! & ! & ! & ! & ! & ! & nbsp si pos(s) > 0
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp puis result := copy(resultat,1,pos(s)-1) // se rase port
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp fin
Gary Mugford
l'Idee de Mecanicien, Bramalea SUR Canada
[email protected]