🚀 go-pugleaf

Witam
Jeżeli chcesz drukować na drukarce igłowej to musisz bespośrednio pisać na port
do którego jest dołączona np LPT1 i skorzystać z funkcji API do portów.

Marek wrote:

> Jak z Delphi (3.0) drukowac na drukarce iglowej w trybie tekstowym ?
> Probowalem uzywac :
>
> AssignPrn(f);
> writeln(f,moj_text)
>
> ale to drukuje w trybie graficznym  - literki nieproporcjonalne, drukowanie
> wolne itd itd.
>
> Ja chce wyslac zwykly strumien znakow na drukarke iglowa - tak jak to sie
> robilo w DOSie. Wiem ze musi byc jest jakis sposob, czy ktos
> go zna ?
>
> Bardzo prosze  o szybka odpowiedz.
> Wdziecznosc za wsparcie dla kazdego kto zechce pomoc
> Marek.



--
Piotr Sobkiewicz
psobkiew@kr.onet.pl
ICQ nr : 14891577
http://www.aps.pirxnet.pl

Miałem podobny problem, tj. drukowanie dużej ilości tekstu na drukarkach
igłowych.

Spróbuj czegoś takiego:

Procedure druk_znak(znak : char);

var blad : integer;

const
  dr_busy = $80; {drukarka zajęta}
  dr_act  = $40; {sygnał potwierdzenia}
  dr_pap  = $20; {brak papieru}
  dr_onof = $10; {stan drukarki 1-online 0-offline}
  dr_err  = $08; {inny błąd np drukarka wyłączona}
  dr_time = $01; {przekroczenie czasu oczekiwania}

begin
                  asm
                      mov ah,$00
                      mov al,znak
                      mov dx,$00
                      int $17
                      mov blad,ah
                  end;
end;

     {tu ewentualna obsługa błędów zwracanych w zmiennej blad
      poszczególne bity opisane w sekcji stałych}

end;

------------------------------------------------------
Tomasz Warchulski
idiom@polbox.com
http://warchulski.home.ml.org/
ICQ UIN 933136
------------------------------------------------------


begin 666 Tomasz Warchulski.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..E=A<F-H=6QS:VD[5&]M87-Z
M#0I&3CI4;VUA<WH@5V%R8VAU;'-K:0T*5$5,.T-%3$P[5D])0T4Z,"TV,#$M
M-38M,S M-3D-"D%$4CM(3TU%.CL[.U=R;V.S87<-"DQ!0D5,.TA/344Z5W)O
M8[-A=PT*55),.FAT=' Z+R]W87)C:'5L<VMI+FAO;64N;6PN;W)G+PT*14U!
M24P[4%)%1CM)3E1%4DY%5#II9&EO;4!P;VQB;W@N8V]M#0I%34%)3#M)3E1%
M4DY%5#II9&EO;4!F<FEK;S,N;VYE="YP; T*4D56.C$Y.3@P.3(U5# W,3(U
/-EH-"D5.1#I60T%21 T*
`
end

PIOTR_S napisał(a) w wiadomości: <360B3415.386E96EF@kr.onet.pl>...
>Witam
>Jeżeli chcesz drukować na drukarce igłowej to musisz bespośrednio pisać na
port
>do którego jest dołączona np LPT1 i skorzystać z funkcji API do portów.


Zgadzam sie ze z funcji API ale nie do portow

ale kurcze - wczoraj wyjasnialem na liscie ze jest
funkcja api Escape
w niej ustawiasz parametr PastThrought //lub jakos tak
i wszystko co wyslesz jest wysylane bezosrednio na drukarke

jedynie klopot pojawia sie z wysuwaniem strony, jesli nie chcesz
aby strona sama sie wysuwala - to masz duzy problem
kiedys spotkalem sie z tym problemem
jak masz konkretne pytania to na priva



begin 666 Piotr Such.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..E-U8V@[4&EO='(-"D9..E!I
M;W1R(%-U8V@-"D5-04E,.U!2148[24Y415).150Z<&EO=') 87!R<WES=&5M
J+F-O;2YP; T*4D56.C$Y.3@P.3(U5# W,C S,5H-"D5.1#I60T%21 T*
`
end

