GetPrinter - получаване на името на порта на принтера
Помощ за използване GetPrinter. Аз наричам тази функция работи, а стойността се връща е правилна, но тя генерира нарушение Access.
Аз правя така:
процедура TForm1.Button1Click (Sender: TObject);
Var PF: PRINTER_INFO_5;
ч: Thandle;
( "EPSON EPL-5900L Advanced", з, 0) Помощ за използване GetPrinter. Аз наричам тази функция работи, а стойността се връща е правилна, но тя генерира нарушение Access.
Аз правя така:
процедура TForm1.Button1Click (Sender: TObject);
Var PF: PRINTER_INFO_5;
ч: Thandle;
х, г: DWORD;
започвам
г: = 0;
ако OpenPrinter ( "EPSON EPL-5900L Advanced", Н, 0), след това започва
ако не GetPrinter (з, 5,0,0, @ г) след това започва х: = г;
ако не GetPrinter (ч, 5, @ PF, х @ г) след това showmessage ( "itsnogood") друго
showmessage (pf.pPortName);
приключи;
на изхода от процедурата генерира грешка
Ще Ви бъда благодарен за помощта.
И все пак - моля TPrinter.GetPrinter не предлагаме - тя не се връща името на порта - сам проверява (най-D5).
Имам въпроси:
Epson Stylus COLOR 680 на LPT1.
И няма грешки
Послепис И това, което е PRINTER_INFO_5? Трябва да знаете, че отляво компоненти.
да Marser - и вие imeeno обяснителен, която ви дава ред:
Epson Stylus COLOR 680 на LPT1:
Какво? tp.printers [в] какво?
И все пак - да речем, че си прав. Така че за мен това - vytseplyat низ с името на порта на принтера поотделно? не го глупаво? Т.е. откъснете от "Printer LPT Lalala: 11,111" и след това аз трябва да пристанище името на грабеж линия?
akonshin / файлове / PrintLib.pas
Това е моето допълнение към Принтери уреда. Hack, но все още работи с гръм и трясък.
Погледнете внимателно, там е всичко, което трябва да се яде.
Една сълза и не, вижте моя код.
да Marser - или имам нещо в системата, или в Делфи не, или сте направили грешка. Просто използвам своя код и да получите само имената на принтера и пристанищата, и няма и следа.
Алекс Konshin - за мен това е името на пристанището през принтера получава дръжката. Дръжка за да получите аз мога.
да Marser - и все пак - моята пета Delphi.
Казвам ви, погледнете внимателно
PortName: = THackPrinterDevice (oPrinter.Printers.Objects [IDX]) FPort ;.
Памет: 0.74 MB
Време: 0.035 гр
Свързани статии