The Perpetual Newbie - Logg Entry # 4.1This artikkelen først dukket opp på http: //www.undu.comI liker å holde mine brukerne informert. Et spesielt stykke informasjon som har en tendens til å unngå problemer på veien er å ha en klar etikett på skjermen om hvem som er den aktive skriveren. Dette bidrar til å unngå å sende laser rapporter til matriseskrivere og vice-versa. Og å vite hvor den planlagte destinasjonen ligger tillater meg å endre & Skriv ut-knappen til & Faks-knappen som anledningen krever det. En liten ting, men det forsikrer brukeren du er i control.Unfortunately, jeg brukte en tredjepart DCU for å få navnet på skriveren i flere år. Jeg vet jeg vet. Du er ikke ment å bruke tredjeparts verktøy som du ikke har kilden for, men det virket vakkert. Inntil min siste oppgradering. Det var da jeg oppdaget DCU-leverandøren ble ikke lenger støtte eller oppdatere verktøyet. Oops !!! Jeg gikk gjennom TPrinter hjelp delen. Likevel kunne ikke komme opp med en løsning. Så, av til internett jeg gikk, bruker www.deja.com å søke etter "Delphi printer." Som det har blitt påpekt til meg, ville jeg sannsynligvis ha vært bedre på http://www.tamaracka.com/search.htm. Til tross for den misforståtte start, gjorde jeg møter flere e-poster, blant annet en av Barry McClure av Grebar Systems, tilbydere av PrintDAT !, en veldig fin rutenett skriver verktøy som jeg har brukt lykkelig. I utvekslingen var min løsning, som presenteres her som en funksjon eller to: bruker Skrivere; {Får full Skriver inkludert port betegnelse} funksjon gmGetPrinterName: string; begynne hvis Printer.PrinterIndex = -1 da resultere: = 'Ingen standardskriver Valgt annet resultat: = Printer.Printers [Printer.PrinterIndex]; slutt; {Returnerer Skriver uten port betegnelser} funksjon gmGetJustPrinterName: string; konst s = 'on'; //Et mellomrom før og etter "på" for pos søke begynne hvis Printer.PrinterIndex = -1 da resultere: = 'Ingen standardskriver Valgt annet begynne resultat: = Printer.Printers [Printer.PrinterIndex]; hvis pos (s, resultat) > 0 da resultere: = kopiere (resultat, 1, pos (s, resultat) -1); //Barberer av port slutten; enden, Gary MugfordIdea Mechanic, Bramalea ON [email protected]