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

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

ReadFile... [D3]

ValeX ©   (2002-08-02 18:13:00) 

функция выдрана из компонента TCOMPort.

function TComPort.Read(var Buffer; Count: Integer): Integer;
var Overlapped: TOverlapped;
BytesRead: DWORD;
begin
FillChar(Overlapped, SizeOf(Overlapped), 0);
Overlapped.hEvent := CreateEvent(nil, True, True, nil);
ReadFile(ComHandle, Buffer, Count, BytesRead, @Overlapped);
WaitForSingleObject(Overlapped.hEvent, INFINITE);
if not GetOverlappedResult(ComHandle, Overlapped, BytesRead, False) then
raise EWriteError.Create("Unable to write to port: " + LastErr);
CloseHandle(Overlapped.hEvent);
Result := BytesRead;
end;

Читаю ей ответ от девайса в виде 22 дайт, а Result=1.
ПОЧЕМУ????

---

Набережных С.   (2002-08-02 20:31:00) [1]

Попробуй написать так:
Overlapped.hEvent := CreateEvent(nil, false, false, nil);

---

Наверх