1,316
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)
{
idtlnt1->Host="192.168.12.56";
idtlnt1->Port=23;
idtlnt1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::idtlnt1DataAvailable(TIdTelnet *Sender, const UnicodeString Buffer)
{
mmo1->Lines->Add(Buffer);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn2Click(TObject *Sender)
{
AnsiString cmdtxt="root";
if(idtlnt1->Connected())
{
mmo1->Lines->Add("Connect successful!");
for(int i=1;i<=cmdtxt.Length();i++)
{
idtlnt1->SendCh(cmdtxt[i]);
}
idtlnt1->SendCh(13);
}
else
{
mmo1->Lines->Add("Connect fail!");
}
}