Интерфейс

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

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

Данная 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

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