Jak wysłac plik textowy bezpośrednio na LPT z pominięciem sterownika drukarki ???
JmP
0
0
Nie wiem czy jest to dobry pomysł, bo chyba różne drukarki moga mieć różny sposób komunikowania się z kompem. Inaczej nie byłyby potrzebne sterowniki. Tak mi się przynajmniej wydaje :)
--
Delphi 6
Pozdrówka
0
Opiszę Ci temat trochę szerzej. Nie mam takiej zwyczajnej drukarki, mam drukarkę kodów kreskowych. W tej drukarce drukowanie polega na wysłaniu odpowiednich kodów sterujących i textów w jednym stringu np:
^Q20,3
^W46
^H5
^S4
BQ,16,16,2,5,100,0,1,To jest text
Zrobiłem taki patent, że ustawiłem drukarkę systemową Generic/Text only (win xp). Powinna to być drukarka drukująca tylko text. Cały problem tkwi w Delphi, ponieważ jak robię wszystko zgodnie ze sztuką tzn:
var
text: string;
begin
text:='^Q20,3'#13#10+
'^W46'#13#10+
'^H5'#13#10+
'^S4'#13#10+
'BQ,16,16,2,5,100,0,1,To jest text';
Printer.BeginDoc;
Printer.Canvas.TextOut(0,0,Text);
Printer.EndDoc;
end;
to wówczas wywala mi wszystkie entery (#13#10), jak dam dla każdej linijki Printer.Canvas.TextOut(0,0,Text), to wywala mi #10, poza tym na początku stringa wprowadza chyba 08. Wiem to stąd, że w sterowniku ustawiłem sobie wydruk do pliku i obejrzałem ten plik.
Dlatego chcĘ wysłać stringa bezpośrednio na LPT !!! ufff.
Czekam na pomoc
JMP
0
Znalazałem !!!
Jak by kogoś to interesowało, to źródła znajdują się tu:
http://delphi.cartall.com.pl/frames.htm
FAQ: "Jak drukować tekstowo w Delphi?"
autor "Krzysztof Świątkowski"
JmP