Автоматический запуск XMLPort без участия пользователя

[Kirill.Cheremisin]

Я, конечно, согласен, что так будет логичней, но конечное решение принимаю не я, а у клиента, как говорится, напряг с лицензией и диапазонами. Если все-таки решимся, обязательно так и сделаем)



По моему коду. Там ошибка. Я не могу удалять файл до его закрытия. Соответственно, он должен выглядеть так:

SalesSet.GET;
DirectoryInfo := DirectoryInfo.DirectoryInfo(SalesSet."Orders from Customers");
List := DirectoryInfo.GetFiles('*.XML');
enumerator := List.GetEnumerator;

WHILE enumerator.MoveNext DO
BEGIN
  FileInfo := enumerator.Current;
  XmlFile.OPEN(SalesSet."Orders from Customers" + FileInfo.Name);
  XmlFile.CREATEINSTREAM(InputStream);
  IF XMLPORT.IMPORT(XMLPORT::"Orders From Web", InputStream) THEN
  BEGIN
    FileInfo.CopyTo(SalesSet."Archive Orders from Customers" + FileInfo.Name, TRUE);
    XmlFile.CLOSE;
    FileInfo.Delete;
  END 
  ELSE
    XmlFile.CLOSE;
END;