Na Delphi FAQ
wg mnie jest tam drobny blad
jak Ci sie nioe uda to pisz

szulcm@friko3.onet.pl
htt[://friko3.onet.pl/by/szulcm

Marek napisał(a) w wiadomości: <360a511c.0@news.myna.com>...
>Jak z Delphi (3.0) drukowac na drukarce iglowej w trybie tekstowym ?
>Probowalem uzywac :
>
>AssignPrn(f);
>writeln(f,moj_text)
>
[...]

>Marek.
>

Tez mialem ten problem i poradzilem sobie tak:
---------------------------------------
const  nazwa_portu_drukarki: string = 'LPT1'; {moze byc tez np.
'\\mnietek\epson'}
...
var    f:textfile;
...

assignfile(f,nazwa_portu_drukarki);
rewrite(f);

...
writeln(f,moj_tekst);

...
system.closefile(f);
-------------------------------------------------------------------

Powodzenia!
--------------------------------------------------------------------
Zbigniew Lukaszewicz
z.lukaszewicz@torun.tpsa.pl
--------------------------------------------------------------------

"Marek" <tradition@myna.com> wrote:

>Jak z Delphi (3.0) drukowac na drukarce iglowej w trybie tekstowym ?
>Probowalem uzywac :

>AssignPrn(f);
>writeln(f,moj_text)

>ale to drukuje w trybie graficznym  - literki nieproporcjonalne, drukowanie
>wolne itd itd.

>Ja chce wyslac zwykly strumien znakow na drukarke iglowa - tak jak to sie
>robilo w DOSie. Wiem ze musi byc jest jakis sposob, czy ktos
>go zna ?

Mozna rozne cuda - np. do pliku o nazwie LPT1 lub PRN lub
\\szef\jego_cudowna_drukarka. Mozna takze przez Escape z parametrem
PASSTHROUGH.

Ale najprosciej zrobic wlasnie przez AssignPrn, a w Windowsie
zainstalowac sobie do drukarki sterownik Typowa/Tylko tekst (to w
Win95) lub Generic/Text only (to w Win3.x - takze polskim). I juz -
ten sterownik nigdy nie wydrukuje graficznie. Zreszta najlepiej sobie
samemu poeksperymentowac. Sterownik dziala wysmienicie na
atramentowkach (przynajmniej na Epsonach i HP). Czy na laserwokach to
niestety nie wiem.


--
-=# Cait Sith #=-

I. Nie bedziesz cytowal listow calych.
II. Nie bedziesz odpowiadal przed cytatem.
III. Nie bedziesz pisal w HTMLu.

In article Marek (tradition@myna.com) says...
> Jak z Delphi (3.0) drukowac na drukarce iglowej w trybie tekstowym ?
> Probowalem uzywac :
> 
> AssignPrn(f);
> writeln(f,moj_text)
> 
> ale to drukuje w trybie graficznym  - literki nieproporcjonalne, drukowanie
> wolne itd itd.
> 
> Ja chce wyslac zwykly strumien znakow na drukarke iglowa - tak jak to sie
> robilo w DOSie. Wiem ze musi byc jest jakis sposob, czy ktos
> go zna ?

A nie mozna wyslac znakow na par: ?

-- 
 //|/||  .             "The Winner Takes It All"
//||/|| / /^ () ()     
To reply remove ".gov" from my e-mail address.

Małą uwaga!!
Podczas wydruku tekstowego pisanie bezpośrednio do portu pod Windows NT jest
.. hm, bardzo problematyczne. Stąd uogólniając Wasz problem proponuję to co
sam zaimplementowałem.
- jako aktywne sterownik drukarki tzw. sterownik tylko tekst (nie pamiętam
dokładnie nazwy),
- przedefiniowanie w nim swoich "ogonków" w pliku TTY,
- standardowy wydruk pod Windows.

Stąd drukujesz "standardowo", a sterownik dba o resztę. Pragnę nadmienić, że
zaimplementowałem to w praktyce, i na podstawie tego są drukowane setki
kopert.

Czesc ..

Paweł Małek napisał(a) w wiadomości: ...

>- jako aktywne sterownik drukarki tzw. sterownik tylko tekst (nie pamiętam
>dokładnie nazwy),
>- przedefiniowanie w nim swoich "ogonków" w pliku TTY,
>- standardowy wydruk pod Windows.
>
hm ciekawe, zeczywiscie nie wymaga duzych nakladow
jedynie mam pytanko jak przedefiniowac plik TTY

wielkie dzieki za kilka wyjasnien
na razie


begin 666 Piotr Such.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..E-U8V@[4&EO='(-"D9..E!I
M;W1R(%-U8V@-"D5-04E,.U!2148[24Y415).150Z<&EO=') 87!R<WES=&5M
J+F-O;2YP; T*4D56.C$Y.3@P.3(Y5#(P,S@S,5H-"D5.1#I60T%21 T*
`
end

Windows zrobi to za Ciebie. Po zainstalowaniu sterownika o którym piszę,
zobacz w jego właściwości, gdzieś powinna zakładka umożliwiająca
redefinicję strony kodowej 1250 na przez Ciebie wybraną.

Powodzenia



>hm ciekawe, zeczywiscie nie wymaga duzych nakladow
>jedynie mam pytanko jak przedefiniowac plik TTY
>
>wielkie dzieki za kilka wyjasnien
>na razie
>

Zbigniew Lukaszewicz wrote:

> Marek napisał(a) w wiadomości: <360a511c.0@news.myna.com>...
> >Jak z Delphi (3.0) drukowac na drukarce iglowej w trybie tekstowym ?
> >Probowalem uzywac :
> >
> >AssignPrn(f);
> >writeln(f,moj_text)
> >
> [...]
>
> >Marek.
> >
>
> Tez mialem ten problem i poradzilem sobie tak:
> ---------------------------------------
> const  nazwa_portu_drukarki: string = 'LPT1'; {moze byc tez np.
> '\\mnietek\epson'}
> ...
> var    f:textfile;
> ...
>
> assignfile(f,nazwa_portu_drukarki);
> rewrite(f);
>
> ...
> writeln(f,moj_tekst);
>
> ...
> system.closefile(f);
> -------------------------------------------------------------------
>
> Powodzenia!
> --------------------------------------------------------------------
> Zbigniew Lukaszewicz
> z.lukaszewicz@torun.tpsa.pl
> --------------------------------------------------------------------

Tak. Ja też tak robiłem - łatwo prosto i wygodnie. Polecam.
Lehó.

>Windows zrobi to za Ciebie. Po zainstalowaniu sterownika o którym piszę,
>zobacz w jego właściwości, gdzieś powinna zakładka umożliwiająca
>redefinicję strony kodowej 1250 na przez Ciebie wybraną.
dzieki
juz sprawdzam
na razie


begin 666 Piotr Such.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..E-U8V@[4&EO='(-"D9..E!I
M;W1R(%-U8V@-"D5-04E,.U!2148[24Y415).150Z<&EO=') 87!R<WES=&5M
J+F-O;2YP; T*4D56.C$Y.3@P.3,P5#(Q,#0T-5H-"D5.1#I60T%21 T*
`
end

W dniu wtorek, 29 września 1998 09:00:00 UTC+2 użytkownik Paweł Małek napisał:
> Małą uwaga!!
> Podczas wydruku tekstowego pisanie bezpośrednio do portu pod Windows NT jest
> .. hm, bardzo problematyczne. Stąd uogólniając Wasz problem proponuję to co
> sam zaimplementowałem.
> - jako aktywne sterownik drukarki tzw. sterownik tylko tekst (nie pamiętam
> dokładnie nazwy),
> - przedefiniowanie w nim swoich "ogonków" w pliku TTY,
> - standardowy wydruk pod Windows.
> 
> Stąd drukujesz "standardowo", a sterownik dba o resztę. Pragnę nadmienić, że
> zaimplementowałem to w praktyce, i na podstawie tego są drukowane setki
> kopert.
> 
> Czesc ..

Co rozumiesz przez drukowanie 'standardowe'?

Pzdr
JS

On 2016-06-25 16:48, stachu22583@gmail.com wrote:
> W dniu wtorek, 29 września 1998 09:00:00 UTC+2 użytkownik Paweł Małek napisał:
>> Małą uwaga!!
>> Podczas wydruku tekstowego pisanie bezpośrednio do portu pod Windows NT jest
>> .. hm, bardzo problematyczne. Stąd uogólniając Wasz problem proponuję to co
>> sam zaimplementowałem.
>> - jako aktywne sterownik drukarki tzw. sterownik tylko tekst (nie pamiętam
>> dokładnie nazwy),
>> - przedefiniowanie w nim swoich "ogonków" w pliku TTY,
>> - standardowy wydruk pod Windows.
>>
>> Stąd drukujesz "standardowo", a sterownik dba o resztę. Pragnę nadmienić, że
>> zaimplementowałem to w praktyce, i na podstawie tego są drukowane setki
>> kopert.
>>
>> Czesc ..
>
> Co rozumiesz przez drukowanie 'standardowe'?
>
> Pzdr
> JS
>

Odpowiedź po 18 latach ?? Dobrze widze ??

W dniu 2016-06-25 o 18:49, Adam Koltowski pisze:
> On 2016-06-25 16:48, stachu22583@gmail.com wrote:
>> W dniu wtorek, 29 września 1998 09:00:00 UTC+2 użytkownik Paweł Małek
>> napisał:
>>> Małą uwaga!!
>>> Podczas wydruku tekstowego pisanie bezpośrednio do portu pod Windows
>>> NT jest
>>> .. hm, bardzo problematyczne. Stąd uogólniając Wasz problem proponuję
>>> to co
>>> sam zaimplementowałem.
>>> - jako aktywne sterownik drukarki tzw. sterownik tylko tekst (nie
>>> pamiętam
>>> dokładnie nazwy),
>>> - przedefiniowanie w nim swoich "ogonków" w pliku TTY,
>>> - standardowy wydruk pod Windows.
>>>
>>> Stąd drukujesz "standardowo", a sterownik dba o resztę. Pragnę
>>> nadmienić, że
>>> zaimplementowałem to w praktyce, i na podstawie tego są drukowane setki
>>> kopert.
>>>
>>> Czesc ..
>>
>> Co rozumiesz przez drukowanie 'standardowe'?
>>
>> Pzdr
>> JS
>>
>
> Odpowiedź po 18 latach ?? Dobrze widze ??
>
>

Takiego "hibernatusa" na grupach można spotkać co kilka tygodni, jeśli 
nie częściej. Chyba to są radosne "dzieci Neostrady", albo nawet już 
następne, "macane" pokolenie ;)

Ad rem:
W starszych wersjach Windows (oraz niektórych innych OS-ów) można było 
drukować wprost do portu, czyli niejako kierując strumień danych wprost 
do portu (LPTx, COMx). Odpowiednik DOS-owy:
COPY plik.txt LPT1
lub TYPE plik.txt LPT1

Natomiast "standatdowo" to korzystanie z windowsowego spoolera, czyli 
kierowanie strumienia nie na port, tylko na windowsową drukarkę.


-- 
Pozdrawiam.

Adam

> Odpowiedź po 18 latach ?? Dobrze widze ??

Zastanawiał się, jak to ująć...


-- 
Pozdrawiam,
Stregor

> 
> Odpowiedź po 18 latach ?? Dobrze widze ??

ale to dobrze świadczy o grupach, fora tyle nie wytrzymują.

W dniu 2016-07-01 o 12:41, arturs pisze:
>
>>
>> Odpowiedź po 18 latach ?? Dobrze widze ??
>
> ale to dobrze świadczy o grupach, fora tyle nie wytrzymują.
>


Zabawa w archeologię :)


Z pozdrowieniami

Jacek K.