comporttan veri gönderiyorum ama alamıyorum

[capella]

Merhaba arkadaşlar ben comporttan veriyi gönderebiliyorum şu şekilde

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
if comport1.connected=false then comport1.connected:=true;
if comport1.connected=true then
begin
 comport1.WriteStr('1');
end
else
begin
showmessage('başarısız');
end
end;

sorunsuz bir şekilde ama cevaıbı alamıyorum
. cevabın ise geldiğini şu şekilde anlıyorum.

kullandığım comportun comport terminal diye bir nesenesi var ondan bilgini geldiğini görüyorum

rrr diye ama bilgini ne zman geleceği belli değil..
bense buna karşılık şöyle bişi yazdım

Kod: Tümünü seç

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
begin 
ComPort1.ReadStr(deger, Count); 
edit1.Text:=deger; 
end; 

ama bir türlü gelen değeri alamıyorum aynı şeyi onrxbuf eventi ile denedim orada bilgi geliyoama memya veya edit'e boş olrak gönderiyo yani sadece bu event ilede bilgigeldiğini anlayabiliyorum ama benim amacım gelen bilgiye göre yordam yapmak teşekkürler..

[Lost Soul]

Yazdığın kodlardan TComport kullandığını varsayıyorum.
Ekte kendi yazdığım bir program var ve sorunsuz çalışıyor.

HyperT.rar

Comport Programı

(31.46 KiB) 122 kere indirildi

programda okuma işini yapan blok şu şekilde

Kod: Tümünü seç

procedure Tmain.ComPortRxChar(Sender: TObject; Count: Integer);
var
  XStr: AnsiString;
  i: Integer;
begin
  ComPort.ReadStr(XStr, Count);
  Memo.Text := Memo.Text + XStr;
  Memo.Perform(WM_VSCROLL,SB_BOTTOM,SB_THUMBTRACK);

end;

Delphi 2010 da yazdım alt sürümünde kullanacaksan dproc dosyasını silip dpr den aç.

Bir de comport ayarlarında flow control hardware seçili ise software veya none yaparak bağlanmayı dene.
Zira hardware dendiğinde

PIN 4 DTR I Data Terminal Ready
PIN 6 DSR O Data Set Ready

PIN 7 RTS I Request To Send
PIN 8 CTS O Clear To Send
bacakları ile data gönderildi kontrolü sorgulanıyor. İlgili bacaklar 1 değil ise veri gelmediğini sadece parazit olduğunu varsayıyor.

[capella]

söylediğinizi yaptım, ama sonuç aynı....problem devam ediyorum...