| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по компоненте AsyncPro. Не могу понять почему не [D6, Win95/98]

iNew ©   (2002-12-04 08:12:00) 

происходит событие 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 09:44:00) [1]

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

---

iNew   (2002-12-04 09:42:00) [2]

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

---

Reindeer Moss Eater   (2002-12-04 08:56:00) [3]

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

---

Наверх