Kód: Vybrať všetko

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int x;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Enabled = false;
ServerSocket1->Port = 4000;
ServerSocket1->Active = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if( Edit1->Modified )
{
Edit1->Enabled = false;
ClientSocket1->Port = 3500;
ClientSocket1->Host = Edit1->Text;
ClientSocket1->Active = true;
}
else
{
Application->MessageBox("Musite Zadat IP !", NULL, MB_OK |MB_ICONWARNING);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
String data;

data = ServerSocket1->Socket->ReceiveText();
Memo1->Lines->Add("Klient: " + data);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
String data;

data = ClientSocket1->Socket->ReceiveText();
Memo1->Lines->Add("Server: " + data);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connecting(TObject *Sender,
      TCustomWinSocket *Socket)
{

StatusBar1->SimpleText="Pripajam Sa Na: " + Edit1->Text + "...";

Button4->Enabled = false;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{

Button4->Enabled = true;

if(ErrorEvent)
{

StatusBar1->SimpleText="Server: " + Edit1->Text + " Sa Nenasiel !";
int f = Application->MessageBox("Server Sa Nenasiel ! Chcete to skusit este raz?", NULL, MB_YESNO|MB_ICONWARNING);
                                
if(f == IDYES)
{

Edit1->Enabled = false;

  if( Edit1->Modified )
  {
     ClientSocket1->Port = 3500;
     ClientSocket1->Host = Edit1->Text;
     ClientSocket1->Active = true;
  }
 else
 {
Application->MessageBox("Musite Zadat IP !", NULL, MB_OK |MB_ICONWARNING);

 }
 }
 }
 Button4->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Enabled = true;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
      TCustomWinSocket *Socket)
{
StatusBar1->SimpleText = "Pripojenie bolo akceprovane pre: " + Edit1->Text ;
Edit1->Enabled = false;
Button4->Enabled = false;
Button5->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
ServerSocket1->Active = false ;
StatusBar1->SimpleText = "Odpojene";
Button4->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
ServerSocket1->Active = false ;
StatusBar1->SimpleText = "Odpojene";
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
StatusBar1->SimpleText = "Server Je Spojeny s Klientom: " + Socket->RemoteAddress + " " + Socket->RemoteHost;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (ServerSocket1->Active == true)
ServerSocket1->Socket->SendText(Memo1->Text);

if (ClientSocket1->Active == true);
ClientSocket1->Socket->SendText(Memo1->Text);
}
//---------------------------------------------------------------------------