Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Быстро читаю Com порт. Через некоторое время прога <вылетает>   Найти похожие ветки 

 
Kiddy ©   (2003-01-23 18:41) [0]

Быстро читаю Com порт, примерно раз в секунду. Через некоторое время (40-120 мин) прога <вылетает>. Причём каждый раз по разному. Иногда выдаёт "Программа выполнила недопустимую операцию...". Иногда просто ТИХО ЗАВЕРШАЕТСЯ (такого вообще раньше не встречал). Использовал разные компоненты. Кардинально менял код. Буферы очищаю. Мучаюсь уже больше месяца и никокого эфекта. В чём дело? Помогите!!!!!!!!!!!
Вод код:

procedure TForm1.tWriteTimer(Sender: TObject);
begin
com.Close;
com.Open;
tWrite.Enabled:=false;
Inc(NCom);
If NCom>27 then NCom:=1;
if not Par[NCom].OnOff then
Begin
checkst:="#"+Par[NCom].N_pr+StrNSens+#13; {Обнуление строки ответа}
com.WriteStr(checkst);
sleep(500);
end;
tWrite.Enabled:=true;
end;

procedure TForm1.comRxChar(Sender: TObject; Count: Integer);
var
st:String;
begin
com.readStr(st,Count);

delete(st,1,7);
if pos(".",st)<>0 {Если есть точка}
then st[pos(".",st)]:=","; {Смена ее на запятую}
if pos(#13,st)<>0 {Удаление символа #13}
then delete(st,pos(#13,st),1);
Dat[NCom].t:=now; {Значенее времени}
Dat[NCom].d:=st; {Данные}
MainIni(N); {Обновление главного листа}
ChartAdd(N); {Добавление точки в графики}
com.ClearBuffer(true,true);
end;

В чём может быть ошибка и почему Win98/2000 так себя ведут?


 
Kiddy ©   (2003-01-24 13:31) [1]

Что то не понял сути вопроса. Какой сервер? Это rs-232. К нему АЦП поключены...


 
oni   (2003-02-19 10:12) [2]

procedure TForm1.tWriteTimer(Sender: TObject);
begin
com.Close;
com.Open;
.............
A eto nuzno to otkrit, to zakrit ComPort?
Nelze oboitis bez: Sleep(500)?
I kakoi komponent u tiebe, u miene CPort264, on rabotaiet sutkami - i bez problem.


 
pasha676   (2003-02-19 13:57) [3]

Трудно сказать. Но вроде налицо по симптомам переполнение приемного буфера порта. Трудно сказать, потому что с этим компонентом не работал. Но симптомы были когда то примерно такие же. Да и еще. Нафига sleep(500).
Ведь за это время в порт может чей-нибудь упасть. А если умудряться упасть две приемные строки?


 
Andrey S   (2003-02-19 15:30) [4]

Проблема с открытием/закрытием.

procedure TComThread.Execute;
............
CloseHandle(Overlapped.hEvent);
// CloseHandle(FStopEvent); // закомментируй
end;

// destroy thread
destructor TComThread.Destroy;
begin
Stop;
CloseHandle(FStopEvent); // а закрытие перемести сюда
inherited Destroy;
end;

Мне такое помогло, может и тебе поможет



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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
14-44441
Антон
2003-03-24 14:33
2003.04.14
Разница между компиляторами


9-43974
Илайдж
2002-11-11 11:58
2003.04.14
Масштабирование картинки...


14-44323
Stas
2003-03-25 13:48
2003.04.14
XML


4-44505
Xi2
2003-02-12 20:07
2003.04.14
Как узнать IP на компе


7-44484
NetKnight
2002-12-04 16:06
2003.04.14
Program Shortcut ?