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

ReadFile...   Найти похожие ветки 

← →
ValeX ©   (2002-08-02 18:13) [0]

функция выдрана из компонента 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) [1]

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

---

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

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



Память: 0.44 MB
Время: 0.015 c