tcp/ip로 c/s를 구현하느데 server와 client의 port를 일치시키고 connect하면 (당연히) 잘 되는데,제가 구현하고자 하는것은 server port를 1111로 주고, client port를 1112로 준후 실행시켰을때 client에서 error event가 발생되고, 이때 다시 port를 1111로 set하여 connect하려고 합니다.

그런데 clientsocket을 close시켰는데도 "Can't change value while socket is active" error가 나옵니다.

아시는분은 도와주세요 !!!



procedure TForm1.ClientSocketError(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

ClientSocket.Close;

ClientSocket.Active := False;

ClientSocket.Port := 1115; ~~ error 부분..

ClientSocket.open;

ClientSocket.Active := True;

end;