PABC - SERVER!

Перейти вниз

PABC - SERVER!

Сообщение автор _KROL в Сб 23 Сен 2017 - 22:33

Первый более-менее удачный черновик.
Код:
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.


_KROL

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

Посмотреть профиль

Вернуться к началу Перейти вниз

Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения