procedure TForm3.CreateSock(Target: TForm; Num: integer; CName: String);
begin
G_ClientSocket[Num] := TClientSocket.Create(Self);
with G_ClientSocket[Num] do begin
parent := Self;
Name := CName;
onConnect := ClientSocket1OnConnect;
end;
end;
procedure TForm3.ClientSocket1OnConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('1번 소켓 연결 성공..');
end;
제가요.. 위와 같이 해 줬거든요.. 그런데.. 소켓을 연결 시키니까..
OnConnect 이벤트가 안 일어나요.. 물론 서버에서는 접속 허가를 해 줬구요..
왜 그런지.. 답변 부탁드립니다..