| ← Август 2009 → | ||||||
|
3
|
6
|
7
|
8
|
9
|
||
|---|---|---|---|---|---|---|
|
10
|
11
|
12
|
13
|
14
|
15
|
|
|
19
|
22
|
|||||
|
24
|
25
|
26
|
28
|
29
|
30
|
|
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi
| Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Чемпионы рейтинга экспертов в этой рассылке
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi
Вопрос № 171275: Здравствуйте уважаемые эксперты. Помогите пожалуйста. Как искать все файлы (скрытые, системные, в системных и скрытых подкаталогах), задавая директорию в которой искать. Вот текст процедуры, которая не хочет искать скрытые файлы. Что можно сделать ?<... Вопрос № 171276: Помогите мне пожалуйста. Как мне в моей программе с http скачать файлик небольшего размера. Если не сложно дайте пример? ... Вопрос № 171283: Здравствуйте. Мною написана небольшая программка. Такая проблема - если я запускаю программу на отработку, то мне приходится ждать пока она отработает до конца, не запуская другие программы и не открывая окна, так же приходится время от времени ше... Вопрос № 171275:
Здравствуйте уважаемые эксперты. Помогите пожалуйста. Как искать все файлы (скрытые, системные, в системных и скрытых подкаталогах), задавая директорию в которой искать. Вот текст процедуры, которая не хочет искать скрытые файлы. Что можно сделать ?
Отправлен: 12.08.2009, 23:17 Отвечает Тимошенко Дмитрий, Студент : Здравствуйте, Смирнов Михаил Владимирович. Ваша программа не ищет файлы в скрытых/системных подкаталогах, а не скрытые файлы. Попробуйте поменять условие сравнения в обоих случаях с вашего (Sea.Attr=faDirectory) на такое (Sea.Attr and faDirectory=faDirectory). Так как атрибуты файла - это битовая маска, то ваше условие сравнения будет срабатывать только для обычных папок, у которых нет других атрибутов, кроме флага faDirectory, а если у папки есть доп.атрибуты (скрытая, системная и т.д.) - оно работать уже не будет. С уважением, Дмитрий
Ответ отправил: Тимошенко Дмитрий, Студент
Здравствуйте, Смирнов Михаил Владимирович. Попробуйте заменить if (Sea.Attr=faDirectory) на if (faDirectory in Sea.attr)
Ответ неверный. Автор даже не пробовал запустить написанное.
© Цитата: Из мини-форума, Gramy, 2-й класс Sea.Attr - это не множество, а обычный Integer, поэтому следует использовать битовые операции. TSearchRec = record Time: Integer; Size: Int64; Attr: Integer; ... ----- ∙ Отредактировал: Николай Владимирович / Н.В., Старший модератор ∙ Дата редактирования: 13.08.2009, 20:52 (время московское) ----- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt, Студент
Вопрос № 171276:
Помогите мне пожалуйста. Как мне в моей программе с http скачать файлик небольшего размера. Если не сложно дайте пример?
Отправлен: 12.08.2009, 23:23 Отвечает Шичко Игорь, Практикант : Здравствуйте, Смирнов Михаил Владимирович. Пример функции в приложении. Использование: if not GetInetFile(file_on, file_out) then begin ShowMessage('Ошибка загрузки'); exit; end; file_on - URL исходного файла file_out - имя файла, в который будем закачивать Удачи.
Приложение:
Ответ отправил: Шичко Игорь, Практикант
Вопрос № 171283:
Здравствуйте.
Отправлен: 13.08.2009, 09:07 Отвечает PaVeL_Ekt, Студент : Здравствуйте, Лившиц Анатолий Дмитриевич. программа возможно не зависает. Попробуйте добавить процедуру отработки системных сообщений (Application.ProcessMessage) в цикл выполнения программы. procedure ProcessMessages; Метод позволяет прервать выполнение приложения для обработки всех системных сообщений Windows, стоящих в очереди. Этот метод позволяет выполнять системе иные действия в ситуациях, когда в приложении выполняются длительные операции, например, сложные вычисления. ну а для более детального ответа необходимо посмотреть код программы. ----- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt, Студент
Здравствуйте, Лившиц Анатолий Дмитриевич. Мне кажется, что Ваша програ и проблема, по кокой-то причине связаны с Application.Active. "Application.Active is true while the application is active and false if it is not. Active is set to true in the constructor. An application is active if the form or application has focus. An application becomes inactive when a window from a different application is about to become activated. When the application closes, Active is set to false in the destructor."
Ответ отправил: Bochvarov NikB, Студент
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2009, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2009.6.7 от 15.08.2009 |
| В избранное | ||
