Текущий архив: 2002.09.23;
Скачать: 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 вся ветка
Текущий архив: 2002.09.23;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
