Всем привет срочно нужно перевести одну процедуру с С++ на Делфи помогите плз
Код:
void ReadData()
{
BYTE szBuffer[256];
DWORD dwEvtMask;
DWORD dwError;
DWORD dwBytes;
COMSTAT csStat;
OVERLAPPED o;
o.hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
int nCount;
char strTemp[128];
for(nCount=0;nCount<128;nCount++)strTemp[nCount]=0;
nCount=0;
for (; ;)
{
ResetEvent(o.hEvent);
if (!WaitCommEvent(m_hComm, &dwEvtMask, &o))
{
if(kbhit())break;
Sleep(100);
}
if (dwEvtMask & EV_BREAK)break;
else if (dwEvtMask & EV_RXCHAR)
{
ClearCommError(m_hComm,&dwError, &csStat);
ResetEvent(o.hEvent);
if (!ReadFile(m_hComm, szBuffer, csStat.cbInQue, &dwBytes, &o))
{
//if (WaitForMultipleObjects(2, Handles, FALSE, INFINITE) == WAIT_OBJECT_0+1)break;
Sleep(50);
if(kbhit())break;
}
for (UINT i = 0; i < csStat.cbInQue; i++)
{
if(szBuffer[i]==13)
{
printf("\n%s",(char *)strTemp);
for(nCount=0;nCount<128;nCount++)strTemp[nCount]=0;
nCount=0;
}
else
{
strTemp[nCount]=szBuffer[i];
nCount++;
}
}
if(nCount>64)
{
for(nCount=0;nCount<128;nCount++)strTemp[nCount]=0;
nCount=0;
}
}
}
}