KRIEGSSPIELE!

GUDLEIFR СОЛДАТИКИ FORTH gudleifr.h1.ru
 
ФорумФорум  КалендарьКалендарь  ЧаВоЧаВо  ПоискПоиск  ПользователиПользователи  ГруппыГруппы  РегистрацияРегистрация  ВходВход  

Поделиться | 
 

 PABC - SERVER!

Перейти вниз 
АвторСообщение
_KROL



Сообщения : 83
Дата регистрации : 2017-07-28
Возраст : 18
Откуда : Беларусь

СообщениеТема: PABC - SERVER!   Сб Сен 23, 2017 10:33 pm

Первый более-менее удачный черновик.
Код:
uses crt,sockets;
const str='<html><body>Hello!</body></html>';

label start;
var
  s: string;
  sock,clsock: integer; time:byte; b:boolean;
begin
  sock:=CreateServerSocket(80);
  start:
  clsock:=-1;
  while clsock=-1 do
  clsock:=Accept(sock);
  writeln('CLSOCK=',clsock);
  repeat
  ReceiveString(clsock,s);
  if s<>'' then
    begin
    while s<>'' do
      begin
      writeln(s);
      ReceiveString(clsock,s);
      end;
    SendString(clsock,'HTTP/1.1 200 OK');
    SendString(clsock,'Server: Pascal ABC');
    SendString(clsock,'Content-Language: ru');
    SendString(clsock,'Content-Type: text/html; charset=utf-8');
    SendString(clsock,'Content-Length: '+inttostr(length(str)));
    writeln(length(str));
    SendString(clsock,'Connection: close');
    SendString(clsock,#13+#10+#13+#10);
    SendString(clsock,str);
    CloseSocket(clsock);
    goto start;
    end;
  until keypressed;
  CloseSocket(sock);
  CloseSocket(clsock);
end.

Вернуться к началу Перейти вниз
Посмотреть профиль
 
PABC - SERVER!
Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
KRIEGSSPIELE! :: Пользовательские разделы :: _KROL-
Перейти: