Привет всем участникам форума! У меня следующая проблема, есть сетевой ресурс скажем ‘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);
Здесь аналогичная ошибка.
Может есть другие функции или процедуры, которые позволяют делать тоже самое. Заранее спасибо!
|