Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Копирование :-Е   Найти похожие ветки 

 
Programist21   (2003-02-24 14:35) [0]

Почему не пашет?

Народ, вот тут файл копирую. Но файл копируется, но не читается (то есть читается неправильно)! В чём ошибка?

var f1,f2: File;
buf: array of char;
s: string;
NumRead, NumWritten: integer;
begin
AssignFile(f1,"1.rar");
AssignFile(f2,"2.rar");
Reset(f1);
Rewrite(f2);
repeat
BlockRead(f1, Buf, SizeOf(Buf), NumRead);
BlockWrite(f2, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(f1);
CloseFile(f2);
Readln;
end.


 
Романов Р.В.   (2003-02-24 14:40) [1]

1. Размер Buf не задан
2. SizeOf(Buf) = 4 байта


 
Zz_   (2003-02-24 14:41) [2]

buf array[1..1024] of byte

Reset (f1, 1);
Rewrite (f2, 1);
repeat
BlockRead (f1, Buf[1], 1024, NumRead);
BlockWrite (f2, Buf[1], NumRead, NumWritten);


 
Владислав   (2003-02-24 14:42) [3]

А чему у тебя Buf равен?


 
Юрий Зотов   (2003-02-24 14:49) [4]

1. Под массив Buf не выделена память.
2. То же самое (только проще, быстрее и лучше) делается так:
CopyFile("1.rar", "2.rar", False);



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.051 c
1-17035
Odil
2003-02-25 08:12
2003.03.06
Как подключить внешний файл, так чтоб прога мог показать вам лист


1-16990
malkolinge
2003-02-24 15:22
2003.03.06
Как запретить перемещение формы ?


3-16872
wara
2003-02-13 15:15
2003.03.06
Загрузка данных в БД из Internet-Explorer


3-16911
Clipper
2003-02-15 01:52
2003.03.06
Как удалить запись из БД совсем?


9-16852
CHiF_
2002-10-07 12:57
2003.03.06
dxg формат





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский