| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите плз как остановить процесс передачи [D7, XP]

JTAG ©   (2005-12-07 11:33:00) 

Ситуация такая есть программа которая передает данные в com порт в цикле. Происходит это так жму на кнопку и данные идут постоянно. Теперь хочу сделать чтобы при нажатии на туже кнопку передача останавливалась
Вот процедура обработки нажвтия на кнопку
procedure TForm1.Button12Click(Sender: TObject);
begin

if Button12.Caption= 'Terminate' then
                                  begin
                                  Button12.Caption:= 'Program';
                                  чего сюда написать чтобы программа         прекращала посылать данные
                                  end;
Button12.Caption:= 'Terminate';

while(1) do
посылаем данные

end

---

Плохиш   (2005-12-07 11:44:00) [1]

> JTAG   (07.12.05 11:41) [3]
> :)) прикольно

Ты смейся, смейся. Проект-то у тебя стоит.

---

JTAG   (2005-12-07 11:41:00) [2]

:)) прикольно

---

Плохиш   (2005-12-07 11:36:00) [3]

Хотя попробуем без телепатора

if Button12.Caption= 'Terminate' then
                                 begin
                                 Button12.Caption:= 'Program';
                                 PeredatchaStojRazDwa := true;
                                 end;

---

Плохиш   (2005-12-07 11:34:00) [4]

> чего сюда написать чтобы программа         прекращала посылать
> данные

Телепатор на профилактике, в последнне время слишком часто использовать приходиться, не справляется.

---

Наверх