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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (Button1->Caption == "Connect")
    {
        try
        {
            ClientSocket->Address = txtIP->Text ;
            ClientSocket->Port = StrToInt(txtPort->Text) ;
            ClientSocket->Active = true ;
            StatusBar1->SimpleText = "Connecting ..." ;
        }
        __finally
        {
            Button1->Caption = "Disconnect" ;
            btnOpen->Enabled = true ;
            btnClose->Enabled = true ;
            btnTaskBar->Enabled = true ;
            btnSound->Enabled = true ;
        }
    }
    else
    {
        ClientSocket->Active = false ;
        StatusBar1->SimpleText = "Disconnect" ;
        Button1->Caption = "Connect" ;
        btnOpen->Enabled = false ;
        btnClose->Enabled = false ;
        btnTaskBar->Enabled = false ;
        btnSound->Enabled = false ;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocketConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1->SimpleText = "Connected to: " + Socket->RemoteHost;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocketConnecting(TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1->SimpleText = "Connecting to: " + Socket->RemoteHost;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocketDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1->SimpleText = "Disconnect from: " + Socket->RemoteHost;
    Button1->Caption = "Connect" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocketError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
    StatusBar1->SimpleText = "Socket Error" ;
    Button1->Caption = "Connect" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocketRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo1->Lines->Add(Socket->RemoteHost + ": " + Socket->ReceiveText()) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    btnOpen->Enabled = false ;
    btnClose->Enabled = false ;
    btnTaskBar->Enabled = false ;
    btnSound->Enabled = false ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnOpenClick(TObject *Sender)
{
    ClientSocket->Socket->SendText("Open") ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnCloseClick(TObject *Sender)
{
    ClientSocket->Socket->SendText("Close") ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnTaskBarClick(TObject *Sender)
{
    ClientSocket->Socket->SendText("TaskBar") ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnSoundClick(TObject *Sender)
{
    ClientSocket->Socket->SendText("Sound") ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    AnsiString XPos, YPos;

    XPos = IntToStr(X);
    YPos = IntToStr(Y);

    ClientSocket->Socket->SendText("Mouse " + Trim(XPos) + " " + Trim(IntToStr(Y))+"\x0D\x0A");

}
//---------------------------------------------------------------------------