Привет всем участникам форума! У меня следующая проблема, есть сетевой ресурс скажем ‘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);
Здесь аналогичная ошибка.
Может есть другие функции или процедуры, которые позволяют делать тоже самое. Заранее спасибо!
Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)