Вопрос № 17644: Доброго времени суток!
Уважаемые эксперты, не подскажете как мне сделать сниффер com порта? Перепробовал многие компоненты, но в них если открываешь порт, то никто другой уже к этому порту обратиться не может. Мне надо чтобы программа постоянно в...Вопрос № 17660: Здравствуйте, уважаемые эксперты !!!
1. Почему при поиске файлов не понятно
почему отображаются имена некоторых
каталогов. В частности это Карзина Windows.
Вот мой код
...
Var
S : TSearchRec;
begin
If FindFirst('...
Вопрос № 17644
Доброго времени суток!
Уважаемые эксперты, не подскажете как мне сделать сниффер com порта? Перепробовал многие компоненты, но в них если открываешь порт, то никто другой уже к этому порту обратиться не может. Мне надо чтобы программа постоянно висела в памяти и определяла, когда наначинается и заканчивается передача данных через порт. Заранее благодарен.
Отправлен: 01.03.2005, 07:38
Вопрос задал: Gleban (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: Bob Johnson
Здравствуйте, Gleban!
Если тебе просто нужна программа (а не цель разобраться, как ее делать), то сходи на sysinternals.com - там есть portmon.
Ответ отправил: Bob Johnson (статус: Академик)
Отправлен: 01.03.2005, 12:13
Вопрос № 17660
Здравствуйте, уважаемые эксперты !!!
1. Почему при поиске файлов не понятно
почему отображаются имена некоторых
каталогов. В частности это Карзина Windows.
Вот мой код
...
Var
S : TSearchRec;
begin
If FindFirst('c:*.*', faAnyFile, SR) = 0 Then
Repeat
If (SR.Attr <> faDirectory)
Then Memo1.Lines.Add(SR.Name);
Until FindNext(SR) <> 0;
end;
2. Решил изучать тему работы с MS OFFICE из Delphi
и возник один маленький вопрос. Можно ли при
запуске или загрузке файла программно нажать
в Word`е кнопку Insert, чтобы сразу ввести
его в режим замены.
Заранее благодарю.
Отправлен: 01.03.2005, 15:33
Вопрос задал: SATAN (статус: Посетитель)
Всего ответов отправлено: 6
Отвечает: Boriss
Здравствуйте, SATAN!
Потому что Вы делаете это по-Паскалевски, а в Delphi нужно так, как в приложении. То есть
нужно проверять, установлен ли флаг, а их может быть несколько ....
Кроме того, в примере Вашем были описки: SR и S, а также не закрыт поиск
Приложение:
Ответ отправил: Boriss (статус: Профессионал)
Отправлен: 01.03.2005, 16:38
Отвечает: Sh-st
Здравствуйте, SATAN!
Сразу скажу, что я в своих ответах не уверен на все "100".
1 Возможно потому, что поиск ищет у тебя и скрытые файлы (faAnyFile)
2 Запускаешь ворд и "посылаешь" нажатие нужной тебе клавиши. Вот
keybd_event(88,0,0,0);//Нажать
keybd_event(88,0,KEYEVENTF_KEYUP,0);//Отпустить
Вместо 88 поставь код клавиши.
Ответ отправил: Sh-st (статус: 2-ой класс)
Отправлен: 01.03.2005, 17:22
Отвечает: John Freeman
Здравствуйте, SATAN!
1) а каталог тоже файл - фильтруй!
2) это быстрее через senmessage WM_KEYDOWN для ins
Ответ отправил: John Freeman (статус: Специалист)
Отправлен: 01.03.2005, 17:32
Отвечает: Полховский Александр Владимирович
Здравствуйте, SATAN!
Проверку на наличие байта faDirectory надо делать не <>, а логической AND.
Отвечает: Васильев Павел
Здравствуйте, SATAN!
1.Попробуй так:
If FindFirst('c:*.*', faAnyFile and not faDirectory, SR) = 0 Then
Repeat
If (SR.Attr <> faDirectory)
Then Memo1.Lines.Add(SR.Name);
Until FindNext(SR) <> 0;
Ответ отправил: Васильев Павел (статус: 1-ый класс)
Отправлен: 01.03.2005, 17:53
Отвечает: sir henry
Здравствуйте, SATAN!
1. Потому-что ЛЮБОЙ файл (в т.ч. и каталог) имеет не один аттрибут, а несколько. Все они плюсуются, поэтому у Вас и не получается строка исключения каталога "SR.Attr <> faDirectory".
Проверять, наверное, нужно так:
If (SR.Attr and faDirectory)=0 Then
далее как у Вас...
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 02.03.2005, 12:31
