debugform.cpp

网络编程的一些实例

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "DebugForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtEchoClick(TObject *Sender)
{
    //设置标准属性
    NMEcho1->Host = Host->Text;
    NMEcho1->TimeOut = StrToInt(TimeOut->Text);
    if(Override->Checked)
        NMDayTime1->Port = StrToInt(Port->Text);
    else
        NMDayTime1->Port = 7;

    NMEcho1->ReportLevel = Status_Basic;

    // 建立连接
    NMEcho1->Connect();
    Output->Clear();
    for(int i = 0; i < Input->Lines->Count; i++)
        Output->Text = Output->Text + NMEcho1->Echo(Input->Lines->Strings[i]);
    NMEcho1->Disconnect();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtDayTimeClick(TObject *Sender)
{
    NMDayTime1->Host = Host->Text;
    NMDayTime1->TimeOut = StrToInt(TimeOut->Text);

    if(Override->Checked)
        NMDayTime1->Port = StrToInt(Port->Text);
    else
        NMDayTime1->Port = 13;

    NMDayTime1->ReportLevel = Status_Basic;

    Output->Text = "The Current Date and Time is : "+NMDayTime1->DayTimeStr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtTimeClick(TObject *Sender)
{
    NMTime1->Host = Host->Text;
    NMTime1->TimeOut = StrToInt(TimeOut->Text);
    if(Override->Checked)
        NMTime1->Port = StrToInt(Port->Text);
    else
        NMTime1->Port = 37;
    NMTime1->ReportLevel = Status_Basic;
    Output->Text = "The Current Date and Time is : "+NMTime1->TimeStr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1Connect(TObject *Sender)
{
 StatusBar1->SimpleText="Echo has connected host";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1ConnectionFailed(TObject *Sender)
{
 ShowMessage("Connection failed");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1Disconnect(TObject *Sender)
{
 StatusBar1->SimpleText="Echo has disconnected";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1HostResolved(TComponent *Sender)
{
 StatusBar1->SimpleText="Host resolved";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1InvalidHost(bool &Handled)
{
 AnsiString TmpStr;
 if(InputQuery("Invalid Host!", "Specify a new host:", TmpStr))
   {
    NMEcho1->Host = TmpStr;
    Handled = true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMDayTime1InvalidHost(bool &Handled)
{
  AnsiString TmpStr;
  if(InputQuery("Invalid Host!", "Specify a new host:", TmpStr))
    {
     NMDayTime1->Host = TmpStr;
     Handled = true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMDayTime1Connect(TObject *Sender)
{
 StatusBar1->SimpleText="DayTime has connected host";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMDayTime1HostResolved(TComponent *Sender)
{
 StatusBar1->SimpleText="Host resolved";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMDayTime1ConnectionFailed(TObject *Sender)
{
 ShowMessage("Connection failed");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMDayTime1Disconnect(TObject *Sender)
{
 StatusBar1->SimpleText="NMDayTime1 has disconnected";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMTime1Connect(TObject *Sender)
{
 StatusBar1->SimpleText="NMTime1 has connected host";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMTime1ConnectionFailed(TObject *Sender)
{
 ShowMessage("Connection failed");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMTime1Disconnect(TObject *Sender)
{
 StatusBar1->SimpleText="NMTime1 has disconnected";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMTime1HostResolved(TComponent *Sender)
{
 StatusBar1->SimpleText="Host resolved";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMTime1InvalidHost(bool &Handled)
{
 AnsiString TmpStr;
 if(InputQuery("Invalid Host!", "Specify a new host:", TmpStr))
   {
    NMTime1->Host = TmpStr;
    Handled = true;
   }
}
//---------------------------------------------------------------------------