?? main.dfm
字號:
object Form1: TForm1
Left = 241
Top = 120
BorderStyle = bsDialog
Caption = 'Soap Digital Signature Demo'
ClientHeight = 394
ClientWidth = 616
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 176
Width = 66
Height = 13
Caption = 'Certificate File'
end
object Label2: TLabel
Left = 16
Top = 200
Width = 46
Height = 13
Caption = 'Password'
end
object Label3: TLabel
Left = 440
Top = 8
Width = 116
Height = 13
Caption = 'SOAP data items to Sign'
end
object Label4: TLabel
Left = 16
Top = 8
Width = 111
Height = 13
Caption = 'Source SOAP message'
end
object Label5: TLabel
Left = 16
Top = 232
Width = 110
Height = 13
Caption = 'Signed SOAP message'
end
object Bevel1: TBevel
Left = 11
Top = 226
Width = 597
Height = 2
end
object memSource: TMemo
Left = 16
Top = 24
Width = 417
Height = 145
Lines.Strings = (
'<?xml version="1.0" encoding="UTF-8"?>'
'<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envel' +
'ope/">'
' <soap:Header>'
' <Operation Id="MsgOperation">TestAction</Operation>'
' </soap:Header>'
' <soap:Body Id="MsgBody">'
' <TestData>data</TestData>'
' </soap:Body>'
'</soap:Envelope>')
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object memResult: TMemo
Left = 16
Top = 248
Width = 585
Height = 134
Lines.Strings = (
'Result'
'')
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 6
WordWrap = False
end
object btnSign: TButton
Left = 488
Top = 190
Width = 75
Height = 25
Caption = 'Sign'
TabOrder = 5
OnClick = btnSignClick
end
object edtCertFile: TEdit
Left = 96
Top = 176
Width = 305
Height = 21
TabOrder = 2
Text = '*.p12'
end
object edtCertPassword: TEdit
Left = 96
Top = 200
Width = 81
Height = 21
PasswordChar = '*'
TabOrder = 4
end
object memReferences: TMemo
Left = 440
Top = 24
Width = 161
Height = 145
Lines.Strings = (
'MsgOperation'
'MsgBody')
ScrollBars = ssVertical
TabOrder = 1
end
object btnBrowse: TButton
Left = 405
Top = 175
Width = 25
Height = 22
Caption = '...'
TabOrder = 3
OnClick = btnBrowseClick
end
object clSoapMessage: TclSoapMessage
Header.Connection = 'Keep-Alive'
Header.Accept = 'text/html, */*'
Header.AcceptLanguage = 'en-us'
IdName = 'Id'
OnGetCertificate = clSoapMessageGetCertificate
Left = 272
Top = 270
end
object OpenDialog: TOpenDialog
DefaultExt = '*.p12'
Filter = '*.cer|*.cer|*.p12|*.p12|*.pfx|*.pfx|All (*.*)|*.*'
FilterIndex = 2
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
Left = 352
Top = 272
end
object clCertificateStore: TclCertificateStore
StoreName = 'MY'
Left = 312
Top = 272
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -