Пример 8.3.

Создать программу для высокоскоростного копирования файла-источника в файл-приемник. В качестве файла-источника использовать результат компиляции Prg_8_1.exe программы задачи 1, созданный ранее. В качестве файла-приемника определить файл с именем Prg_8_1a.exe. После выполнения нужно проверить, что на диске имеется файл-приемник того же размера и содержания. Чтобы убедиться в этом, можно этот файл исполнить.

Листинг программы

program prg_8_3;

{$mode objfpc}{$H+}

uses

Classes, SysUtils, RusTrans;

label

Exit;

const

FileDir1=’m:\Lazarus_examples\08_1\’;

FileDir2=’m:\Lazarus_examples\08_3\’;

var

InFile,OutFile: File;                               // Файловые переменные

Buf: array[1..512] of byte;                            // Буфер

FilePath1,FilePath2: string;                           // Пути к файлам

i,j: integer;

begin

FilePath1:=FileDir1+’prg8_1.exe’;

AssignFile(InFile,FilePath1);                // Связь файлом источником

FilePath2:=FileDir2+’prg8_1a.exe’;

AssignFile(OutFile,FilePath2);                      // Связь файлом приемником

Reset(InFile,512);                                        // Открыть файд источник

Rewrite(OutFile,512);                                  // Создать файл приемник

writeln(Rus(‘Файл источник’),FilePath1);

writeln(Rus(‘Файл приемник’),FilePath2);

writeln;

writeln(Rus(‘Копировать?’));

readln;

writeln(Rus(‘Копирование начато’));

writeln;

while not EOF(InFile) do

begin

BlockRead(InFile,Buf,1,i);        // Читать из InFile

Blockwrite(OutFile,Buf,1,j)       // Писать в OutFile

end;

writeln(Rus(‘Копирование закончено’));

readln;

CloseFile(InFile);                                         // Закрыть файл источник

CloseFile(OutFile);                               // Закрыть файл приемник

end.

Консоль перед закрытием программы:

paskal59

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong



Copyright © 2009-2010 Программирование на паскале.