<%@Language=VBScript%> C++爱好者

 

Victor 控件使用方法详解 - TYbCommDevice

文本收发

利用 Read 和 Write 方法可以发送和接收文本数据。
利用 Read 和 Write 方法, 可发送和接收任意类型的数据。

例, 文本数据的收发:

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
    try
    {
        YbCommDevice1->PortNo = 1; //COM1
        YbCommDevice1->Active = true;
    }
    catch(Exception &e)
    {
        ShowMessage("YbCommDevice1: "+e.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonSet1Click(TObject *Sender)
{
    YbCommDevice1->SettingsDialog(this,true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonSend1Click(TObject *Sender)
{
    YbCommDevice1->Write(Memo1->Text.c_str(), Memo1->Text.Length());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    //收到的字节数不会超过串口缓存的容量, 所以分配一个缓存容量相同的Buf
    char Buf[8192+1]; //多一个字节用来保存文本(字符串)的结束符
    int n = YbCommDevice1->Read(Buf,8192);

    if(n>0) //收到字节数
    {
        Buf[n] = 0; //添加一个文本结束符 '\0'
        Memo2->Text = Memo2->Text + Buf;
    }
}
//---------------------------------------------------------------------------

返回 TYbCommDevice

C++ 爱好者
-- Victor Chen 的个人主页
网址: http://www.cppfans.com/
Email: victor@cppfans.com
本站可以互相交换相关内容网站的链接
本站拒绝任何毫无相关的广告和链接