Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
Имитационное мо... 60337
Реклама
Сейчас на сайте
Гостей: 4
На сайте нет зарегистрированных пользователей

Пользователей: 13,115
новичок: sborzabor
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование автовокзала + Отчет + Блок схема
Моделирование работы ЭВМ на GPSS + Пояснительная записка
Моделирование процесса поступления заявок в систему, состоящую из трёх Э...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Копирование и удаление файлов в Delphi
В самом простом случае вопрос копирования
файлов очень прост (хотя поступило много пожеланий рассказать именно об этом)!
Для этого достаточно посмотреть в хелп по Delphi :))


Копирование файлов

В Delphi есть функция CopyFile. Вот ее описание из хелпа


BOOL CopyFile(


LPCTSTR lpExistingFileName, //
pointer to name of an existing file 

LPCTSTR lpNewFileName, // pointer to filename to copy to 

BOOL bFailIfExists // flag for operation if file exists 

);


Параметры передаваемые в эту функцию:



  1. Указатель на имя существующего файла (нуль
    терминированная строка т.е. тип PChar! )

  2. Указатель на имя файла, который будет
    создан/перезаписан после копирования (нуль терминированная строка т.е. тип
    PChar! )

  3. Если этот параметр True и файл с таким
    именем уже существует, то функция вернет False. Если же файл, с именем
    указанным во втором параметре существует и в качестве третьего параметра
    передан False - то функция перезапишет файл и благополучно завершится.


Приведу небольшой пример использования этой
функции. Создайте на диске C:\ файл '1.txt', а на форму поставьте кнопку:


procedure TForm1.Button1Click(Sender:
TObject);

begin

if CopyFile('c:\1.txt','c:\2.txt',true) then

ShowMessage('Файл успешно скопирован!')

else ShowMessage('Неудача!');

end;


Для того, чтобы точнее узнать при возникновении
ошибки, что же все таки произошло, надо воспользоваться функцией GetLastError,
которая возвращает код последней ошибки (формат DWORD). Теперь мы немного
изменим пример:


procedure TForm1.Button1Click(Sender:
TObject);

begin

if CopyFile('c:\1.txt','c:\2.txt',true) then

ShowMessage('Файл успешно скопирован!')

else

ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError));

end;


Таким образом нажав второй раз на кнопку мы
получим сообщение: "Ошибка! Вот ее код: 80". Это говорит нам, что файл
существует.


Коды всех ошибок можно легко найти в хелпе.


Для углубления рассматриваемого вопроса приведу
пример копирования файлов с помощью файлового потока (TFileStream). В
приведенной пользовательской функции введены два дополнительных параметра From и
Count, которые указывают, соответственно, с какого и по какой байт нужно
копировать файл. Если необходимо скопировать весь файл, то необходимо передать
нули. Вот код этой функции:


function MyCopyFile(
InFile,OutFile: String; From,Count: Longint ): Longint;

var

InFS,OutFS: TFileStream;

begin

InFS := TFileStream.Create( InFile, fmOpenRead );//создаем поток

OutFS := TFileStream.Create( OutFile, fmCreate );//создаем поток

InFS.Seek( From, soFromBeginning );//перемещаем указатель в From

Result := OutFS.CopyFrom( InFS, Count );

InFS.Free;//освобождаем

OutFS.Free;//освобождаем

end;


Удаление файлов

Для удаления файлов в Delphi так же предусмотрена специальная процедура
DeleteFile. В качестве параметра, передаваемого в функцию, выступает строка типа
PChar, указывающая имя файла, который нужно удалить. Сразу предлагаю Вам простой
пример на использование этой функции:


procedure TForm1.Button1Click(Sender:
TObject);

begin

if DeleteFile('c:\2.txt') then

ShowMessage('Файл успешно удален!')

else

ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError));

end;


Удаление пустой директории

Чтобы удалить пустую директорию с помощью Delphi достаточно обратиться к функции
RemoveDir.


function RemoveDir(const Dir:
string): Boolean;


