Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
ВнизВопрос по компоненте 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c