Вот любопытный момент..
Ниже напечатанный кусок кода по идее пример простейшего сервера
но при выполнении этого куска кода, выясняется странный феномен...
ошибка с номером 10047
Описание ошибки
Интересно, ...
задача пока не решена
Code
S:=fpSocket(AF_INET6,SOCK_STREAM,0);
if SocketError<>0 then
Perror('Server : Socket : ');
SAddr.sin_port:=htons(0);
SAddr.sin_addr.s_addr:=0;
if fpBind(S,@SAddr,sizeof(sAddr))<0 then
perror('123');
fpListen(S,1);
writeln('Warning');
AddressLength:=SizeOf(SAddr);
fpAccept (S,@SAddr,@AddressLength);
Reset(Sin);
ReWrite(Sout);
Writeln(Sout,'Message From Server');
While not eof(sin) do
begin
Readln(Sin,Buffer);
Writeln('Server : read : ',buffer);
end;