Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Печать на матричном принтере   Найти похожие ветки 

 
DmiSb   (2005-04-07 07:07) [0]

Уважаемые мастера !!! Кто-нибудь пытался это сделать их программ на КОЛ.
Есть сл. код:

uses .....WinSpool;

procedure WriteRawStringToPrinter(PrinterName:String);
var
 Handle: THandle;
 N: DWORD;
 DocInfo1: TDocInfo1;
 s: string;
 p: integer;
begin
 if not OpenPrinter(PChar(PrinterName), Handle, nil) then
 begin
   ShowMessage("error " + Int2Str(GetLastError));
   Exit;
 end;
 with DocInfo1 do begin
   pDocName := PChar("test doc");
   pOutputFile := nil;
   pDataType := "RAW";
 end;
 StartDocPrinter(Handle, 1, @DocInfo1);
 StartPagePrinter(Handle);
 
 s:=StrToOem("БЛА-БЛА");
 WritePrinter(Handle, PChar(S), Length(S), N);

 ....

 EndPagePrinter(Handle);
 EndDocPrinter(Handle);
 ClosePrinter(Handle);
end;

Ита-а-к, все прекрасно печатается, но почему-то нет ошибки, если принтер не подключен или не готов. В VCL ошибка в аналогичном коде выскакивает.
Может что подскажете.


 
thaddy   (2005-04-07 15:33) [1]

You can simply test for the printer availability with:
if Assigned(Printer) then
begin
 // printer available, is global
 // object from kolprinters or mhprinters
 // it is only assigned if a printer is actually installed
end else
 MskOk('Printer not available');



Страницы: 1 вся ветка

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
1-1131475324
тт
2005-11-08 21:42
2005.12.04
Как быстро заполнить таблицу word значениями?


2-1132341339
AuBaH
2005-11-18 22:15
2005.12.04
проблема с кнопками


14-1131954944
ZeroDivide
2005-11-14 10:55
2005.12.04
Накрылась винда. Посоветуйте, грохать или лечить?


14-1132067730
Анонимщики
2005-11-15 18:15
2005.12.04
Дебаг библиотеки


11-1113244167
Sup
2005-04-11 22:29
2005.12.04
KOLThread help