| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Printers - из VCL в KOL
ssk © (2004-03-04 14:53:00)Привет!
Помогите перевести кусок кода из 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;
Спасибо.
ssk (2004-03-11 17:43:00) [1]спасибо еще раз. все получилось.
Yury Sidorov (2004-03-10 17:41:00) [2]Блин, а как насчет
uses WinSpool?
ssk (2004-03-10 16:19:00) [3]>Yury Sidorov
Спасибо.
А как же с остальными ошибками быть? Если бы все было так просто и понятно, то не спрашивал бы...
Yury Sidorov (2004-03-10 11:43:00) [4]А слабо в исходники MHPrinters залезть?
PrtName := Printer.Printers[Printer.PrinterIndex].Str;
ssk (2004-03-10 10:32:00) [5]неужели никто не поможет?
ssk (2004-03-04 15:12:00) [6][Error] main.pas(84): Record, object or class type required
savva (2004-03-04 15:11:00) [7]что говорит?
ssk (2004-03-04 15:01:00) [8]не заработало
savva (2004-03-04 14:56:00) [9]что нибудь типа Printer.Printers.Items[Printer.PrinterIndex];
| |
