Вниз
Скачать: CL | DM;

Как определелить конец распечатки информации?   Найти похожие ветки 

← →
SkySpeed   (2006-11-18 01:47) [0]

Как определить конец распечатки информации или же помещение файла в буфер обмена для последующей печати?

При выполнении следующих строк, после ShellExecute сразу же вызывается DeleteFile, а этого не нужно, так как необходимо дождаться конца печати...
  ShellExecute(handle,
               "print",
                PChar("C:\test.txt"),
                nil,
                nil,
                SW_SHOWNORMAL);
  SysUtils.DeleteFile("C:\test.txt");


Кто что посоветует сделать в данном случае?


← →
KilkennyCat ©   (2006-11-18 07:35) [1]

отслеживать состояние принтера, что тут еще можно сделать?


← →
DrPass ©   (2006-11-18 11:19) [2]


> а этого не нужно, так как необходимо дождаться конца печати.
> ..

Интересно, а он что, позволяет удалить файл до того, как он будет целиком загружен в спулер принтера?


← →
KilkennyCat ©   (2006-11-18 12:07) [3]

cпулер не гарантирует распечатку или файл громадный (может, поэтому TPrinter не используется)


← →
Anatoly Podgoretsky ©   (2006-11-18 12:52) [4]

> SkySpeed  (18.11.2006 1:47:00)  [0]

ShellExecuteEx


← →
Джо ©   (2006-11-18 17:27) [5]

> [4] Anatoly Podgoretsky ©   (18.11.06 12:52)
> ShellExecuteEx

Не подойдет, я уже пробовал. Он, хотя и возвращает дескриптор процесса в соответствующем поле структуры, однако с очень большими оговорками (иногда  и не возвращает), поэтому WaitForSingleObject тут не применишь. В общем случае так не решишь.


← →
RASkov   (2006-11-18 22:00) [6]

А CreateProcess можно в данном случае использовать? Ну в место ShellExecute из [0]. Но думаю, что параметр - "print" для ShellExecute....


← →
RASkov   (2006-11-18 22:20) [7]

Т.е. здесь я хотел предложить функцию ExecuteAndWait из
http://delphimaster.net/view/1-1162597852/
которую я там предложил в [5] моем посте.
ЗЫ Я ее не проверял.



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

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



Память: 0.46 MB
Время: 0.032 c
15-1166470318
Kolan
2006-12-18 22:31
2007.01.14
А как установить поддержку азиатских языков в Windows?


15-1166507586
IMHO
2006-12-19 08:53
2007.01.14
Бунт на корабле


15-1166654102
Affine
2006-12-21 01:35
2007.01.14
Помогите найти отличия ?


8-1148280272
Тфьу
2006-05-22 10:44
2007.01.14
Проблема с загрузкой JPG. Грузится неверно.


2-1166687132
Клара
2006-12-21 10:45
2007.01.14
DBChart




   Наверх