CloudAPI/CloudAPI.Request.Body.pas at master · rareMaxim/CloudAPI · GitHub

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
unit CloudAPI.Request.Body;

interface

uses
  System.Classes,
  System.Net.Mime;

type
  TcaRequestBodyType = (None, FormData, x_www_form_urlEncoded, Raw, Binary);

  TcaRequestBody = class
  private
    FType: TcaRequestBodyType;
    FRaw: TStringList;
    FFormData: TMultipartFormData;
    Fx_www_form_urlEncoded: TStringList;
  public
    constructor Create;
    destructor Destroy; override;
    property &Type: TcaRequestBodyType read FType write FType default TcaRequestBodyType.None;
    property Raw: TStringList read FRaw write FRaw;
    property FormData: TMultipartFormData read FFormData write FFormData;
  end;

implementation

{ TcaRequestBody }

constructor TcaRequestBody.Create;
begin
  FType := TcaRequestBodyType.None;
  FRaw := TStringList.Create;
  FFormData := TMultipartFormData.Create();
end;

destructor TcaRequestBody.Destroy;
begin
  FRaw.Free;
  FFormData.Free;
  inherited;
end;

end.