Скачать: CL | DM;

Вопрос по компоненте AsyncPro. Не могу понять почему не   Найти похожие ветки 

← →
iNew ©   (2002-12-04 08:12) [0]

происходит событие VaComm1RxChar. Делаю так:
procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer);
var
I: Integer;
Tmp: string;
begin
//read data from comport
Tmp := VaComm1.ReadText;

//debugging log...
Memo2.Lines.Text := Memo2.Lines.Text + Tmp;

for I := 1 to Length(Tmp) do
case Tmp[I] of
#10:; //skip this one
#13: //Waiting for this?
begin
DoEvent(FMessage);
FMessage := ""; //reset received message
end;
else //not #10 or #13
FMessage := FMessage + Tmp[I];
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
VaComm1.PortNum:=2;//StrToInt(Edit1.Text);
VaComm1.Open;
VaComm1.WriteChar("a");
end;

---

← →
Reindeer Moss Eater   (2002-12-04 08:56) [1]

Оно не происходит потому, что в AsyncPro его нет

---

← →
iNew ©   (2002-12-04 09:42) [2]

Как это нет. Есть компонент VaComm, у него есть событие OnRxChar.

---

← →
Reindeer Moss Eater   (2002-12-04 09:44) [3]

Может и есть, только не а AsyncPro

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c