ребята я тут натолкнулся на проблему, вот я отдельной ниткой проверяю состояние моих портов

цель: детектить все 1..65535 портов


детекчю порты вот так:


tegcodeteg


WSAStartUp($0101,wsaD);

A.sin_family:=AF_INET;
A.sin_addr.S_addr:=inet_addr(PChar(LanInfo.ipAddr+'.'+LanInfo.Mask));

for i:=1035 to 1035 do
begin
S:=socket(AF_INET,SOCK_STREAM,0);
A.sin_port:=hTons(i);

WSASetLastError(0);

bind(S,A,SizeOf(A));

showmessage('port'+IntToStr(i)+' '+IntToStr(WSAGetLastError));



case WSAGetLastError of

10049: "port is listen"
10048: "port is busy"



teg/codeteg


например порты 1035 или 139 мой кодик отмечяет как listen порты, но стоит мне ети порты применить как получаю ошибку что порты уже используються

почему

а как ты их применяеш интересно?

А ты используй GetTcpTable и узнаешь состояние всех портов.