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

Вниз

Printers - из VCL в KOL   Найти похожие ветки 

 
ssk   (2004-03-04 14:53) [0]

Привет!
Помогите перевести кусок кода из VCL в KOL, пожалуйста. Пытаюсь воспользоваться модулем KOLMHPrinters, но вот ничего не получается.


uses KOLMHPrinters;

function SpoolFile(const FileName, PrinterName: string): Integer;
var
 Buffer: record
   JobInfo: record
     Path: PChar;
     JobID: DWORD;
   end;
   PathBuffer: array[0..255] of Char;
 end;
 SizeNeeded: DWORD;
 Handle: THandle;
 PrtName: string;
 ok: Boolean;
begin
 PrtName := PrinterName;
 if PrtName = "" then
   PrtName := Printer.Printers[Printer.PrinterIndex]; // ошибка
 ok := False;
 if OpenPrinter(PChar(PrtName), Handle, nil) then // ошибка
   if AddJob(Handle, 1, @Buffer, SizeOf(Buffer), SizeNeeded) then  // ошибка
     if CopyFile(PChar(FileName), Buffer.JobInfo.Path, True) then
       if ScheduleJob(Handle, Buffer.JobInfo.JobID) then // ошибка
         ok := True;
 if not ok then Result := GetLastError
 else
   Result := 0;
end;


Спасибо.


 
savva ©   (2004-03-04 14:56) [1]

что нибудь типа Printer.Printers.Items[Printer.PrinterIndex];


 
ssk   (2004-03-04 15:01) [2]

не заработало


 
savva ©   (2004-03-04 15:11) [3]

что говорит?


 
ssk   (2004-03-04 15:12) [4]

[Error] main.pas(84): Record, object or class type required


 
ssk   (2004-03-10 10:32) [5]

неужели никто не поможет?


 
Yury Sidorov   (2004-03-10 11:43) [6]

А слабо в исходники MHPrinters залезть?

PrtName := Printer.Printers[Printer.PrinterIndex].Str;


 
ssk   (2004-03-10 16:19) [7]

>Yury Sidorov

Спасибо.
А как же с остальными ошибками быть? Если бы все было так просто и понятно, то не спрашивал бы...


 
Yury Sidorov   (2004-03-10 17:41) [8]

Блин, а как насчет uses WinSpool ?


 
ssk   (2004-03-11 17:43) [9]

спасибо еще раз. все получилось.



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

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

Наверх




Память: 0.48 MB
Время: 0.038 c
4-1089021102
Storm
2004-07-05 13:51
2004.08.15
завершение процесса


1-1090987927
R
2004-07-28 08:12
2004.08.15
Маска папки


1-1090995205
Ven
2004-07-28 10:13
2004.08.15
CharToOem


1-1091092138
Dmirty
2004-07-29 13:08
2004.08.15
Изменение ширины кнопок вместе с шириной строк в StringGrid-е


3-1090393187
Wolfram
2004-07-21 10:59
2004.08.15
Переменные в fastreport