unit1.cpp

来自「一本介绍C++Builder网络应用编程的好书。深入浅出」· C++ 代码 · 共 60 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  NMFinger1->ReportLevel = Status_Basic;
  NMFinger1->TimeOut = 20000;
  NMFinger1->Host = Edit1->Text;
  NMFinger1->Port = StrToInt(Edit2->Text);
  NMFinger1->User = Edit3->Text;
  Memo1->Text = NMFinger1->FingerStr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1Connect(TObject *Sender)
{
  StatusBar1->SimpleText = "Connected";	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1ConnectionFailed(TObject *Sender)
{
  ShowMessage("Connection Failed");	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1Disconnect(TObject *Sender)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = "Disconnected";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1HostResolved(TComponent *Sender)
{
  StatusBar1->SimpleText = "Host Resolved";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1Status(TComponent *Sender, AnsiString Status)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = Status;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFinger1InvalidHost(bool &handled)
{
  AnsiString NewHost;
  if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
  {
    NMFinger1->Host = NewHost;
    handled = true;
  }
}
//---------------------------------------------------------------------------