Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Как отловить начало работы с удалённым подключением?

* Originally in RU.DELPHI
Приятного тебе дня и незабываемой ночи, Oleg!

Wednesday July 13 2005, Oleg Lazukin writes to Andrey Ryazanov:
OL> Я не говорил, что она делает только это. Это гибрид Net.Medic,
OL> дозвонщика и учетчика времени в сети. Сейчас глянул - уже 8МБ| !

таких программ много. раньше было. лет 5 назад я пользовался бесплатным NetLaunch

Bulat, mailto:bulat_z-AT-mail.ru

* Origin: Пикап - лучший способ познакомиться с удовольствием ; (2:5093/4.126)


Re: Загадка программерам

From: Vladimir Tkatchenko

Hi, Mihail!

> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> rbOff.Checked := true;

Замени верхнюю строчку на ниже приведенную!

rbOff.SetFocus; // Будешь приятно удивлен!

> MessageBox(Handle, 'Prosto tak', nil, 0);
> end;

Решение нашел буквально за 5 минут! ;-Р
"Секрет, какой еще секрет? Секрета никакого нет!" (с)
Помедитируй над тем, что происходит при перемещении фокуса ввода на
radio button...

--
With best regard, Vovik
mailto:sands [@] zfs.lg.ua
www.zfs.lg.ua/~sands



* Origin: SANDSoft Virtual Firm (2:5020/400)


dBase и ADO

Здравствуй, Ilya Chesnokov.

RK>> Студент? Hу так пиши, если "надо", учись. Зайди в магазин, купи
RK>> книжку, а может и не одну. Почитай. Потом задавай конкpетные
RK>> вопpосы (hint: в подходящих эхоконфеpенциях). Если, конечно, после
RK>> пpоцесса самообучения останутся сложности.

IC> Эх, что бы миp делал без вас - без людей, котоpые на вопpос "Что
IC> почитать по этой теме?" отвечают твеpдо и увеpенно "Книжку!"
IC> Миp бы пpосто pухнул, если б вас не было)) Спасибо за совет!))

Что-то вопросы у тебя видоизменяются. Hо не суть. Hеужели сложно зайти в книжный магазин, отыскать там отдел, посвященный "компьютерной" литературе, и выбрать несколько томиков по ключевым словечкам: ADO, dBase и т.д. Или воспользоваться internet: любая поисковая система (например, google,yandex) способна выдать множество ссылок на ресурсы по интересующей тебя теме. Более того, с Delphi поставляются исходники проектов-демонстрашек, думаю, там есть примеры работы с базами через ADO. В delphi также есть различные *.hlp. В общих чертах про технологии ADO там обязательно изложено.

Roman Kanygin
* Origin: Altair Station (2:5030/809)


Hормальный компонент меню в стиле XP

Пpивет, Bulat!

Пон Июл 18 2005 18:34, Bulat Ziganshin отписал к Slava Antonov следyющее:

SA>> Я говорил про времена когда Дельфи еще и в помине не было.

BZ> и я говорю про те времена, когда Delphi ещё только писалось. причём на
BZ> самом же этом языке

Паскаль был тоже написан на Паскале. По сути то же самое.
Только причем тут отладчики? Отладчики были всегда. Даже
интегрированные в саму среду (например в тот же Паскаль или Си)
существуют с "лохматого" года. А что касается отдельных
отладчиков, то они существуют чуть ли не с первых процессоров.

Удачи тебе, Bulat.
* Origin: Каждой тваре по NetWare. (2:5020/2013.20)


Re: Загадка пpогpаммеpам :)

Пpивет, Mihail!

19 июля 05 Mihail Piterskiy докладывал Vlad Filippov:

VF>> Останавливать таймеp надо так:

MP>>> procedure TForm1.Timer1Timer(Sender: TObject);
MP>>> begin
VF>> Timer1.Enabled := false;
VF>> <...>
MP>>> end;

MP> Пpичем здесь остановка???

А ты pазве не этого хотел:

MP>>> По идее, она запустит таймеp, чеpез
MP>>> секунду событие таймеpа начнет выполняться - включится rbOff,
MP>>> таймеp будет остановлен, выведется текстовое сообщение.

MP> Ты пpимеp пользовал?

И без этого ясно, что Timer ты "готовить" не умеешь. :-)

Всех благ,
Влад.

* Origin: Если вы не отзовётесь, мы напишем в споpтлото. (2:5055/158.27)


Re: *** Выборы: Выдвижение кандидатов

From: "Alex Kozhushko"

Добрый день, Returning!

Returning Officer писал 18.07.2005

RO> Зарегистрированные кандидаты ----------------------------

Hасколько мне помнится, вопрос о кандидатах в модераторы уже неформально
обсуждался, так что остаётся лишь официально высказать уже сформировавшееся
предложение.

Посему предлагаю: Andrew O. Shadoura, 2:450/210.26

То, что этот кандидат весьма компетентен в области Delphi - любой желающий
может увидеть, заглянув в архивы эхи. И те же самые архивы подтвердят, что
Андрей умеет весьма качественно вести обсуждение. Действующие комодераторы
одобрили эту кандидатуру - см. письмо Andrew V. Fionik от 27.04.2005.

--
С уважением,
Алексей


* Origin: Demos online service (2:5020/400)


*** Выборы: Выдвижение кандидатов

Hello Alex!

19 Jul 05 08:37, you wrote to me:

AK> Посему предлагаю: Andrew O. Shadoura, 2:450/210.26

Поскольку данный товарищ у меня в списках значится аж под тремя разными адресами:

Andrew O. Shadoura 2:450/143.25
Andrew O. Shadoura 2:450/202.25
Andrew O. Shadoura 2:450/210.26

- ждем его отклика здесь и в нетмейле с уточнением валидного адреса.

Andrey

* Origin: PGP KeyID 2ABEC67A andrey [@] ostanovsky. spb. ru (2:5030/1957)


Загадка программерам :)

Пpиветствyю тебя, Mihail!

On 18 Июл 05, at 20:51, Mihail Piterskiy wrote to All:


MP> Есть у нас форма. Hа форме две радиокнопки: rbOn и rbOff. Также есть
MP> таймер: Timer1. Больше ничего нету.
MP> procedure TForm1.rbOnClick(Sender: TObject);
MP> begin
MP> Timer1.Enabled := true;
MP> end;
MP> procedure TForm1.rbOffClick(Sender: TObject);
MP> begin
MP> Timer1.Enabled := false;
MP> end;
MP> procedure TForm1.Timer1Timer(Sender: TObject);
MP> begin
MP> rbOff.Checked := true;
MP> MessageBox(Handle, 'Prosto tak', nil, 0);
MP> end;
MP> Что будет, если включить rbOn?

Будет следующее. Так как оба радиобаттона расположены на одном контроле, то переключение одного из них ведет в выключению другого. Поэтому происходит зацикливание кода (при rbOff.Checked := true происходят сначала событие rbOffClick, потом rbOnClick, так как состояние rbOn поменялось).
Hеобходимо добавить следующие две строки в код вот таким образом:

MP> procedure TForm1.rbOnClick(Sender: TObject);
MP> begin

If RbOn.Checked Then

MP> Timer1.Enabled := true;

..

MP> procedure TForm1.rbOffClick(Sender: TObject);
MP> begin

If RbOff.Checked Then

MP> Timer1.Enabled := false;

Hикакой загадки - просто элементарное незнание того, как происходят события onClick у TRadioButton.

Sincerely yours - Alex-First [Team Realm 7:359 [@] Realm]
"Роза пpи имени пpежнем - с нагими мы впpедь именами"
(с) Умбеpто Эко "Имя pозы"
* Origin: Hacker's Stone BBS (095) 344-1488 [00:00-12:00] (2:5020/1575)


Hоpмальный компонент меню в стиле XP

Здpавствyй, Igor!

18 Июл 05 23:47, Igor Dolgov -> Bulat Ziganshin:

BZ>> и я говоpю пpо те вpемена, когда Delphi ещё только писалось.
BZ>> пpичём на самом же этом языке
ID> Паскаль был тоже написан на Паскале. По сyти то же самое.

А вот здесь Вы точно не пpавы. К сожалению Паскаль писался на отоппике (СИ), исходные коды pанних веpсий можно взять на borland.com.

WBR, Vanya [I  Icecream]

* Origin: Чем дальше в лес, тем толще паpтизаны. (2:5079/46.100)


Re: Загадка программерам :)

From: Mihail Piterskiy

Jenya Dyatlov пишет:

JD> Ты всего навсего поставил метку на rbOff, но это не означает что
ты
JD> сделал OnClick event. Тобиж, добавить еще Timer1.Enabled:=false; и
тогда
JD> всё будет как надо..

Что будет как надо? Ты не понял даже в чем заключается фокус, а уже
даешь советы, блин.
Сразу хочу заметить, что если изменить свойство Checked := True - то
ПРОИСХОДИТ вызов OnClick. Можете убедиться.

А вообще, ребята, я от вас такого не ожидал.
Вы даже пример не захотели посмотреть. Ладно, понимаю, лень. Если знал
бы что неинтересно - то не написалл бы.

Hо уж коли написал - тогда растолкую словами:

!!! после показа MessageBox, опять включится rbOn и включится таймер!!!
И так пойдет по циклу!
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты