Быстро читаю 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;

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

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