Прочитать данные из com порта

← →
lexxvlad © (2002-03-15 06:17) [0]

Вот пример:
ClearCommError(hComm, ErrorMask, @ComStat);
if (FEventMask and EV_RXCHAR) > 0 then
begin
FRxCount := ComStat.cbInQue;
if FRxCount > 0 then
begin
FillChar(Ovr, sizeof(OverLapped), 0);
ReadFile(hComm, buffer, sizeof(buffer), Count, @Ovr);
// Проверяю GetLastError = ERROR_IO_PENDING
Error := GetOverlappedResult(hComm,Ovr,Count,False);
// Проверяю GetLastError = ERROR_IO_INCOMPLETE
For I:=1 to count do
Form1.Memo1.Lines.Add(inttostr(buffer[i]))
end
end;
Так вот, почему GetLastError = ERROR_IO_INCOMPLETE, в следствии чего естественно ничего из порта не читается?

← →
lexxvlad © (2002-03-15 06:44) [1]

FEventMask - произошедшее событие
FRXCount - cardinal
Ovr - OVERLAPPED

← →
Coalycat © (2002-03-15 14:18) [2]

Если Buffer : Array Of Byte, то SizeOf(Buffer) тебе даст 4 (размер Pointer). Используй Length(Buffer)

← →
limon © (2002-03-15 14:45) [3]

Ovr.hEvent := CreateEvent(...);
это нужно вставить перед чтением, тогда будет нормально работать GetOverlappedResult

Т.к. много вопросов по COM-портам, выложил в кладовку исходники TComPort от Dejan Crnila

спасибо за советы

Прочитать данные из com порта Найти похожие ветки