VPF::Копирование файла с CD-ROM - Форум программистов

tht

Дата 5.8.2007, 03:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.5.2006

Репутация: нет
Всего: 1

может я что-то не так делаю. ну в общем указываю путь исходного файла который находится на CD-ROM, потом вроде как пытаюсь открыть его, вроде как на чтение. выдает ошибку #5

Код


program copyfile;
uses System, CRT;
var
  SrcFileHand: FILE;
  DstFileHand: FILE;
  ResultStr  : string;
  ReadSize   : Longint;
  WriteSize  : Longint;
  ReadBuffer : array[0..61000] of byte;
begin
  Assign(SrcFileHand,'E:\test.txt');  {* это файл на CD-ROM'e *}
  Reset(SrcFileHand);
  Assign(DstFileHand,'D:\dst.txt');   {* это файл на жестком диске *}
  ReWrite(DstFileHand);
  repeat
    BlockRead(SrcFileHand,ReadBuffer,61000,ReadSize);
    WriteSize := ReadSize;
    BlockWrite(DstFileHand,ReadBuffer,WriteSize);
  until Eof(SrcFileHand) = true;

  close(SrcFileHand);
  close(DstFileHand);
  WriteLn('Press any key');
  ReadKey;
end.

почему выдает эту ошибку я не знаю. как можно стандартными средствами паскаля скопировать файл с CD-ROM'a ? может я что-то не так делаю...

Это сообщение отредактировал(а) tht - 5.8.2007, 03:26

volvo877

Дата 5.8.2007, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

tht, только что проверил твою программу с небольшими изменениями - все работает, файл с CD прекрасно копируется. 2 замечания:

1)

Код


  ReadSize   : Word;
  WriteSize  : Word;

(иначе в Турбо Паскале код не компилируется)

2)

Код


  Assign(SrcFileHand,'E:\test.txt');
  Reset(SrcFileHand, 1); { <-- !!! }
  Assign(DstFileHand,'D:\dst.txt');
  ReWrite(DstFileHand, 1); { <-- !!! }

(иначе может быть так:

Цитата(TP Help)

The entire transferred block occupies at most Count symbol * RecSize bytes, where RecSize is the record size specified when the file was opened (or 128 if the record size was not specified). An error occurs if Count symbol * RecSize is greater than 65,535 (64K).

)

tht

Дата 5.8.2007, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.5.2006

Репутация: нет
Всего: 1

у меня TMT Pascal и все равно выдает ошибку #5

volvo877

Дата 5.8.2007, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Проверяй свой CD и файл, читается ли он другими средствами, в частности... Программа корректно отработала под Turbo Pascal/Free Pascal/TMT, так что проблема не в ней, а в чем-то другом...

Права на чтение/запись у тебя есть, кстати?

tht

Дата 5.8.2007, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.5.2006

Репутация: нет
Всего: 1

Цитата

Права на чтение/запись у тебя есть, кстати?

в каком смысле ??? немного не понимаю. может антивирус не дает ? или еще что нибуть ((( не знаю даже.

кстати у меня по идее так то DVD-ROM , но разницы то ведь нет ? что CD-ROM что DVD-ROM...

Это сообщение отредактировал(а) tht - 5.8.2007, 14:45

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »