Работа с СОМ портом

[rodionov_uv]

Всем привет!!!!!!!
Столкнулся с проблемой работы программы в отдельном потоке (раньше с этим дело не имел), а именно: мне нужно -> послать в СОМ порт запрос -> получить ответ -> если ответ равен 43 байтам, послать ещё пару запросов и получить на них ответ. А у меня получается -> запрос, а ответ может придти после третьего запроса, причем сразу на три этих запроса, а может и сразу после запроса и получается куйня. Куски из кода прилагаю

procedure TNewThread.Execute;
var
i, q, j, k: Integer;
s, str, sum, xOut: String;
x: Byte;
PLC1, PLC2, PLC3: TStringList;
pop: array of Byte;
WritteBuffer: array[1..21] of Byte;
ReadBuffer: array[1..43] of Byte;
BytesWritten, BytesRead: DWORD;
begin
  if PortConnect = True then  //функция открытия СОМ порта
  if InitModem = True then  //функция дозвона модема
  begin

    .............................

    for q := 1 to 3 do  //цикл поиска в трёх устройствах
    begin
      MyForm.LogMemo.Lines.Add('');
      MyForm.LogMemo.Lines.Add(TimeToStr(Now) + ' : Начинаем поиск.....');
      for i := StrToInt(MyForm.AdrPLC1.Text) to StrToInt(MyForm.AdrPLC2.Text) do  //цикл поиска в устройстве в ячейках памяти
      begin

       .................................  //здесь идёт преобразование запроса

        WriteFile(Port, WritteBuffer[1], Length(WritteBuffer), BytesWritten, nil);  //запрос в СОМ порт
        ReadFile(Port, ReadBuffer, SizeOf(ReadBuffer), BytesRead, nil); //ответ из СОМ порта
       
       .............................  //Здесь идёт проверка на принятый ответ и вот здесь получается куйня
       
        if BytesRead = 43 then
        begin
        
        .............. //Остальной запрос
          
        end;
 
     ....................... //Закрытие СОМ порта, перезагрузка модема   

end;

А если я это делаю не в потоке, то у меня всё работает как надо, за исключением того, что приложение зависает минут на тридцать, а то и больше пока идёт цикл.

[northener]

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

Куски из кода прилагаю

А полный код приложить ФСБ или ФБР запрещают?
А по сути - код не годится для использования в доппотоке. Ибо есть обращения к VCL компонентам, которые по определению не потокобезопасны.
Есть явное непонимание работы с асинхронным устройство типа СОМ-порт. Ожидание что функция ReadFile вернет именно то, что вам хочется.

[Pavia]

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

а ответ может придти после третьего запроса, причем сразу на три этих запроса, а может и сразу после запроса и получается куйня. Куски из кода прилагаю

Похоже на то, что у вас несколько потоков одновременно пишут в один порт.

[rodionov_uv]

northener
Просто я не программист, а программы пишу для себя (для работы) и выставлять на показ ужасный код ........ Мне бы лишь бы работало.

Если вставляю Sleep(2000), то всё работает, но скорость падает раза в четыре

...................
 WriteFile(Port, WritteBuffer[1], Length(WritteBuffer), BytesWritten, nil);  //запрос в СОМ порт
Sleep(2000);
 ReadFile(Port, ReadBuffer, SizeOf(ReadBuffer), BytesRead, nil); //ответ из СОМ порта
....................

[rodionov_uv]

Вот полный код, сильно не пинайте.

Всё работает, только медленно.