Решил выложить свои тестовые сорцы для работы с Winsock.
Писал собственноручно,они не тестированны и не закончены, если есть баги - комментируйте, пишите в лс
Добавлено (15.05.2013, 15:55)
---------------------------------------------
Собственно говоря, сам чат создавать так:
Код
function CreateChat(addr:sockAddr_in):TserverThread;
begin
result:=TserverThread(addr,nil);
SetAsEchoServer(result);
end;
