Скачать: CL | DM;

Подскажите плз как остановить процесс передачи   Найти похожие ветки 

← →
JTAG   (2005-12-07 11:33) [0]

Ситуация такая есть программа которая передает данные в 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:34) [1]

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

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

---

← →
Плохиш ©   (2005-12-07 11:36) [2]

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

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

---

← →
JTAG   (2005-12-07 11:41) [3]

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

---

← →
Плохиш ©   (2005-12-07 11:44) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c