Ako tvoj Delphi aplikacija treba raditi na raznim vrstama datoteka, jedan od zadataka koji bi se mogao nalaziti za vašu aplikaciju je dopustiti korisniku aplikacije da ispisuje datoteku, bez obzira na vrstu datoteke.
Većina aplikacija orijentiranih na dokumente, poput MS Word-a, MS Excel-a ili Adobe-a, mogu lako ispisati dokumente stvorene u tom programu. Na primjer, Microsoft Word sprema tekst koji pišete u dokumentima s DOC nastavkom. Budući da Word određuje što je "sirovi" sadržaj .DOC datoteke, on zna kako ispisati .DOC datoteke. Isto vrijedi za bilo koju "poznatu" vrstu datoteke koja drži neke podatke za ispis.
Što ako trebate ispisati razne vrste dokumenata / datoteka iz svoje prijave? Možete li znati kako poslati datoteku na pisač kako bi se ispravno ispisala?
Ispis iz Delphija
Možemo pitati Windows što aplikacija može ispisati, na primjer, PDF datoteku. Ili, još bolje, možemo reći Windows-u, evo jedne PDF datoteke, poslati je u aplikaciju povezanu / zaduženu za ispis PDF datoteka.
Da biste to učinili, otvorite Windows Explorer, pomaknite se do direktorija koji sadrži neke datoteke za ispis. Za većinu vrsta datoteka na vašem sustavu kada desnom tipkom miša kliknete datoteku u programu Windows Explorer, pronaći ćete naredbu "Ispis". Izvršenje naredbe Print shell (Ispis ljuske) rezultirat će slanjem datoteke na zadani pisač. Pa, upravo to je ono što želimo: za vrstu datoteke nazovite metodu koja će datoteku poslati na odgovarajući program za ispis. Funkcija koju slijedimo je ShellExecute API funkcija.
ShellExecute: Print / PrintTo
Međutim, ShellExecute može učiniti mnogo više. ShellExecute se može koristiti za pokrenite aplikaciju, otvorite Windows Explorer, pokrenite pretraživanje počevši u navedenom direktoriju i - što nas najviše zanima - ispisujte navedenu datoteku.
Navedite pisač
Pomoću gornjeg poziva dokument "document.doc" smješten u korijenu C pogona bit će poslan Windows zadanom pisaču. ShellExecute uvijek koristi zadani pisač za akciju "print". Što ako trebate ispisati na drugom pisaču, što ako želite dopustiti korisniku da promijeni pisač?
Naredba ljuske PrintTo
Prije kopiranja i lijepljenja: globalna varijabla pisača (vrsta TPrinter) dostupna u svim Delphi programima može se koristiti za upravljanje bilo kojim ispisom koji obavlja aplikacija. Pisač je definiran u jedinici "pisači", ShellExecute je definiran u jedinici "shellapi".
- Na obrazac ispustite TComboBox. Dajte mu ime "cboPrinter". Postavite Style na csDropDownLidt
- Sljedeća dva retka stavite u onCreate obrađivač oblika čak:
// imaju dostupne pisače u kombiniranom okvirucboPrinter. Stavke. Dodijeli (pisač. Pisači);// unaprijed odaberite zadani / aktivni pisačcboPrinter. ItemIndex: = pisač. PrinterIndex;
koristiti za ispis bilo koje vrste dokumenta na određeni pisač
Napomena: neke vrste dokumenata nemaju aplikaciju povezanu s ispisom. Neki nemaju navedenu radnju "printto".