Версия для печати темы

  { Данные HTTP протокола }
  TProtocol = class
    Code: integer;        // Код результата
    type
      Read = class
        i: integer;
        type
          request = class
             Method: string;           // Комманда запроса
             URI: string;              // Строка запроса
             ProtocolType: string;     // Тип протокола
             ProtocolVersion: string;  // Версия протокол
          end;
          header = class
            ContentType: string;      // Тип передаваемых данных
            ContentLength: integer;   // Количество байт в "Body"
          end;
          data = class
            Request: string;  // Строка запроса
            Header: string;   // Параметры запроса
            Body: string;     // Дополнительные данные
          end;  

      end;
      Send = class
        z: integer;
        p: char;
      end;
  end;