Http.Header.Field

Unit
Source
Symbols

Symbol	Description
THttpHeaderField	Represents a single key/value pair in the `THttpHeader`
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
///////////////////////////////////////////////////////////////////////////
//                                                                       //
//  Copyright (c) 2015 by Charta Software B.V.                           //
//  All rights reserved                                                  //
//                                                                       //
//  Version:  1.7.0.83525                                                //
//  Web site: https://pascal.chartasoftware.com/                         //
//                                                                       //
//  This code and information are provided "as is" without warranty of   //
//  any kind. Dissemination of this information or reproduction of       //
//  this material is strictly forbidden unless prior written permission  //
//  is obtained from Charta Software B.V..                               //
//                                                                       //
///////////////////////////////////////////////////////////////////////////

unit Http.Header.Field;

interface

uses
  Object_.Base,
  Text;

type
  THttpHeaderField = class(TBaseObject)
  private
    FName:  TText;
    FValue: TText;

  public
    constructor Create(const Name: TText; const Value: TText); reintroduce; virtual;

    function    ToText(): TText; override;

  published
    property    Name: TText read FName;
    property    Value: TText read FValue;

  public
    class function  FromText(Line: TText): THttpHeaderField;
  end;

implementation

uses
  Integer._32;

{ THttpHeaderField }

constructor THttpHeaderField.Create(const Name: TText; const Value: TText);
begin
  inherited Create();

  FName  := Name;
  FValue := Value.Trim;
end;

class function THttpHeaderField.FromText(Line: TText): THttpHeaderField;
var
  IndexOfColon: TInteger32;
begin
  IndexOfColon := Line.IndexOf(':');

  if IndexOfColon <> -1 then
    Result := THttpHeaderField.Create(Line.SubTextTo(IndexOfColon - 1), Line.SubTextFrom(IndexOfColon + 1))
  else
    Result := nil;
end;

function THttpHeaderField.ToText(): TText;
begin
  Result := Name + ': ' + Value;
end;

end.