Определить, занят ли порт сокета

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

— Смайлик видишь?

— Нет.

— И я не вижу. А он есть.

var SockAddrIn : TSockAddrIn;

FSocket : TSocket;

If bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) 0 Then

begin

обрабатываем WSAGetLastError

end;

{/codecitation}

Добавить комментарий