Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2007, 13:25   #1
Devil_uu
Новичок
Джуниор
 
Регистрация: 23.03.2007
Сообщений: 1
По умолчанию Копирование файлов

Как с помощью Delphi скопировать любые файлы из одной папки в другую?
Devil_uu вне форума Ответить с цитированием
Старый 24.03.2007, 10:55   #2
san4es
 
Регистрация: 12.12.2006
Сообщений: 4
Радость Процедура копирования:

procedure CopyFileWithProgressBar1(Source, Destination: string);
var
FromF, ToF: file of byte;
Buffer: array[0..4096] of char;
NumRead: integer;
FileLength: longint;
begin
AssignFile(FromF, Source);
reset(FromF);
AssignFile(ToF, Destination);
rewrite(ToF);
FileLength := FileSize(FromF);
with Progressbar1 do
begin

Min := 0;
Max := FileLength;
while FileLength > 0 do
begin
Application.ProcessMessages;
BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
FileLength := FileLength - NumRead;
BlockWrite(ToF, Buffer[0], NumRead);
Position := Position + NumRead;
Sleep(100);
end;
CloseFile(FromF);
CloseFile(ToF);
end;
end;
Данная процедура копирует файл, указанный параметром Source в Destination. При этом процесс отображается компонентом ProgressBar.
Пример использования:
CopyFileWithProgressBar1(ExpandFile Name('Cntr.dll'),'C:\WINDOWS\system 32\Cntr.dll');
ЭТО РАБОТАЕТ!!!
san4es вне форума Ответить с цитированием
Старый 24.03.2007, 20:27   #3
Prowler
Форумчанин
 
Регистрация: 30.11.2006
Сообщений: 128
По умолчанию

Вообще процедура CopyFile... но есть одно НО. Она копирует файлы только в существующую директорию. То есть если её нет, нужно создать CreateDirectory(Если не ошибаюсь). Но и у этой функции есть - . Она не создаёт вложенных папок, т.е. не создаст папку 2, c:\1\2 если не существует папка 1. Т.е. надо парсировать строку выделять папки и создавать по-одной!
nosce te ipsumj...
Prowler вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование файлов Artificial Помощь студентам 5 05.06.2008 18:42
Копирование файлов на FTP Dj_smart Общие вопросы Delphi 2 05.03.2008 09:04
Копирование файлов matus Помощь студентам 9 27.02.2008 19:34
копирование файлов matus Общие вопросы Delphi 2 07.11.2007 21:57