Comportdan veri okurken problem

[Sencer]

Kod: Tümünü seç

var
moment:string;
say,i:integer;
begin
suimemo1.Clear;
ComPort1.WriteStr('a');
comport1.ReadStr(moment,say);
suimemo1.Text:=moment;
edit1.Text:=inttostr(say);

yi kullanıyorum ama memo ya yazmıyo ama terminal ekranında gelen veriyi görebiliyorum
Gelen Veride V = 2560 gibi ama editbox a yada başka yere yazdıramıyom

[mkysoft]

okuma olayını comport'un veri geliş olayına yazmalusınız. Companentinizi bilemiyoruz ama büyük ihitmalle OnRecive olayıdır.

[Sencer]

comport kullanıyom yani cport adp de war onrecive yok ama

[Sencer]

yardım ardaşlarrr

[Sencer]

Kod: Tümünü seç

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
begin
memo1.Text:=memo1.Text+ApdComPort1.GetChar;
end;

arkdaşlar şimdide bu kodu kullanıyom V = 2560 mv Yazıyo masela bunun sadece 3. karakteri yazıyo 6yani[/code]

[mege]

aynı soruyu iki kere sormuşsunuz pek uygun değil
getchar adı üzerinde, tek karakter döndürüyor, orada birde count değişkeni var, okadar getchar çağırın.

Kod: Tümünü seç

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var I : integer;
begin

for I := 1 to Count do
  cRcvBuffer:= cRcvBuffer + ApdComPort1.GetChar;

end;

[Sencer]

halletim saolun char ı atlamışız