Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Программирование _ Проблемы с доступом

Автор: ILDAR_I Понедельник, 06 Июня 2005, 8:20

Привет всем участникам форума! У меня следующая проблема, есть сетевой ресурс скажем ‘music’, он открыт только на чтение. Мне нужно скопировать эти файлы, также получить сведения об этих файлах, такие как - размер файла.

Краткий кусок кода:

Reset(FromF,1);
size:=FileSize(FromF); // Этот кусок определяет размер файла.
CloseFile(FromF);

Если ресурс только чтение, то я не могу получить доступ к файлу.

repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);

Здесь аналогичная ошибка.

Может есть другие функции или процедуры, которые позволяют делать тоже самое. Заранее спасибо!