Главная страница
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.019 c
3-43312
KrasavAl
2004-02-12 12:24
2004.03.14
Как в удобном виде для клиента связать с сетевым MS SQL Server ом


3-43285
Andrew Frol
2004-02-12 15:29
2004.03.14
PageFooter в QuickReport e 3.0


3-43268
Andrew2004
2004-02-12 07:33
2004.03.14
Каскадное удаление в Delphi, Interbase


1-43679
3asys
2004-03-01 18:00
2004.03.14
Реализация Object TreeView


1-43671
Grinder
2004-03-01 20:10
2004.03.14
Как сделать форму на панели задачь?