Получить новые jpg в папке и их распечатать

[treverz]

Такая задача:
Отдельный уже готовый php скрипт каждые 10 секунд сохраняет с сервера в папку нужные jpg картинки (сохраняются с уникальным именем), обычно 0-4 файла за раз, их сразу нужно распечатать.

Помогите написать программу на delphi, которая могла бы проверять папку по таймеру на новые jpg файлы по имени и вызывала функцию печати. Собственных знаний не хватает((
За готовый вариант готов отблагодарить небольшой суммой на мобильный телефон!


Функция проверки доступности и распечатки (гугл помог):

uses
  ExtCtrls, Jpeg, Printers;
 
function TForm1.ProcFile(const aFileName : String) : Boolean;
const
  Wait = 1000; //Время ожидания освобождения файла, в миллисекундах.
var
  Img : TImage;
  HFile : Integer;
  t : Int64;
begin
  Result := False;
  //Если файл не существует, то выходим.
  if not FileExists(aFileName) then
    Exit;
  //Если файл занят, то ожидаем, когда он будет освобождён. Ожидаем не более Wait миллисекунд.
  t := GetTickCount + Wait; //Момент времени, до которого будем ждать освобождения файла.
  HFile := -1;
  while (HFile = -1) and (GetTickCount < t) do
  begin
    HFile := FileOpen(aFileName, fmOpenRead or fmShareDenyWrite); //Попытка открыть файл.
    Application.ProcessMessages; //Обработка очереди сообщений приложения.
  end;
  //Если время ожидания истекло, а файл не освобождён, то считаем, что обработка не удалась.
  if HFile = -1 then
    Exit
  else
    FileClose(HFile); //Закрываем файл.
 
  //Обработка файла.
  Img := TImage.Create(nil);
  try
    try
      //Загружаем изображение в экземпляр TImage.
      Img.Picture.LoadFromFile(aFileName);
      //Попытка отправить изображение на печатающее устройство.
      Printer.BeginDoc;
      Printer.Canvas.CopyRect(Rect(20, 20, 19 + Img.Height, 19 + Img.Width),
        Img.Canvas, Rect(0, 0, Img.Height, Img.Width));
      Printer.EndDoc;
      Result := True;
    finally
      FreeAndNil(Img);
    end;
  except
  end;
end;

[Iron Monk]

http://delphiworld.narod.ru/base/rea...changes_w.html

[treverz]

Сообщение от Iron Monk

http://delphiworld.narod.ru/base/rea...changes_w.html

знаний не хватает реализовать, поможете?(

[Iron Monk]

Сообщение от treverz

знаний не хватает реализовать, поможете?(

Забирайте.
Переделать под свои нужды, надеюсь, сможете.

Исходник взят на http://delphiworld.narod.ru.
Автор: FliNT

[Человек_Борща]

знаний не хватает реализовать, поможете?(

Их не прибавится и после получения исходника )

[treverz]

Спасибо, с задачей справились!

[Iron Monk]

Сообщение от treverz

Спасибо, с задачей справились!

Мы или Вы?))) Если Вы - молодцы!