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]

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

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