apdcomport seri hab. sorunu

[Kaptan]

Selamlar.
Seri porta bağlanan bir infrared alıcı yaptık. Ve girder programını kurduk . Kumanda programa veri gönderiyordu fakat program veriyi alınca hata ortaya çıkıyordu kapanıyordu.
Arayarak delphi ile seri bağlantı programı yaptım.

Kod: Tümünü seç

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
I : Word;
C : Char;
S : String;
begin
S := '';
for I := 1 to Count do begin 
C := ApdComPort1.GetChar;
case C of
#0..#31 : {ekrana bunlar gelmesin} ;
else S := S + C;
end;
end;
Memo1.Text:=memo1.Text+s;
end;

Bir memo ekledim ve bu kodları yerleştirdim. Fakat kumanda ile veri gönderiyorum tık yok. Hiçbir kod gönderilmiyor. Ne yapmamı tavsiye edersiniz?
Teşekkürler.

[Kaptan]

ApdComPort1.open=true da yaptım bu arada. Neden olmadı anlamadım. Bir önerisi olan yok mu?

[Kaptan]

Fikri olan yok mu?

[rsimsek]

Daha önce de belirtildiği gibi Hyper Terminal programı ile test etmelisin. Bir de en önemlisi yaptığın devrenin gönderim bant genişliği (BaudRate) i bileşeninki ile uyumlu mu? Bunu anlamak için değişik bant genişlikleri 9600, 1440,vs verip denemelisin.

[Kaptan]

Merhaba.
Hyper terminalin kullanımını bilmiyorum. Biraz kurcaladım ama veri gitmedi sanırım. Remote control programını kurdum. Onda veri gidiyor. Yeni comut oluşturacağımız zaman tuşa basıyorum yeşil ışık yanıyor , sanırım eğer tekrar yeşil ışık yanarsa komutu kabul ediyor , yanmazsa ilk komut ile ikinci komut aynı değil diyor. Artık bant genişliği sorunu mu var yoksa frekans uyumu vs. mi var bilemiyorum. Tv kumandaları ile denedim.

[uğur alkan]

biraz önce bir deneme anında kodunu kullandım ilk başta gerçekten çalışmadı.

sonra formun crate olayına şunu yazdım gayet güzel çalışıyor.
port autoopen 'le açılmıyor. Dışarı veri gönderdiğin zaman aktif oluyor.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.ApdComPort1.Open:=true;
end;