with TClientSocket.Create(Self) do begin

Name:= 'Socket' + IntToStr(Max);

OnConnect:= ClientSocket1Connect;

Inc(Max);

end;



procedure TForm1.ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

begin

case StrToInt(Copy(Name,7,2)) of

1: 내용;

2: 내용;

3: 내용;

end;

end;

위와 같이 하면 될듯한데요^^



델파초짜.. wrote:

> 제가.. 소켓을 50개를 만들고.. 그에대한 이벤트중....

> OnConnect 를 사용하려고 합니다..

> 그렇다면 이 소켓 50개에 대한.. OnConnect 이벤트가 50개가 전부 있어야 하나요..

> 이벤트 한개 가지고.. 이 50개의 소켓을 구분하며 사용할순 없나요..

>

> 또한가지.. 소켓을 50개를 생성하면.. 이 소켓을 구분하는 방법좀..

> 검이만..

아래분이 자세히 설명해 주셨네요..

보통..여러개로 생성된 객체에 대한 확인 Tag인자에 값으로 확인하는게. 낳을듯.

루프돌리기가 되거든여..아래에선 이름으로 했네요.



컴퍼넌트이름.Tag = 숫자값(순차); //추가



free0210 wrote:

> with TClientSocket.Create(Self) do begin

> Name:= 'Socket' + IntToStr(Max);

> OnConnect:= ClientSocket1Connect;

> Inc(Max);

> end;

>

> procedure TForm1.ClientSocket1Connect(Sender: TObject;

> Socket: TCustomWinSocket);

> begin

> case StrToInt(Copy(Name,7,2)) of

> 1: 내용;

> 2: 내용;

> 3: 내용;

> end;

> end;

> 위와 같이 하면 될듯한데요^^

>

> 델파초짜.. wrote:

> > 제가.. 소켓을 50개를 만들고.. 그에대한 이벤트중....

> > OnConnect 를 사용하려고 합니다..

> > 그렇다면 이 소켓 50개에 대한.. OnConnect 이벤트가 50개가 전부 있어야 하나요..

> > 이벤트 한개 가지고.. 이 50개의 소켓을 구분하며 사용할순 없나요..

> >

> > 또한가지.. 소켓을 50개를 생성하면.. 이 소켓을 구분하는 방법좀..

> > 검이만..