| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

lexxvlad ©   (2002-03-15 06:17:00) 

Вот пример:
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-18 08:38:00) [1]

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

---

limon   (2002-03-15 15:38:00) [2]

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

---

limon   (2002-03-15 14:45:00) [3]

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

---

Coalycat   (2002-03-15 14:18:00) [4]

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

---

lexxvlad   (2002-03-15 06:44:00) [5]

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

---

Наверх