Цитата(Tech @ Oct 7 2005, 10:58)
Покажите, по возможности, значения всех полей структуры DCB, и кусок кода реализации цикла.
Собственно код иннициализации:
hCom = CreateFile("COM3", GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,0, NULL);
if (hCom == INVALID_HANDLE_VALUE)
{
Application->MessageBox...
return;
};
GetCommState (hCom, &dcb);
GetCommTimeouts (hCom, ×);
dcb.BaudRate = CBR_9600;
dcb.ByteSize = 8;
dcb.fParity = true;
dcb.Parity = MARKPARITY;
dcb.StopBits = ONESTOPBIT;
SetCommState(hCom, &dcb);
times.ReadIntervalTimeout = MAXDWORD;
times.ReadTotalTimeoutMultiplier = MAXDWORD;
times.ReadTotalTimeoutConstant = 5;
times.WriteTotalTimeoutMultiplier = MAXDWORD;
times.WriteTotalTimeoutConstant = 3;
SetCommTimeouts(hCom,×);
PurgeComm(hCom,PURGE_TXCLEAR);
PurgeComm(hCom,PURGE_RXCLEAR);
Кусок цикла:
uchar buff[9];
for (b=0x200; b<0x020000;b+=8)
{
for (i=0;i<8;i++) buff[i] = buffer[b+i];
if ( !SetData(buff, 9) ) return;
addr += 8;
}
Функция SetData:
bool TFMain::SetData( uchar* Buffer, uchar Amount)
{
ulong b;
uchar i;
Buffer[Amount-1] = 0;
for (i=0; i<(Amount-1);i++) Buffer[Amount-1] ^= Buffer[i];
WriteFile(hCom,Buffer,Amount,&b,NULL);
PurgeComm(hCom,PURGE_RXCLEAR);
ReadFile (hCom,&i,1,&b,NULL);
if ( (i==Buffer[Amount-1]) && (b==1) ) return true;
else return false
}