VPF::Socket.SendText - Форум программистов

BLACK_KOT

Дата 2.8.2008, 11:16 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: -1
Всего: -1

Код


procedure p1(comanda:string);
begin
form1.ClientSocket1.Socket.SendText(comanda);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
p1('RMouse')
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
p1('RMouse')
end;

клиент посылает команду серваку через таймер и через нажатие кнопки для имитации нажатия правой клавишей мыши на серваке. через таймер всё безупречно - один интервал - одна посланная команда. а вот с кнопкой творится чёт не вообразимое -при нажатии происходит отправка этой команды не единожды, а многократно (по разному - в широком диапазоне - полный рандом). как это устранить? чтоб при нажатии кнопки или другом событии, к примеру клик на форме клиента, команда на сервер уходила б только один раз??

--------------------

.. я - демо версия Бога от Microsoft..

morpheyushka

Дата 4.8.2008, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: нет
Всего: 8

попробуй может описать это в событии OnMouseUp

--------------------

Спасибо делается вот так!!!

Poseidon

Дата 5.8.2008, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

Цитата(BLACK_KOT @ 2.8.2008, 11:16

)

вот с кнопкой творится чёт не вообразимое

А таймер в это время отключен?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »