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);

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