Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Вниз

Нужна функция, которая работает быстрее SetFileAttributes.   Найти похожие ветки 

 
(Yorok)   (2004-01-18 15:22) [0]

Нужна функция, которая работает быстрее SetFileAttributes. Пожалуйста, помогите!


 
(Yorok)   (2004-01-18 17:54) [1]

Неужели нету? На асме, на чем угодно, только, чтобы быстрее работала.


 
Плохиш_   (2004-01-18 18:02) [2]

Ага, и которая вызывает WinAPI-функцию SetFileAttributes

PS. Хоть бы подумал сначала, чё спрашиваешь


 
Тимохов   (2004-01-18 18:04) [3]

Может напрямую через FAT или NTFS?
Может это имеет в виду человек?


 
Плохиш_   (2004-01-18 18:06) [4]

Ну тогда, флаг в руки и барабан на шею


 
Тимохов   (2004-01-18 18:08) [5]

Ну да, недавно тут один был - медленно читаются 50000 записей из файла. Спрашивал, не знаем ли мы более быстрого способа? При этом в цикле 50000 раз вызывал ProcessMessages :))))


 
Плохиш_   (2004-01-18 18:14) [6]

Главное есть надежда, что он сейчас ProcessMessages только раз на 500 записей вызывает ;-)


 
(Yorok)   (2004-01-18 18:19) [7]

Ну, хорошо... Умничать и я умею! У меня реальный вопрос: почему при инициализации (CPL_INIT) апплета панели управления функция SetFileAttributes тормозит систему на секунду-полторы? И как от этого избавится?


 
Плохиш_   (2004-01-18 18:24) [8]

>(Yorok) (18.01.04 18:19) [7]
Ну придётся подождать, пока интерпол найдёт наших телепатов


 
(Yorok)   (2004-01-18 18:27) [9]


CPL_INIT:
begin
if FileExists(PChar("C:\my.txt"))
then SetFileAttributes(PChar("C:\my.txt"), 0);
end;


 
Anatoly Podgoretsky   (2004-01-18 18:45) [10]

(Yorok) (18.01.04 18:27) [9]
На моем комьютере время выполнения SetFileAttributes составляет менее 40 микросекунд.

Тимохов © (18.01.04 18:08) [5]
Видимо тот же случай, где человек читал файл, а затем крутил длинный цикл и говорил, ну как медленно читается.


 
Тимохов   (2004-01-18 18:48) [11]

Ну да, о том человеке я уже вспонил в Тимохов © (18.01.04 18:08) [5].


 
Anatoly Podgoretsky   (2004-01-18 18:53) [12]

При том крутил цикл не во время чтения файла, а после, помнится много сообщений было в той ветке, прежде чем он привел достаточно полный код.


 
(Yorok)   (2004-01-18 18:55) [13]

Там ещё инициализация Блокнота - InitPropertySheet; и больше ничего.


 
Тимохов   (2004-01-18 18:59) [14]

Anatoly Podgoretsky © (18.01.04 18:45) [10]
Анатолий, поделитесь опытом. Чем вы замеряете скорость так точно?


 
Anatoly Podgoretsky   (2004-01-18 19:16) [15]

N := GetTickCount;
for I := 1 to 1000000 do
begin
SetFileAttributes("C:\1.txt"), 0);
end;
Label1.Caprion := IntToStr(GetTickCount-N);

Конечно время еще меньше, поскольку я паралельно смотрю программу телевиденья.


 
Тимохов   (2004-01-18 19:18) [16]

Anatoly Podgoretsky © (18.01.04 19:16) [15]
Логично...
Сам так делаю. Подумал, что возможно Вы юзаете что-то более продвинутое...


 
Anatoly Podgoretsky   (2004-01-18 19:21) [17]

Ну более продвинутое это RDTSC аппаратный счетчик тактов процессора, просто здесь это не нужно. Еще есть QueryPerformanceCounter


 
(Yorok)   (2004-01-18 19:28) [18]

Слышь, мужики! Если вам хочется побазарить, так пообщайтесь в чате.


 
Palladin   (2004-01-18 19:32) [19]

Тебе помоему уже намекнули про телепатов... в отпуске они...


 
Тимохов   (2004-01-18 19:33) [20]

Ты зря кипятишься.
Проблемы в функции SetFileAttributes здесь нет.
У тебя проблемы в чем-то другом. Ищи.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.008 c
14-93695
strong
2004-01-06 14:45
2004.01.29
Delphi 8


3-93364
Вася
2004-01-02 18:56
2004.01.29
Добавление записи


9-93316
Mix
2003-06-30 11:00
2004.01.29
Алгоритм поиска пути - A*.


1-93491
Shc
2004-01-12 18:47
2004.01.29
Поиск по XML схеме


1-93419
Вомбат
2004-01-16 15:56
2004.01.29
Запись / чтение компоненты из ресурса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский