katsoha

Application.ProcessMessages не помогает

Воyт здесь у тебя зацикливается я так понимаю, попробуй усыплять прогу на секунду хотя бы не помогает Добавлено спустя 1 минуту 36 секунд: попробую

Доброго времени суток господа! Имеется программа передачи данных по LPT порту для Win XP. Все работает, данные передаются, но проблема в том что когда клиент не отвечает программа переходит в режим ожидания клиента (в данном случае бесконечный цикл). Необходимо сделать так, чтобы программа останавливалась и выходила по кнопке "Выход". Если программа в бесконечном цикле, то на кнопку она не реагирует. Проект если что скину. Заранее благодарен !!! procedure TForm1.Button2Click(Sender: TObject); begin memo2.clear; ProgressBar1.position:=0; Label6.Caption:=inttostr(0); Label4.Caption:=inttostr(0); { for i:=1 to 100000 do symv:='';} AssignFile(f,paramStr(1)); reset(F); i:=0; flag:=true; while not EOF(F) and flag=true do begin read(f,ch); // Memo1.Text:=memo1.Text+c; if ch<>#10 then begin if ((symv[i-3]<>'M') or (symv[i-2]<>'0') or (symv[i-1]<> '2')) then begin symv:=ch; inc(i); end else begin flag:=false;{----------------------------------------------------------} symv:=#13; inc(i); end; end; end; p:=i; ProgressBar1.max:=p; Label6.Caption:=inttostr(round(i/1000)); for i:=0 to p-1 do//while not EOF(F) do begin repeat if not(d) then Label2.Font.Color:=clred; Label2.Caption:= 'Ожидание готовности станка'; Application.ProcessMessages(); d:=pin10; // delayUS(300); Until (d); ProgressBar1.position:=i; Label4.caption:=inttostr(round(i/p )); if symv<>#13 then Begin {***************************** Отправка данных ********************************} Закрыть _________________

Тоже интересует???

Пишите тут тоже интересно, а то с этими сертификатами жуть какие цены стали

Не отказался бы принять в дар! БУДУ очень признателен!

Помогите не могу настроить? Может кто нить настраивал?

А Хонду Аккорд или Торнео SIR T как вариант не расматриваешь!? Тоже резвый аппарат и коней 200 там! Алтеза задний привод - тяжеловато да и стоимость великовата, у субарика движка аппозитная , 4 ВД - жрёт уйму бенза тем более турбовая, а целика маловата, только попу с девочкой катать!!

самодиагонстика на ФИТах: проволкой замыкаем 9 и 4 контакты в диагностической колодке, который расположен над левой ногой водителя, далее на панели считаем длинные/короткие мигания и ищем свой код в мануале! мануал выложу позже... а вообще вот здесь все доступно описано: http://honda-fit.ru/forums/index.php?showtopic=3495&hl=%F1%F7%E8%F2%E0%F2%FC+%EE%F8%E8%E1%EA Мануал не выложишь??

Пмогите плизззз!!! Помогите пожалуйста у мну не работает, просто модем настроен в режиме роутера помогите как там быть, если убираешь диапозон 92.126.144.0 - 212.0.63.255 то конектиться на улановку, так как якобы адресс улановки 127.0.0.1 http://ulanovka.ru/uploads/old_images/users/3320/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8F%D0%BD%D0%BD%D1%8B%D0%B9_cc49a8a6a359a29ec3f22ca305dcc009.JPG

Помогите пожалуйста у мну не работает, просто модем настроен в режиме роутера помогите как там быть, если убираешь диапозон 92.126.144.0 - 212.0.63.255 то конектиться на улановку!! Использую зон аларм http://ulanovka.ru/uploads/old_images/users/3320/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8F%D0%BD%D0%BD%D1%8B%D0%B9.JPG

СПС всем!

А ни у кого нет устройства считьывания кода ошибки, за 1 диагностику полторы штуки отдавать совсем не хочется! Машина теперь изредка глохнуть даже начала на неровностях

Скажите что случилось???

Напишите ваш почтовый ящик, вышлю вам резюме !