Как правильно уничтожить объект TClientSocket?

← →
SergP (2003-08-13 15:10) [0]

Делаю так:
http://delphimaster.net/view/15-1060769191/

Вобщем уничтожаю ненужный сокет:
CS:array[0..50] of TClientSocket;
...
for j:=0 to 50 do
if assigned(CS[j]) and (CS[j].tag=handl) then
begin
CS[j].active:=false;
CS[j].Free;
cs[j]:=nil;
end;

Подозреваю что неправильно.
Нужно ли прежде чем уничтожать сокет дождаться его дисконекта?
Если да - то можно ли его уничтожать в процедуре-обаботчике им же сгенерированного события?

← →
Skier (2003-08-13 15:15) [1]

destructor TCustomWinSocket.Destroy;
begin
FOnSocketEvent := nil; { disable events }
if FConnected and (FSocket <> INVALID_SOCKET) then
Disconnect(FSocket);
if FHandle <> 0 then DeallocateHWnd(FHandle);
FSocketLock.Free;
Cleanup;
FreeMem(FGetHostData);
FGetHostData := nil;
inherited Destroy;
end;

← →
SergP (2003-08-14 22:20) [2]

А поподробнее можно? А то не представляю что мне с этим делать...

← →
Anatoly Podgoretsky (2003-08-14 22:38) [3]

Вроде бы жирным выделен ответ на твой вопрос

Как правильно уничтожить объект TClientSocket? Найти похожие ветки