Скачать: CL | DM;

Как правильно уничтожить объект 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.974 c