Форум: "Система";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
ВнизПрочитать данные из 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 вся ветка
Форум: "Система";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c