ИК-приёмник и COM порт

[Terran]

Всем привет! У меня возникла проблемка с чтением данных из COM порта. Я спаял ИК- приёмник и подключил его к COM порту. Проверил его различными программами, всё работает и принимает сигнал с пульта. Я пытаюсь прочитать с него сигнал через Delphi, но никаких признаков сигнала нету. ИК- приёмник подключён к COM1. Я пытался прочитать сигнал так:

var
hCom,Errors,Bytes:Cardinal;
DCB:TDCB;
TheStruct:TCOMSTAT;
buffer:string;
procedure TForm1.FormCreate(Sender: TObject);
Begin
hCom:=CreateFile('COM1',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if hCom=INVALID_HANDLE_VALUE then begin
exit;
end;
SetupComm(hCom,1600,1600);
GetCommState(hCom,DCB);
with DCB do
begin
BaudRate:=115200;
ByteSize:=8;
Parity:=NoParity;
StopBits:=OneStopBit;
end;
if not SetCommState(hCom,DCB) then
begin
CloseHandle(hCom);
exit;
end;
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClearCommError(hCom,Errors,@TheStruct);
if TheStruct.cbInQue>0 then
begin //что-то пришло
SetLength(buffer,TheStruct.cbInQue);
ReadFile(hCom,buffer[1],TheStruct.cbInQue,Bytes,nil);
SetLength(buffer,Bytes);
//прочитано: buffer
Label1.Caption:=buffer;
end;
end;

Подскажите, пожалуйста, как правильно прочитать сигнал с пульта?

[ov_lab]

Сообщение от Terran

Я пытался прочитать сигнал так:

var
hCom,Errors,Bytes:Cardinal;
procedure TForm1.FormCreate(Sender: TObject);
Begin
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClearCommError(hCom,Errors,@TheStruct);
if TheStruct.cbInQue>0 then
begin //что-то пришло
SetLength(buffer,TheStruct.cbInQue);
ReadFile(hCom,buffer[1],TheStruct.cbInQue,Bytes,nil);
SetLength(buffer,Bytes);
//прочитано: buffer
Label1.Caption:=buffer;
end;
end;

Подскажите, пожалуйста, как правильно прочитать сигнал с пульта?

Локальная переменная hCom недоступна в процедуре TForm1.Timer1Timer.
hCom надо сделать глобальной!

[Terran]

Локальная переменная hCom недоступна в процедуре TForm1.Timer1Timer.
hCom надо сделать глобальной!

Я её вынес из процедуры

procedure TForm1.FormCreate(Sender: TObject);

Пробовал просто её объявлять и так:

var
  Form1: TForm1;
  hCom,Errors,Bytes:Cardinal;

Результат один и тот же. Переменная hCom у меня имеет значение 1880.

[Black Fregat]

А какими программами проверял? Напрямую с компорта читал каким-нибудь COM Port Toolkit?

[Terran]

А какими программами проверял?

WinLIRC, SlyControl.
Я скачал вашу программку и попробовал в ней что-нибудь сделать. При захвате и просмотре никакие данные не отображаются, только в правом нижнем углу при нажатии на кнопку начинает мигать зелёное окошко с надписью DCD - высокий. Я заметил, что оно мигает по разному, в зависимости от нажатой кнопки.

[Terran]

Я тут посмотрел и пришёл к выводу, что нужно читать данные с DCD устройства через COM порт. Может кто-нибудь знает как их считать?

[Terran]

Всё, разобрался с этой проблемой. С DCD входа сигнал можно считать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
ModemStat: Cardinal;
Begin
GetCommModemStatus(HCom,ModemStat);
If (ModemStat And MS_RLSD_ON) <> 0 Then
Begin
Label1.Caption:='1';
End
Else
Begin
Label1.Caption:='0';
End;
End;

Может кому-то пригодится.
Спасибо всем, кто откликнулся!

[SemCold]

спс за код.
Terran
привет, слушай, помоги пожалуйста с др. кодом, я спаял ик-приемо-передатчик, с помощью winlirk проверил, все работает, нужна срочно своя программа, очень простая, чтобы в окошке показывался код входящего сигнала, и чтобы этот сигнал можно было запомнить и отправить через передатчик. На счет приёма попробую твой код, но как с передачей этого сигнала быть не знаю (((

[SERG1980]

А почему не хотим готовый компонент ком порта использовать!?

[SemCold]

что за компонент?