Навигация
Главная
Поиск
Форум
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
Имитационное мо... 59594
Реклама
Сейчас на сайте
Гостей: 2
На сайте нет зарегистрированных пользователей

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

Моделирование работы перекрёстка по регулированию движения на GPSS + Поя...
Моделирование работы ЭВМ на GPSS + Пояснительная записка
Меры близости на векторах в Delphi + Блок схемы

Реклама



Подписывайся на 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 October 25 2008 18:01:01 · 1 Комментариев · 16621 Прочтений · Для печати

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


Комментарии
Александр April 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...
Шаблон для новост...

Случайные загрузки
Encrypt Decrypt
Система баннеро-о...
Atb
Время загрузки ...
Comdrv
Учебник для продв...
Шифрование по алг...
Zoom [Исходник на...
GPSS World Studen...
Cтатьи Королевств...
Apollovcl61
PHP5. Профессиона...
JanButtonsV
DelTrayIcon [Исхо...
Delphi. Разработк...
Пример работы с ф...
DragMe [Исходник ...
Язык программиров...
Программирование ...
Разработка интерн...

Топ загрузок
Приложение Клие... 100515
Delphi 7 Enterp... 90466
Converter AMR<-... 20093
GPSS World Stud... 15031
Borland C++Buil... 12760
Borland Delphi ... 8965
Turbo Pascal fo... 7097
Калькулятор [Ис... 5140
Visual Studio 2... 5020
FreeSMS v1.3.1 3555
Случайные статьи
Более того, для ко...
LEAVE (ВЫЙТИ)
5.3. Ввод предлож...
Ввод-вывод символь...
Оптимизация расход...
История языков про...
И все же – как выб...
ChatSession.h
Настраиваемые инте...
клиенты POP3/SMTP
Invalid register c...
40-часовая рабочая...
Выбор символа разд...
Чтобы защитить рек...
Простая ассоциация
Сортировка простым...
VIRTUAL expected
String expression ...
Файл главной компо...
Каким должен быть ...
Поиск с помощью ре...
Наркологическая кл...
9.5. Введение доп...
Как писать друзьям...
Оператор switch дл...
Статистика



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


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