하니 님이 쓰신 글 :
: 제가 만들려는 것은  클라이언트소켓을 배열로 동적생성해서 각각의 컴퓨터에 연결된 상태에서 동시에 데이타를 보내고 받는 프로그램을 만들려고 하는데요..(그냥 구상중..)
:
: 동적으로 생성된 컴포넌트에 이벤트를 컴포넌트에 연결하려구 하거든요??
:
: 근데 이벤트 처리하는것을 각각 따로 처리해야 한다는 겁니다..ㅡㅡ;
:
: 다시 이야기 하면 소켓1번에 들어온 데이타랑 소켓2번에 들어온 데이타가 구분이 되야 하는데..
:
: (말하기가 넘 어렵네요.. ㅡㅡ;)
:
: 하나의 메인 스레드가 100개의 소켓을 관리 하는데..
:
: 100개의 소켓이 동시에 데이타를 전송해서
:
: 데이타가 들어오면 어떤 곳에서 데이타가 들어왔는지 구분해야 하는데
:
: 정적으로 생성하면 각각의 이벤트에 따로 정의하면 되자나요...
:
: 동적으론 불가능한지 알고 싶습니다.
:
: 고수님들 많은 고언 부탁드립니다.

이벤트 핸들러는 공유할 수 있습니다.

예를 들면 아래와 같습니다. 

//---------------------------------------------------------------------------
#define CSOCK_COUNT 10
TClientSocket *g_csocks[CSOCK_COUNT];

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

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i=0; i<CSOCK_COUNT ;i++){
   g_csocks[i] = new TClientSocket(this);
   g_csocks[i]->Address = "127.0.0.1";
   g_csocks[i]->Port = 1234;
   g_csocks[i]->OnConnect = ClientSocket1Connect;
   g_csocks[i]->OnRead = ClientSocket1Read;
  /*
  TClientSocket에는 TComponent에서 상속받은 Tag 멤버가 있습니다.
  Tag에 배열의 인덱스 등을 저장할 수도 있습니다.
  예를 들어, g_csocks[i]->Tag = i; 이렇게 해 두고 이벤트 핸들러 등에서 사용할 수 있습니다.
  */
}
}

int g_Count=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Socket->Data = 작업 (대상) 객체 등; //차후 OnRead 등에서 사용
Socket->Data = new int(++g_Count);
// Sender는 위의 g_csocks의 멤버들 중 하나임.
TClientSocket *csock = dynamic_cast<TClientSocket*> (Sender);
if(NULL==csock) return;
//
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Memo1->Lines->Add(IntToStr(*(int*)Socket->Data)+":"+Socket->ReceiveText());
}

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

void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
for(int i=0; i<CSOCK_COUNT ;i++){
   delete (int*)Socket->Data;
}
}

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0; i<CSOCK_COUNT ;i++){
   g_csocks[i]->Active = true;
}
}

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