Суббота, 18.11.2017, 00:10
Приветствую Вас Заблудший(Гость) | RSS
Главная | Free Pascal Sockets - Форум | Регистрация | Вход
Меню сайта
Форма входа
Друзья сайта

Статистика
pIR

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Программирование » Delphi pascal » Free Pascal Sockets
Free Pascal Sockets
XapacДата: Четверг, 05.02.2009, 18:04 | Сообщение # 1
Башка вар
Группа: Администраторы
Сообщений: 168
Репутация: 9
Статус: Offline
Вот любопытный момент..
Ниже напечатанный кусок кода по идее пример простейшего сервера
но при выполнении этого куска кода, выясняется странный феномен...
ошибка с номером 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;                    
 
TAnisДата: Четверг, 05.02.2009, 18:22 | Сообщение # 2
Танисюка БАаакА
Группа: Администраторы
Сообщений: 199
Репутация: 8
Статус: Offline
сдаеться мне что он данные код не может с ТСР найти понимание......
можно поподробнее какие данные получаеться прога?


пум пурум ...БАаКА!!
 
Форум » Программирование » Delphi pascal » Free Pascal Sockets
Страница 1 из 11
Поиск:
Copyright Piraties © 2017