Эта функция возвращает True если директория,
указанная в единственном параметре, передаваемом в функцию, успешно удалена, в
противном случае функция возвратит False.


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


Function MyRemoveDir(sDir :
String) : Boolean; 

var 

iIndex : Integer; 

SearchRec : TSearchRec; 

sFileName : String; 

begin 

Result := False; 

sDir := sDir + '\*.*'; 

iIndex := FindFirst(sDir, faAnyFile, SearchRec);


while iIndex = 0 do begin 

sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name; 

if SearchRec.Attr = faDirectory then begin 

if (SearchRec.Name <> '' ) and 

(SearchRec.Name <> '.') and 

(SearchRec.Name <> '..') then 

MyRemoveDir(sFileName); 

end else begin 

if SearchRec.Attr <> faArchive then 

FileSetAttr(sFileName, faArchive); 

if NOT DeleteFile(sFileName) then 

ShowMessage('Could NOT delete ' + sFileName); 

end; 

iIndex := FindNext(SearchRec); 

end;


FindClose(SearchRec); 



RemoveDir(ExtractFileDir(sDir)); 

Result := True; 

end;


А сейчас пример использования этой функции:


procedure TForm1.Button1Click(Sender:
TObject);

begin

if MyRemoveDir('C:\testDir') then ShowMessage('Директория успешно удалена')

else ShowMessage('Не получается удалить директорию');

end;


Общие замечания по данной теме



  1. Перед копированием или удалением файлов
    всегда проверяйте его наличие функцией FileExists: 

    if FileExists('c:\1.txt') then

    if CopyFile('c:\1.txt','c:\2.txt',true) then

    ShowMessage('Файл успешно скопирован!')

  2. Чтобы использовать в функциях CopyFile и
    DeleteFile имена файлов полученные с помощью, например, OpenDialog, надо из
    привести к типу PChar: 

    if CopyFile(Pchar(OpenDialog1.FileName),Pchar(SaveDialog1.FileName),true)
    then ...

  3. Всегда следите за именами файлов,
    используемых в функциях. Обращайте внимание на абсолютные и относительные
    пути. Из-за этого часто возникают ошибки, которые сложно отследить!



Ну вот наверно и все, что я хотел бы рассказать
Вам о копировании и удалении в Delphi.

Опубликовал Kest Октябрь 25 2008 18:01:01 · 1 Комментариев · 16666 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Александр Апрель 08 2010 12:47:47
Спасибо! Очень помоглоsmiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Delphi на примерах
База для Allsubmi...
MPTools
EditButton
Калькулятор [Исхо...
Анимированное поя...
SynEdit
Tetris 2002
C# Учебный курс
Plasma
Программа для рис...
DCAVI
EMS QuickExport S...
Delphix Sample [И...
Язык программиров...
Fig [Исходник на ...
Разработка клиент...
около 291 статьи ...
Win-Prolog 3.618
Socoban

Топ загрузок
Приложение Клие... 100521
Delphi 7 Enterp... 91564
Converter AMR<-... 20100
GPSS World Stud... 15263
Borland C++Buil... 12989
Borland Delphi ... 9099
Turbo Pascal fo... 7110
Калькулятор [Ис... 5178
Visual Studio 2... 5030
FreeSMS v1.3.1 3558
Случайные статьи
Листинг 9.2. После...
11. Компьютеры мог...
Счетчики импульсов
Инструментарий для...
Функции обработки ...
Windows с точки вр...
Продукты широкого ...
компьютеры клиенто...
14.7. Дополнительн...
Видовые параметры ...
Как выбрать самый ...
Ordinal type expected
4.3. Смысл верифик...
Использование объе...
Почему каждый хост...
Физическая память
История опытов Эрн...
Задание правил сох...
Принципы обработки...
Аватар
Настройка управлен...
6.2. Уровни разраб...
Устраняйте причину...
Коммутация блоков ...
1.2. ЧТО СОДЕРЖИТС...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?