Delphi уроки - Копирование файлов в Delphi

Опубиковано: 18.09.2008 г., автор: , просмотров: 66188

Delphi уроки: Учимся копировать файлы в Delphi

Привет сегодня я покажу тебе парочку способов копирования файлов в delphi, выбирать какой из них использовать в своих программах конечно же вам. Итак, поехали

Способ номер РАЗ

Для его реализации нам понадобиться создать небольшую процедуру, поэтому после ключевого слова private пишем вот такой код:

procedure MyFileCopy(Const SourceFileName, TargetFileName: String);

Нажимаем Ctrl+Shift+C как всегда Delphi сгенерирует заготовку для нашей процедуры, посмотри что в итоге получилось у меня и допиши недостающие строчки у себя

procedure MyFileCopy(Const SourceFileName, TargetFileName: String);
var
A,F : TFileStream;
begin
A := TFileStream.Create(sourcefilename, fmOpenRead );
try
F := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
F.CopyFrom(A, A.Size ) ;
FileSetDate(F.Handle, FileGetDate(A.Handle));
finally
F.Free;
end;
finally
A.Free;
end;
end;

Копирование здесь происходит при помощи создания потока, вот пример использования данной процедуры:

Myfilecopy('D:\index.htm', 'D:\1\1.html' );

Способ номер ДВА

Для его реализации, никаких процедур создавать не нужно, и на мой взгляд этот способ самый простой:
Пример использования:

CopyFile(Pchar('D:\index.txt'), Pchar('D:\1\1.txt'), true)

На этом всё встретимся в следующих уроках! Кстати ребят, а кто нибудь из вас уже ставил себе новую убунту говорят она шустрее своей предидущей версии ?

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.

До встречи DelphiExpert.ru !!!



Похожие материалы

Последние из рубрики

таня 19 Июн 2015 в 14:58 #
безграмотный придурок
Копировщик 04 Май 2013 в 00:00 #
Автор ! Автор !
Э Э Эй Эй Автор ! Э Э ! Автор ! Автор !
Michael 30 Ноя 2012 в 00:00 #
я бы добавил, что функция живет в модуле "Виндовз"
(была нужна в консоле, а там автоматом этот модуль не подключают)
Михаил 06 Ноя 2012 в 00:00 #
Как раз искал процедуру, которая копирует файлы с одного места в другое. Спасибо афтару за подсказку! )))
Еще один Дима 27 Сен 2012 в 00:00 #
Вирусописатели, мать их - зачем еще надо файлику плодиться(самому себя копировать)

ОтменитьДобавить комментарий