Интерфейс

Библиотека для копирования файлов.

Продолжаем цикл "Подружим Фокс и Дельфи".

Данная DLL предназначена для копирования файлов. Ничем не отличается от
COPY FILE, кроме наличия прогресс баров и комментариев.

Первый прогресс бар без текста внутри. Похож на тот, который возникает при поиске
нового оборудования в Windows.
Второй с процентами и плавной бегущей полосой.

ГЛЮКИ:
При больших размерах файла при повторном копировании бывает так, что
функция отработала, а файл на свое место еще не лег. Это связано с файловым
кэшем самой WINDOWS и как победить это я не нашел.

При копировании на дискету тоже самое. Причина та же.

 ********************************************************************************   
 * Параметры : *   
 * 1. Строка с указанием полного имени исходного файла *   
 * 2. Строка с указанием полного имени файла назначения *   
 * 3. Заголовок окна *   
 * 4. Строка над прогресс баром. *   
 * 5. Тип прогресс бара *   
 * (их всего 2 если указано число не 1 и не 2 то будет использован 1) *   
 * *   
 * Возврат: *   
 * 1 - если ошибка *   
 * 0 - если ошибок нет *   
 * *   
 ********************************************************************************  
    
 ********************************************************************************   
 * Собственно вызов. *   
 ********************************************************************************   
  FileNameWhence = "c:MyFileWhence.xxx"   
  FileNameWhere = "a:MyFileWhere.xxx"   
  cCaption = 'Копируется файл 1 из 1'   
  cText = FileNameWhence + ' -> ' + FileNameWhere  
    
  DECLARE INTEGER CopyFileProgress IN CopyFile.DLL STRING, STRING, STRING, STRING, INTEGER  
    
  IF CopyFileProgress(FileNameWhence,FileNameWhere,cCaption,cText,2) = 1   
  MESSAGEBOX ('Файл не скопирован',0+16,'Ошибка')   
  ENDIF  
    
  CLEAR DLLS   
 ********************************************************************************  

Эта DLL написана на DELPHI 6.0 с использованием стандартных средств и
библиотек RX.

Это мое 3-е решение. Так получилось, что предыдущие 2 оказались
изобретением велосипеда. Если и это окажется тем же, прошу не критиковать.
Согласен, что если как следует поискать, то всегда можно найти что то лучшее.
Кто хочет ищите, кому нравится - пользуйтесь.

С уважением ко всем лисятникам Гончаров Н.А.
mailto:1Kolka@rambler.ru

Автор публикации

не в сети 22 года

1Kolka

Комментарии: 0Публикации: 3Регистрация: 10-01-2002