Работа с принтер?
8 отговора
295 прегледа
Работа с принтер?
Искам да изпе4атам прост текстов файл на принтер.Хрумна ми да направя диалогово приложение и с DOS(lpt1) да го изпринтвам.Немога да разбера как от Windows приложение да ползвам по такъв начин DOS(lpt1)?
Re: Работа с принтер?
konfiguriras si printer da ti e na lpt1 primerno
i prais
copy <faila s prn codeto> lpt1
i prais
copy <faila s prn codeto> lpt1
Re: Работа с принтер?
По подробно:
- В ДОС има функция ли , прекъсване ли дето изпълнява ДОС команда и се нарича ехес.И така как да се добера до този или друг(еквивалентен) ехес?
- Ако на ръка ще пи6а ДОС команди , за6то на пи6а ВТЛ диалогово приложение?!?!!!!????
- В ДОС има функция ли , прекъсване ли дето изпълнява ДОС команда и се нарича ехес.И така как да се добера до този или друг(еквивалентен) ехес?
- Ако на ръка ще пи6а ДОС команди , за6то на пи6а ВТЛ диалогово приложение?!?!!!!????
Re: Работа с принтер?
mi toj exec-a raboti i pod win
ima i oste edna kup4ina ekvivalentni na exec funkcii
v tvoq slu4aj mozes da probas taka
system("copy boza.prn lpt1");
da ne govorim 4e ima i dale4 po elegantni na4ini da se pe4ata pod win
ne znam kak stava, ama za tva si ima msdn da porovi 4ovek
(to za twa si ima i forumi, moze nqkoi da se izlaze da otgowori, ama to4no toq ne e naj dobriq. probaj tuka [линк] i pitaj naprawo kak se pe4ata pod win)
ima i oste edna kup4ina ekvivalentni na exec funkcii
v tvoq slu4aj mozes da probas taka
system("copy boza.prn lpt1");
da ne govorim 4e ima i dale4 po elegantni na4ini da se pe4ata pod win
ne znam kak stava, ama za tva si ima msdn da porovi 4ovek
(to za twa si ima i forumi, moze nqkoi da se izlaze da otgowori, ama to4no toq ne e naj dobriq. probaj tuka [линк] i pitaj naprawo kak se pe4ata pod win)
Re: Ползвам MS Visual C++ 6.0
и на какъв език ще завърша предварително незнам.Но по често файловете ми завършват на .c и по-нечесто на .cpp.
...
Еее, значи по-скоро няма да мога да ти помогна. Ще се опитам само да ти покажа под ДОС командите как ще са...
C:\> copy file.ext prn
C:\> copy file.ext lpt1
C:\> type file.ext > prn
за по-подробна информация, можеш да COPY /? и TYPE /?
-----------
През Бейсик бих решил проблема като просто отворя хардуерния LPT1 за запис, като разбира се, се съобразя с буфера.
Dim intCount As Integer, strText As String
Open "LPT1" For Output As #1
Open "File.Ext" For Binary As #2
..strText = Space$(8192)
..For intCount = 1 To Int(LOF(2) / 8192)
....Get #2, , strText
....Print #1, strText
..Next intCount
..strText = Space$(LOF(2) Mod 8192)
..Get #2, , strText
..Print #1, strText
Close
В момента нямам къде да го пробвам, пиша на сухо, но принципно това работи.
C:\> copy file.ext prn
C:\> copy file.ext lpt1
C:\> type file.ext > prn
за по-подробна информация, можеш да COPY /? и TYPE /?
-----------
През Бейсик бих решил проблема като просто отворя хардуерния LPT1 за запис, като разбира се, се съобразя с буфера.
Dim intCount As Integer, strText As String
Open "LPT1" For Output As #1
Open "File.Ext" For Binary As #2
..strText = Space$(8192)
..For intCount = 1 To Int(LOF(2) / 8192)
....Get #2, , strText
....Print #1, strText
..Next intCount
..strText = Space$(LOF(2) Mod 8192)
..Get #2, , strText
..Print #1, strText
Close
В момента нямам къде да го пробвам, пиша на сухо, но принципно това работи.
Редактирано от Mr_lbkis на
Re: Работа с принтер?
На какъвто и език да пишеш важно е да излееш файла си на LPT(1/2) вж.KpyM (Нерегистриран) 31.01.03 21:47
Ще ти обърна внимание, че е възможно да се наложи да прекодираш кирилицата

Ще ти обърна внимание, че е възможно да се наложи да прекодираш кирилицата
Re: Работа с принтер?
pi6i edin mail, ako ne si re6il problema, 4e w momenta ne sa mi pod raka source.
Rabotata stava izcyalo pod win
sto1@mail.bg
Rabotata stava izcyalo pod win
sto1@mail.bg