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

@oleg135 · Регистрация: 19.10.2008

Студворк — интернет-сервис помощи студентам

А как увеличить буффер для копирования, чтобы копировало по 512 байт.
Я увеличиваю буффер записи до 512. Но программа не копирует. В чем дело?

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Program CopyFile;
Const
 ReeSize=512;
Var
 FromF, ToF : File;
 NumRead, NumWritten : Word;
 Buf : Array [1..ReeSize] Of Char;
 FileOut,FileIn: string;
Begin
 writeln('enter path for first file');
 readln(FileOut);
 Assign(FromF, FileOut);{$I-}
 Reset(FromF, 512);{$I+}
 if IOResult<>0 then
  begin
  writeln('FILE NOT FOUND!!!'); readln; exit;
  end;
 writeln('enter path for second file');
 readln(FileIn);
 Assign(ToF, FileIn);
 ReWrite(ToF, 512);
 WriteLn('Copy ', FileSize(FromF), ' bytes...');
 Repeat
  BlockRead(FromF, Buf, sizeof(buf), NumRead);
  BlockWrite(ToF, Buf, NumRead, NumWritten);
  writeln(numread,' ',numwritten);
 Until (NumRead = 0) Or (NumWritten <> NumRead) or (filesize(fromf)<filesize(tof));
 writeln(filesize(fromf));
 writeln(filesize(toF));
 Close(FromF);
 Close(ToF);
 readln;
End.

@Puporev · 17.04.2009, 11:06

Вроде как 128 максимум.

@oleg135 · 17.04.2009, 11:30 **[ТС]**

А преподаватель говорит, что 512 (размер кластера)

Добавлено через 18 минут 45 секунд
Спасибо, помощь уже не нужна, я сделал копирование по 512 байт ;-D

@leon2009 · 22.12.2009, 18:20

да можно и по 1024 тока не через буфер, сейчас тоже спросил на форуме! не знаю что ответят

@leon2009 · 24.12.2009, 20:48

может пригодится

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program FileCopy;
Var
  FromF, ToF: File;              
  NumRead, NumWritten: Word;      
  Buf: Array [1..2048] Of Char;   
Begin
  If ParamCount <> 2 Then   
  Begin                          
    WriteLn('TEXTFILE Source.Ext Dest.Ext');
    Halt;                        
  End;
  Assign(FromF, ParamStr(1));    
  Reset(FromF, 1);                
  Assign(ToF, ParamStr(2));       
  ReWrite(ToF, 1);                
  WriteLn('copyruem');
  Repeat                         
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead); 
    BlockWrite(ToF, Buf, NumRead, NumWritten);   
  Until (NumRead = 0) Or (NumWritten <> NumRead);
  Close(FromF);                   
  Close(ToF);                     
End.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.04.2009, 11:06
	Вроде как 128 максимум. 0

@oleg135 1 / 1 / 0 Регистрация: 19.10.2008 Сообщений: 46
	17.04.2009, 11:30 [ТС]
	А преподаватель говорит, что 512 (размер кластера) Добавлено через 18 минут 45 секунд Спасибо, помощь уже не нужна, я сделал копирование по 512 байт ;-D 0

@leon2009 Балбес 3 / 3 / 2 Регистрация: 22.12.2009 Сообщений: 206
	22.12.2009, 18:20
	да можно и по 1024 тока не через буфер, сейчас тоже спросил на форуме! не знаю что ответят 0