gesper
Сообщений: 8
Оценки: 0
Присоединился: 2004-10-02 04:50:58
|
тут писть прогу на Delphi, которая ловить сигналы пульта ДУ решил попробовать.. ну в общем подключиться к ИК устройству получилось через ком порт..
считывать данные пока для эксперимента пробовал ток так
===============================
procedure TForm1.Button3Click(Sender: TоЬjесt);
var BytesWritten: DWORD;
s: string;
d: array[1..1500] of Char;
BytesRead: DWORD;
i: Integer;
Result: string;
begin
Result := '';
if not ReadFile(f, d, SizeOf(d), BytesRead, nil) then
begin
MessageDlg('Ошибка чтения!', mtError, [mbOK], 0);
exit;
end;
s := '';
for i := 1 to BytesRead do //Считываем ответ от телефона
s := s + d; <BR> Result := inttostr(length(s));<BR> //if Result<>'0' then<BR> Memo1.Lines.Add(Result); //Выводим ответ от телефона в Memo<BR>end;<BR>==========================================<BR><BR>Кто может подсказать как определить что ДУ мне посылает ? <BR>и есть еще способы считать данные в более удобном виде?
|
Как разобраться с считыванием кодов ИК пульта - 
