settingunit.cpp

this a programme that you can use socket programme

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SettingUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSettingForm *SettingForm;
//---------------------------------------------------------------------------
__fastcall TSettingForm::TSettingForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSettingForm::btnDefaultClick(TObject *Sender)
{
  edtPort->Text=String(6712);        
}
//---------------------------------------------------------------------------
void __fastcall TSettingForm::UpDownClick(TObject *Sender,
      TUDBtnType Button)
{
  if(edtPort->Text.Length()!=0)
  {
      int n=StrToInt(edtPort->Text);
      if(Button==btNext)
      {
         n++;
      }
      else if(Button==btPrev)
      {
         n--;
      }
      edtPort->Text=String(n);
  }
}
//---------------------------------------------------------------------------
void __fastcall TSettingForm::edtPortExit(TObject *Sender)
{
   if(edtPort->Text.Length()==0)
   {
     MessageDlg("Please input the server's port!",mtError,TMsgDlgButtons()<<mbOK,0);
     edtPort->SetFocus();
   }
}
//---------------------------------------------------------------------------