У меня такая трабла. Начал писать прогу асинхронного I/O - типа терминалки. Алгоритм стандартный OVERLAPPED. В главном потоке приложения отправляю AT комманду WriteFile'ом. Для чтения (ReadFile) из порта запускаю отдельный поток. Процедура треда выглядит более или менее стандартно у всех:
| Код |
procedure TSimpleThread.Execute;
var
Overlapped : TOverlapped;
begin
FillChar(Overlapped,SizeOf(TOverlapped),0);
Overlapped.hEvent:= CreateEvent(nil,True,False,nil);
...
...
while not Terminated do
begin
if not WaitCommEvent(hCom,EventMask,@Overlapped) then begin
if GetLastError = ERROR_IO_PENDING then begin
Signal := WaitForSingleObject(Overlapped.hEvent,INFINITE);
if (Signal = WAIT_OBJECT_0 + 1)
then GetOverlappedResult(hCom,Overlapped,Readed,False)
end;
end;
ClearCommError(hCom, ErrorMask, @CStat);
if (EventMask and EV_RXCHAR)=EV_RXCHAR then //Если пришли данные...
begin
Quelen := CStat.cbInQue;
ReadFile(hCom,Buff,Quelen,Readed,@Overlapped); // ...то читаем их в Buff
if Readed > 0 then // Если это что-то ненулевое
begin
Move(Buff,RecivBuff[CntByte],Readed); //..то мы его накопляем в RecivBuff
Inc(CntByte,Readed); //увеличить счётчик принятых
...
...
end;
end;
end;
...
...
end;
|
Все это вроде бы работает. Из порта приходят данные и копятся в RecivBuff (array[0..255] of Char), НО ответ на AT команду приходит не за одно событие EV_RXCHAR, а за несколько (каждый раз по разному) например сначала может прийти 2 байта потом 40 потом 12  Проблема: как в потоке чтения узнать что данные пришедшие за несколько EV_RXCHAR все вместе составляют ответ на АТ команду. Т.е. TSimpleThread.Execute должен передать в главный поток готовую строку ответа а не кусок строки(как это сделано во многих примерах). КАК??? или может че то не так понял...
p.s. В исходниках XModem и некоторых других я видел какие то действия с таймером и GetTickCount но до конца не разобрался. Хочется написать самому поэтому не хочу пользовать готовые компоненты и библиотеки.
|
. 
)