обработчики в кучу

[CyberMerlin]

Function(@S);
таким макаром передается только указатель на s
если S не глобальная то фнкция не получит данные по завержению вызываемой функции
единственный способ самому выделить память (GetMem) куда запихнуть эту строку и передать спокойненько указатель
тем более что при вызове функций и процедур лучше всего в операнда (параметрах) передавать указатели на данные, а не сами данные - для оптимайза и ускорения работы - Марко Кэнту кажется
у меня случай именно с мультипоточностью, да еще и критическими секциями

а бесконечный цикл мне просто необходим - точнее их два
один постоянно опрашивает девайс
второй формирует запросы-пакеты и координирует повторными отправками, в случае пакетЛосса (патери пакета)

[SuperVisor]

Сообщение от CyberMerlin

Function(@S);
таким макаром передается только указатель на s
если S не глобальная то фнкция не получит данные по завержению вызываемой функции
единственный способ самому выделить память (GetMem) куда запихнуть эту строку и передать спокойненько указатель

Сообщение от CyberMerlin

тем более что при вызове функций и процедур лучше всего в операнда (параметрах) передавать указатели на данные, а не сами данные - для оптимайза и ускорения работы - Марко Кэнту кажется

Мне показалось или ты разговариваешь сам с собой? =) Я об этом и говорю ))

Сообщение от CyberMerlin

у меня случай именно с мультипоточностью, да еще и критическими секциями
а бесконечный цикл мне просто необходим - точнее их два
один постоянно опрашивает девайс
второй формирует запросы-пакеты и координирует повторными отправками, в случае пакетЛосса (патери пакета)

Зачем ПОСТОЯННО опрашивать девайс???? Выложи АЛГОРИТМ, по которому у тебя все работает.

[CyberMerlin]

//--------------------------------------------------------------- home --------------
// ñîáñòâåííî ïîòîê-ñêàíåð
//
procedure COMPort_wait;
var
TMask :cardinal;
P ointer; // ìåñòíàÿ îáðàáîòêà ïîëó÷åííîãî ÏÎÐÒÎÌ
begin
st :='';
while 1=1 do begin
If not WaitCommEvent(hCOM, TMask,@Ovr) then
If (GetLastError = Error_IO_Pending)and(WaitForSingleO bject(Ovr.hEvent, InfInite)=Wait_Object_0) then
if GetOverlappedResult(hCOM,Ovr,xb,tru e) then ResetEvent(Ovr.hEvent);
ClearCommError(hCOM,xn,@StatCOM); // ïîëó÷àåì ñîñòîÿíèå COM â StatCOM
If TMask = EV_RxChar then begin
xn :=StatCOM.cbInQue; // ðåàëüíîå êîë-âî áàéò â áóôåðå
GetMem(p ,SizeOf(TBuf_read));
FillChar(TBuf_read(p^).buf_b,Length (TBuf_read(p^).buf_b),#0);
IF ReadFile(hCOM,TBuf_read(p^).buf_b,x n,TBuf_read(p^).sizeBuf,@Ovr) then BEGIN
// îòñûë ìåñàãè ãë ôîðìå ×ÒÅÍÈÅ áóôåðà COM ïîðòà
If TBuf_read(p^).sizeBuf <> 0 then
SetThreadPriority(CreateTHread(nil, 0,@Rx_COM,p,0,id),THREAD_PRIORITY_a bove_normal)
ELSE FreeMem(p,SizeOf(TBuf_read));
END ELSE FreeMem(p,SizeOf(TBuf_read));
xn:=0;
end; //If TMask
end; // while bb
end;
//-------------------------------------------------------------------------- end ----

//--------------------------------------------------------------- home --------------
// получаем пакеты с порта
// param - TBuf_read - пакет полученный с порта
procedure Rx_COM(Param ointer){(Param :Pbuf_read)};
var // получаем пакеты с порта
ii :cardinal;
str_time :string;
pointer; p_time :PChar;
begin
EnterCriticalSection(cs);
try
State.f_OnLine :=true; // связь есть
T_new :=Time; // фиксируем время прихода байта
//While TxPackContr.Nt = 1 do SwitchToThread;
//If TxPackContr.Nt =1 then SuspendThread(Buffer_Tx_Port);
//TxPackContr.Nt :=10;

str_time :='';
For ii:= 1 to TBuf_read(Param^).sizeBuf do str_time :=str_time + chr(Tbuf_read(Param^).buf_b[ii]);
If not(State.b_Connected) then begin st:=''; str_time :=''; end;

это код который используетсо

[SuperVisor]

Может стоит поставить хук на систему, вместо того, чтобы постояноо мучать порт? И к тому же: первый поток создает второй??? И, как я понимаю, они создаются посредством WinAPI...
По мне нет ничего лучше собственноручного создания потока. В этом случае ты сможешь провести более глубокий дебаг и более точную отстройку взаимодействия потоков.
Плюс: Первый поток не дожидаясь забивает выделенную под указатель p память, а второй моет не успеть его использовать. Отсюда и может все пойти наперекосяк.
С какой ошибкой у тебя падает прога?

[CyberMerlin]

По мне нет ничего лучше собственноручного создания потока.

сам и создаю потоки и именно API
прога не вываливаетсо
просто поток №1 (отправляющий в порт данные и контролирующий доставку) сообщает что недоставлен пакет

Плюс: Первый поток не дожидаясь забивает выделенную под указатель p память

не забивает... там условие стоит когда это происходит

[CyberMerlin]

и как это смелать?
"я про хук"