C#

// BCB VCL TCP Message Server
// Chin-Shiuh Shieh
// 2002-04-04
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

//--------------------Abrir el Servidor---------------------------------------//

void __fastcall TForm1::BAbrirClick(TObject *Sender)
{
//Configurar el número de puerto
        ServerSocket1->Port=StrToInt(Npuerto->Text);

//Abrir el servidor
        ServerSocket1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
}

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

//---------------------Cerrar el Servidor-------------------------------------//

void __fastcall TForm1::BCerrarClick(TObject *Sender)
{
//Cerrar el Servicio
        ServerSocket1->Close();

//Actualizar estado de los botones
        BAbrir->Enabled=true;
        BCerrar->Enabled=false;

//Informar del cierre del servidor
        BEstado->SimpleText="Servidor Cerrado!";

//Actualizar el campo de nº de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Desactivar el Boton de enviar mensaje
        BEnviar->Enabled = false;
}

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

//---------------------Cuando se Conecte un Cliente---------------------------//

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Mostrar aviso en la barra de estado
        BEstado->SimpleText="Conectado desde  "+Socket->RemoteAddress;

//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);
}


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

//---------------------Al Desconectarse un Cliente----------------------------//

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+Socket->RemoteAddress;
}
//----------------------------------------------------------------------------//

//---------------------Al recibir un Mensaje----------------------------------//

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Espacio para recibir el mensaje
char * buffer;
        int len;
        AnsiString Mensaje;
        int i;

// Recibir mensaje
int *tam;
tam = new int;
*tam = Socket->ReceiveLength();

len=Socket->ReceiveBuf(buffer,*tam);
buffer[len]=0;

//Estructura para mostrar el mensaje correctamente
TTime hora = TTime::CurrentTime();
AnsiString MensajeIn = Socket->RemoteAddress;
        MensajeIn += " A las " + TimeToStr(hora) + " Dice" "----->";

ChatBox->Lines->Add(MensajeIn +StrPas(buffer));
BEstado->SimpleText=IntToStr(len)+"Nuevo mensaje entrante!";

// Repetir el mensaje a los demás
Mensaje = StrPas(buffer);
strcpy(buffer,Mensaje.c_str());
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));


delete[] buffer;
}

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

//--------------------Enviar un Mensaje---------------------------------------//
void __fastcall TForm1::BEnviarClick(TObject *Sender)
{
//Espacio para meter el mensaje
 char buffer[256];
 int i;

 //Recoger el Mensaje del campo de entrada
AnsiString Mensaje = CampoMensaje->Text;
strcpy(buffer,Mensaje.c_str());

//Enviarlo a los conectados
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));

//Añadirlo al Chatbox
TTime hora = TTime::CurrentTime();
        ChatBox->Lines->Add("Servidor a las " +TimeToStr(hora)
        + " dice----->" + Mensaje);

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

//---------------------Borrar la Memo-----------------------------------------//
void __fastcall TForm1::LimpiarClick(TObject *Sender)
{
//Borrar
        ChatBox->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CampoMensajeKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BEnviarClick(CampoMensaje);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NpuertoKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BAbrirClick(Npuerto);         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1Accept(TObject *Sender,
      TCustomIpClient *ClientSocket)
{
//Configurar el número de puerto
        TcpServer1->RemotePort = StrToInt(Npuerto->Text);

//Abrir el servidor
        TcpServer1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1CreateHandle(TObject *Sender)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(TcpServer1->Active-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+TcpServer1->LocalHostName();
}
//---------------------------------------------------------------------------

wordapp = new Word.Application();
wordapp.Visible = false;
doc = wordapp.Documents.Open(wordPath);
paragraphs = doc.Paragraphs;
bool flag = false;

foreach (Word.Paragraph paragraph in paragraphs)
{
    string s = paragraph.Range.Text;
    string y = paragraph.Range.Text.Trim();

    if (paragraph.Range.Text == "<NE>\r")
    {
        flag = true;
        paragraph.Range.Select();
        wordapp.Selection.Delete();
        continue;

    }
    else if (paragraph.Range.Text == "</NE>\r")
    {
        flag = false;
        paragraph.Range.Select();
        wordapp.Selection.Delete();
        continue;
    }
    else if (paragraph.Range.Text.Trim() == string.Empty )
    {
        if (flag)
        {
            paragraph.Range.Select();
            wordapp.Selection.Delete();
        }
        continue;
    }

}

// Save the document and close document
doc.Save();
// Quit the word application
wordapp.Quit();