Скачать: CL | DM;

Прочитать данные из 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

---

← →
limon ©   (2002-03-15 15:38) [4]

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

---

← →
lexxvlad ©   (2002-03-18 08:38) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c