Копирование файлов :: Статьи по Delphi - Iguana Software - IGP.O

Поиск по базе статей [/articles/?PHPSESSID=f59fb424f9afec288be2aa83f0dfd928] : 18.08.2006 Изменено разрешение сайта Изменено минимальное разрешение сайта на 1024x768 Подробнее... 02.08.2006 Выгружена игра "Digger Remastered" Вспоминаем старый добрый DOS и времена 80-х! ;) Подробнее... Рекомендуем книгу! Создание новых компонентов в Delphi Вы разрабатываете программы в среде Delphi и хотите, чтобы они имели оригинальный интерфейс, отражающий ваш стиль? Или у вас возникла необходимость в специфических элементах управления, отсутствующих в стандартной палитре компонентов Delphi? Значит, вам н ... Копирование файлов :: Статьи по Delphi Здесь представлено три классических способа копирования файлов {Данный способ использует файловый поток} procedure FileCopy( const SourceFileName, TargetFileName: String ); var S, T: TFileStream; begin S := TFileStream.Create(SourceFileName, fmOpenRead); try T := TFileStream.Create(TargetFileName, fmOpenWrite or fmCreate); try T.CopyFrom(S, S.Size ); finally T.Free; end ; finally S.Free; end ; end ; {Данный способ для чтения/записи использует блоки памяти.} procedure FileCopy( const FromFile, ToFile: string ); var FromF, ToF: file ; NumRead, NumWritten: Word; Buf: array [ 1 .. 2048 ] of Char; begin AssignFile(FromF, FromFile); Reset(FromF, 1); AssignFile(ToF, ToFile); Rewrite(ToF, 1 ); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0 ) or (NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end ; {Данный способ использует LZCopy, добавьте в список USES модуль LZExpand} procedure CopyFile(FromFileName, ToFileName: string ); var FromFile, ToFile: File ; begin AssignFile(FromFile, FromFileName); AssignFile(ToFile, ToFileName); Reset(FromFile); try Rewrite(ToFile); try if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0 then raise EInOutError.Create( 'Ошибка использования LZCopy' ) finally CloseFile(ToFile); end ; finally CloseFile(FromFile); end ; end ; Copyright 2001-2007 © "Iguana Software" . О компании | Продукты | Усуги | Заявление о приватности | Правила использования | Обратная связь IGP Delphi Forum | Библиотека VCL | Увлекательные знакомства, Украина