 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Узнать размер файла при это не вызвав ошибку, если файл уже используется др. процессом 
| Monty |
|
|||
 Advanced Lamer  Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
в ХР работает без проблем, а вот в 98 вызывает ошибку, использую FileStream, но ни так и ни эдак
 -------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
Дата 14.5.2003, 00:02 (
Загрузка ...
| acp |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 389 Регистрация: 4.2.2003 Где: Владимир Репутация: нет Всего: 2 |
А с блоком
пробовал? |
|||
|
||||
| Song |
|
|||
 Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
Не те флаги в конструкторе TFileStream используешь.
-------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
FindFirst
TSearchRec переменная будет иметь поле типа TWin32FindData - этот тип содержит нужную инфо. Так как файл вообще не открывается, то можно посмотреть размер даже Swap'а -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Monty |
|
|||
|
Advanced Lamer Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
спасибо Vit
 Song все перебрал ошибка... и нуль acp ну какой от него толк если я не узнаю всеравно его размер -------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
| Song |
|
|||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
А какая ошибка-то?
-------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Monty |
|
|||
|
Advanced Lamer Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
что мол "нелзя открыть файл, т.к. он занят др. процессом" это понятно, но в ХР работает без ошибок. -------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
Дата 14.5.2003, 17:58 (| Song |
|
|||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
А.. ясно. В w9x не получится. Он не умеет просматривать файлы, открытые монопольно. Кстати NT тоже не умеет, но там применена хитрость: он читает не сам файл, а его отображение в памяти, поэтому тут без глюков происходит.
-------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Короче, не парься - я же сказал как работает, если пример надо, то в нашем FAQ есть моя статья "Всё о файлах" - там есть все примеры работы. Кстати, где-то в FAQ есть и моя заметка, как прочитать размер файла, если он больше 4 Gb.
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Shuricksoft |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 177 Регистрация: 27.3.2002 Где: Odessa, Ukraine Репутация: нет Всего: нет |
Ежели кому интересно, я нашёл такую хитрость: Вынь 2000 или ХР открывает файл для чтения, если он уже кем-то открыт, только через TFileStream, а старым паскалевским методом (assignfile, reset, closefile) - выдаёт ошибку. А вот Вынь 98 наоборот! В данном случае, тебе уже дали ответ, а на будущее, если возникнет такая проблемка, или определяй версию Вынь, после чего выполняй соответствующие процедуры, либо ставь что-то вроде
try {Через FileStream} ... except {Паскалевским методом} |
|||
|
||||
| Monty |
|
|||
|
Advanced Lamer Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
Shuricksoft к сожелению и это не работает, я не буду париться, и сделаю через TSearchRec
-------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Там тоже можно установить уровень доступа и будет работать, а по умолчанию используется доступ для записи и конечно система блокирует этот вызов. -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Monty |
|
|||
|
Advanced Lamer Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
если честно, то я не знаю (и не знал) как установить уровень доступа. покажите как это сделать.
а версию винды я определяю тремя строками ассемблера -------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
См. системную переменную "FileMode" -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Monty |
|
|||
|
Advanced Lamer Профиль Группа: Участник Клуба Сообщений: 3511 Регистрация: 3.4.2003 Где: Гваделупа Репутация: нет Всего: 27 |
Спасибо всем.
FileMode := 0 и все без ошибок, в ХР тоже. -------------------- ... О, вещая моя печаль, О, тихая моя свобода И неживого небосвода Всегда смеющийся хрусталь! |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0535 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |