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

Вниз

Обращение к принтеру   Найти похожие ветки 

 
SkySlider   (2003-12-22 13:14) [0]

Для опроса к-ва документов в спулере использую такой кусочек:

procedure TtrPrnThread.GetInSpoolCount;
var
pJob : Array of _JOB_INFO_1A;
pcbNeeded, pcbNeeded2, pcReturned : Cardinal;
begin
pcbNeeded := 0;
pcbNeeded2 := 0;
pcReturned := 0;

pJob := nil;
if true <> EnumJobs(phPrinter, 0, 10, 1, pJob, 0, pcbNeeded, pcReturned) then
begin
ReallocMem(pJob,pcbNeeded);
if EnumJobs(phPrinter, 0, 10, 1, pJob, pcbNeeded, pcbNeeded2, pcReturned) then
begin
end;
FreeMem(pJob, pcbNeeded);
end;

iInSpoolCount := pcReturned;
pcbNeeded := 0;
pcbNeeded2 := 0;
pcReturned := 0;
end;


При повторном запуске потока на GetInSpoolCount


...
GetInSpoolCount; <-- туточки
while (5 <= iInSpoolCount) and (not Terminated) do
begin
sPrintStatus := "Waiting for printer";
Synchronize(UpdateStatus);
Sleep(250);
GetInSpoolCount;
end;
...


вываливается сообщение: "Invalid pointer operation".
Если опрашивать принтер в основном потоке, делфи сидит тихо.
Но мне надо в отдельном (чтоб программа не "замерзала").
В чем проблема?


 
SkySlider   (2003-12-22 16:46) [1]

Изменил


pJob : Array of _JOB_INFO_1A;


на


pJob : ^_JOB_INFO_1A;


пока работает :)



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

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

Наверх




Память: 0.46 MB
Время: 0.025 c
3-43339
OlegM
2004-02-17 07:46
2004.03.14
Синхронизация баз


14-43894
RealRascal
2004-02-16 06:22
2004.03.14
Идеи...


11-43415
Dimaxx
2003-06-24 00:52
2004.03.14
Как создать иконку в 24-битном цвете?


6-43741
Филипп
2004-01-08 12:13
2004.03.14
Скачивание файлов - Delphi6


14-43822
Кен
2004-02-22 05:00
2004.03.14
Как, в чём хранить связи между данными ? Ведь количество связей