Autor: Grzegorz Szyszlo (znik_at_wbc.lublin.pl)
Data: Thu 10 Jul 2003 - 13:21:20 MET DST
Grzegorz Szyszlo wrote:
> > >> Bo stadndardowy sterowników portów równoległych obsługuje je tylko w trybie tradycyjnym.
> > >> Poszukaj sobie coś takiego PAR1284
> > >
> > >dzieki :) bede modzil.
> >
> > Dokładnie plik nazywa się BIDI.EXE
>
> gdzie tego pliku szukac? najlepiej od razu podaj URL lub podeslij :)
> bylbym dzwieczny.
dzieki :) to dziala :)) btw. popelnilem prosty skrypcik,
ktory upycha binarny plik wydruku na drukarke i przy okazji
liczy procenty. jest przydatny w trybie pooling (nie irq),
i przy wylaczonym spoolerze. skrypcik stara sie oszczedzac procka.
okazalo sie ze drukarka zdrowo buforuje. najpierw wydruk leci szybko,
a potem sie przycina.
oto skrypt:
file: wydruk.cmd
/* (C) 2003 Grzegorz Szyszlo */
/* Zezwalam na calkowicie swobodne wykorzystanie niniejszego skryptu */
/* bez wnoszenia jakichkolwiek oplat. Nie biore zadnej odpowiedzialnosci
*/
/* za jakiekolwiek efekty dzialania tego skryptu */
/* a co :) skoro IBM i Microsoft takie rzeczy pisze w licencjach to ja
nie moge? */
call rxfuncadd 'syssleep','rexxutil','syssleep'
parse arg plikwe plikwy
if plikwe='' then do
say 'nalezy podac nazwe pliku wejsciowego!!'
say 'skladnia: wydruk plik-do-wydruku opcjonalnie urzadzenie
wydruku'
say 'urzadzeniem wydruku domyslnie jest lpt1'
exit
end
plikwy=strip(plikwy)
if plikwy='' then plikwy='lpt1'
paczka=4096
max=stream(plikwe,'c','query size')
call stream plikwe,'c','open read'
call stream plikwy,'c','open'
/* call stream plikwy,'c','seek =0' */
razem=0
call time 'r'
do forever
dane=charin(plikwe,,paczka)
ile=length(dane)
razem=razem+ile
call charout ,d2c(13)''format(razem/max*100,3,2)'%
'd2c(8)''d2c(8)''d2c(8)
if ile=0 then leave
call charout plikwy,dane
t=time('r')
if t>0.05 then do
if t<0.1 then t=1
else t=2+trunc(t*5)
if t>9 then t=9
call charout ,' s't
call syssleep t
call time 'r'
end
end
say
call stream plikwe,'c','close'
call stream plikwy,'c','close'
file: EOF
-- /===================================\ oOOo (C) Publikacja tego | http://avalon.wbc.lublin.pl/~znik/ \===\__/==\ artykulu wymaga | Grzegorz Szyszlo mailto:znik_at_wbc.lublin.pl | rzetelnosci \==============================================/ dziennikarskiej.
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:43:28 MET DST