Files
KisStock/한국투자증권(API)/legacy/websocket/delphi/MainForm.dfm
2026-01-31 22:34:57 +09:00

184 lines
4.9 KiB
Plaintext

object Form1: TForm1
Left = 0
Top = 0
Caption = #54620#44397#53804#51088#51613#44428' WebSocket '#53580#49828#53944' v1.0'
ClientHeight = 600
ClientWidth = 750
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 15
object Label1: TLabel
Left = 24
Top = 24
Width = 73
Height = 15
Caption = 'Approval Key:'
end
object Label2: TLabel
Left = 24
Top = 58
Width = 32
Height = 15
Caption = 'TR_ID:'
end
object Label3: TLabel
Left = 24
Top = 92
Width = 89
Height = 15
Caption = 'TR_KEY:'#51333#47785#53076#46300
end
object edtApprovalKey: TEdit
Left = 120
Top = 21
Width = 420
Height = 23
TabOrder = 0
TextHint = 'Approval Key '#51077#47141' (e.g. e44ffe64-7a22-...)'
end
object edtTrId: TEdit
Left = 120
Top = 55
Width = 150
Height = 23
TabOrder = 1
Text = 'H0STCNT0'
TextHint = 'TR_ID ('#50696': H0STCNT0)'
OnChange = edtTrIdChange
end
object edtTrKey: TEdit
Left = 120
Top = 89
Width = 150
Height = 23
TabOrder = 2
Text = '005930'
TextHint = #51333#47785#53076#46300' ('#50696': 005930)'
end
object btnConnect: TButton
Left = 560
Top = 19
Width = 170
Height = 30
Caption = #50672#44208
TabOrder = 3
OnClick = btnConnectClick
end
object btnSubscribe: TButton
Left = 560
Top = 55
Width = 80
Height = 30
Caption = #44396#46021
TabOrder = 4
OnClick = btnSubscribeClick
end
object btnUnsubscribe: TButton
Left = 650
Top = 55
Width = 80
Height = 30
Caption = #44396#46021#54644#51228
TabOrder = 5
OnClick = btnUnsubscribeClick
end
object btnDisconnect: TButton
Left = 560
Top = 91
Width = 170
Height = 30
Caption = #50672#44208' '#54644#51228
TabOrder = 6
OnClick = btnDisconnectClick
end
object Memo1: TMemo
Left = 24
Top = 136
Width = 706
Height = 441
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Consolas'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 7
end
object sgcWebSocketClient1: TsgcWebSocketClient
Port = 80
ConnectTimeout = 0
ReadTimeout = -1
WriteTimeout = 0
TLS = False
Proxy.Enabled = False
Proxy.Port = 8080
Proxy.ProxyType = pxyHTTP
HeartBeat.Enabled = True
HeartBeat.HeartBeatType = hbtAlways
HeartBeat.Interval = 30000
HeartBeat.Timeout = 0
IPVersion = Id_IPv4
OnConnect = sgcWebSocketClient1Connect
OnMessage = sgcWebSocketClient1Message
OnDisconnect = sgcWebSocketClient1Disconnect
OnError = sgcWebSocketClient1Error
Authentication.Enabled = False
Authentication.URL.Enabled = True
Authentication.Session.Enabled = False
Authentication.Basic.Enabled = False
Authentication.Token.Enabled = False
Authentication.Token.AuthName = 'Bearer'
Extensions.DeflateFrame.Enabled = False
Extensions.DeflateFrame.WindowBits = 15
Extensions.PerMessage_Deflate.Enabled = False
Extensions.PerMessage_Deflate.ClientMaxWindowBits = 15
Extensions.PerMessage_Deflate.ClientNoContextTakeOver = False
Extensions.PerMessage_Deflate.MemLevel = 9
Extensions.PerMessage_Deflate.ServerMaxWindowBits = 15
Extensions.PerMessage_Deflate.ServerNoContextTakeOver = False
Options.CleanDisconnect = False
Options.FragmentedMessages = frgOnlyBuffer
Options.Parameters = '/'
Options.RaiseDisconnectExceptions = True
Options.ValidateUTF8 = False
Specifications.Drafts.Hixie76 = False
Specifications.RFC6455 = True
NotifyEvents = neAsynchronous
LogFile.Enabled = False
QueueOptions.Binary.Level = qmNone
QueueOptions.Ping.Level = qmNone
QueueOptions.Text.Level = qmNone
WatchDog.Attempts = 0
WatchDog.Enabled = False
WatchDog.Interval = 10
Throttle.BitsPerSec = 0
Throttle.Enabled = False
LoadBalancer.Enabled = False
LoadBalancer.Port = 0
LoadBalancer.TLS = False
TLSOptions.VerifyCertificate = False
TLSOptions.VerifyDepth = 0
TLSOptions.Version = tlsUndefined
TLSOptions.IOHandler = iohOpenSSL
TLSOptions.OpenSSL_Options.APIVersion = oslAPI_1_0
TLSOptions.OpenSSL_Options.LegacyProvider.Enabled = False
TLSOptions.OpenSSL_Options.LegacyProvider.LibPath = oslpNone
TLSOptions.OpenSSL_Options.LibPath = oslpNone
TLSOptions.OpenSSL_Options.UnixSymLinks = oslsSymLinksDefault
TLSOptions.OpenSSL_Options.VersionMin = tlsUndefined
TLSOptions.OpenSSL_Options.X509Checks.Mode = []
TLSOptions.SChannel_Options.CertStoreName = scsnMY
TLSOptions.SChannel_Options.CertStorePath = scspStoreCurrentUser
TLSOptions.SChannel_Options.UseLegacyCredentials = False
Left = 400
Top = 64
end
end