Затык с Com-портом...

[Shaienn]

Добрый день, не могу понять затыка в функции обработки потока данных с ком порта. Условие if (dwBytesTransferred==100) никогда не наступает

void __fastcall T::Execute()
{
	Cominit();
	SendMessage(Form1->Handle,Info,0,7);
	do
	{
		while (hCom != INVALID_HANDLE_VALUE)
		{
			WaitCommEvent (hCom, &dwCommModemStatus, 0);
			SetCommMask (hCom, EV_RXCHAR);
			 if (dwCommModemStatus & EV_RXCHAR)
					 {
					  ReadFile (hCom, &Byte, 100, &dwBytesTransferred, 0);
                      Form1->CheckBox1->Checked = True;
					  if (dwBytesTransferred==100)
							{
							memcpy(Buff,Byte,sizeof(Buff));
						    SendMessage(Form1->Handle,Data,(long)dwBytesTransferred,(long)&Buff);
							dwBytesTransferred = 0;
							Form1->CheckBox2->Checked = True;
							}
					}
		}
	}
	while(!Terminated);
	CloseHandle(hCom);
}

[Stilet]

никогда не наступает

А вообще из порта чтение идет? Мож не 100 байт приходит а меньше.

[raxp]

а размер буфера вы где выставили?
...уберите проверку и выведите в memo что у вас идет

[Shaienn]

Весь вопрос в том, что при пошаговом исполнении все работает как надо.

Проверял другим терминалом, данные в порт идут непрерывно.

Размеры буфера выставил здесь:

//---------------------------------------------------------------------------

#ifndef THREADH
#define THREADH
//---------------------------------------------------------------------------
#include <Classes.hpp>
//---------------------------------------------------------------------------
class T : public TThread
{
private:
	void __fastcall Cominit(void);
protected:
	void __fastcall Execute(void);
public:
	__fastcall T(bool CreateSuspended);
	int i;
   DCB dcb;
   HANDLE hCom;
   BOOL fSuccess;
   DWORD dwCommModemStatus, dwBytesTransferred;
   char Byte[100],Buff[100];
};
//---------------------------------------------------------------------------
#endif

Если честно, то код работал. Потом что-то произошло (может быть я чего-то изменил) и работать перестал. Пошагово все накапливается и вызывается функция SendMessage, а в реалтайме программа не накапливает 100 байт (и даже 2). Что-то появляется только при if (dwBytesTransferred==1)...

[raxp]

может вы где-то просто поток тормозите-останавливаете, да оно и не успевает? для теста сделайте отдельно не в потоке...

[Shaienn]

Пришел сегодня на работу, все запустилось
Может компьютер глючил?

Всем спасибо