Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.099 c