GmailAuthSMTP/Unit2.dfm at master · wikan-github/GmailAuthSMTP · 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
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Test OAUTH2 Gmail Send Message'
  ClientHeight = 377
  ClientWidth = 594
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 72
    Width = 409
    Height = 182
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object btnAuthenticate: TButton
    Left = 423
    Top = 8
    Width = 106
    Height = 25
    Caption = 'Authenticate'
    TabOrder = 1
    OnClick = btnAuthenticateClick
  end
  object btnSendMsg: TButton
    Left = 423
    Top = 95
    Width = 75
    Height = 25
    Caption = 'Send MSG'
    TabOrder = 2
    OnClick = btnSendMsgClick
  end
  object rgEmailProviders: TRadioGroup
    Left = 8
    Top = 8
    Width = 409
    Height = 58
    Caption = 'Provider'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'GMail'
      'Microsoft')
    TabOrder = 3
    OnClick = rgEmailProvidersClick
  end
  object btnCheckMsg: TButton
    Left = 423
    Top = 136
    Width = 75
    Height = 25
    Caption = 'Check MSG'#39's'
    TabOrder = 4
    OnClick = btnCheckMsgClick
  end
  object btnClearAuthToken: TButton
    Left = 423
    Top = 39
    Width = 106
    Height = 25
    Caption = 'Clear Auth Token'
    TabOrder = 5
    OnClick = btnClearAuthTokenClick
  end
  object IdSMTP1: TIdSMTP
    IOHandler = IdSSLIOHandlerSocketSMTP
    SASLMechanisms = <>
    Left = 88
    Top = 128
  end
  object IdSSLIOHandlerSocketSMTP: TIdSSLIOHandlerSocketOpenSSL
    Destination = ':25'
    MaxLineAction = maException
    Port = 25
    DefaultPort = 0
    SSLOptions.Method = sslvSSLv23
    SSLOptions.SSLVersions = [sslvTLSv1_1, sslvTLSv1_2]
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 248
    Top = 56
  end
  object IdConnectionInterceptSMTP: TIdConnectionIntercept
    OnReceive = IdConnectionInterceptSMTPReceive
    OnSend = IdConnectionInterceptSMTPSend
    Left = 88
    Top = 64
  end
  object IdHTTPServer1: TIdHTTPServer
    Active = True
    Bindings = <>
    DefaultPort = 2132
    OnCommandGet = IdHTTPServer1CommandGet
    Left = 352
    Top = 120
  end
  object IdPOP3: TIdPOP3
    Intercept = IdConnectionPOP
    IOHandler = IdSSLIOHandlerSocketPOP
    AuthType = patSASL
    AutoLogin = False
    SASLMechanisms = <>
    Left = 456
    Top = 232
  end
  object IdConnectionPOP: TIdConnectionIntercept
    OnReceive = IdConnectionInterceptSMTPReceive
    OnSend = IdConnectionInterceptSMTPSend
    Left = 96
    Top = 272
  end
  object IdSSLIOHandlerSocketPOP: TIdSSLIOHandlerSocketOpenSSL
    Destination = ':110'
    Intercept = IdConnectionPOP
    MaxLineAction = maException
    Port = 110
    DefaultPort = 0
    SSLOptions.Method = sslvTLSv1_2
    SSLOptions.SSLVersions = [sslvTLSv1_2]
    SSLOptions.Mode = sslmClient
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 256
    Top = 264
  end
end