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 диагностику полторы штуки отдавать совсем не хочется! Машина теперь изредка глохнуть даже начала на неровностях

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

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

Правда не про парты но все равно Если ты насрал зараза, Дерни ручку унитаза, Если нету таковой Протолкни гавно рукой

Не устраивала потому что кодировка другая становилась, теперь разобрался пасиба всем!

Пасиба большое ! Разобрался

Нормального конвектора не нашёл ! Неужели самому писать !

Пробовал, не помогает, хотя DBFView v1.1 просматриваеься нормально

Как перегнать данные из Ecxel в DBF?

Имеется ДБФ файл, когда прицепляешь его с помощью DataSourse, Table в DBGridе имена полей отображается нормально, а записи в виде решёток, нормально отображаються только цифры! Как это можно испроавить и что не так???

Можно сделать и так. Встать где нить возле фонтана и смотреть в небо, тыкая при этом пальцем в небо и малень удивленно разговаривать ! Люди проходящие мимо тож засмотряться и ещё спросят , что случилось

СПС тебе XP за новый музон, всё понравилось почти , оссобенно Rus Dance !!!!

А если я не выгляжу на 18+, это мало значительный фактор что я прийду довольно приличном виде и севушкой, причины мне могут и не объяснить !!! И кстати будет ли всё бесплатно как тна Улановке 2.0 ???