unit1.dfm

利用delphi的sakEmail来接收邮件

object Form1: TForm1
  Left = 368
  Top = 207
  Width = 558
  Height = 522
  Caption = 'CFX_POP3 Desktop test client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object LabelFrom: TLabel
    Left = 96
    Top = 115
    Width = 49
    Height = 13
    Caption = 'LabelFrom'
  end
  object LabelTo: TLabel
    Left = 96
    Top = 131
    Width = 39
    Height = 13
    Caption = 'LabelTo'
  end
  object LabelSubject: TLabel
    Left = 96
    Top = 179
    Width = 62
    Height = 13
    Caption = 'LabelSubject'
  end
  object Label2: TLabel
    Left = 64
    Top = 289
    Width = 59
    Height = 13
    Caption = 'Atachments:'
  end
  object Label1: TLabel
    Left = 8
    Top = 13
    Width = 25
    Height = 13
    Caption = 'Host:'
  end
  object Label3: TLabel
    Left = 8
    Top = 37
    Width = 34
    Height = 13
    Caption = 'UserId:'
  end
  object Label4: TLabel
    Left = 8
    Top = 61
    Width = 49
    Height = 13
    Caption = 'Password:'
  end
  object Label5: TLabel
    Left = 8
    Top = 115
    Width = 32
    Height = 13
    Caption = 'From:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 8
    Top = 131
    Width = 20
    Height = 13
    Caption = 'To:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 8
    Top = 179
    Width = 48
    Height = 13
    Caption = 'Subject:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 8
    Top = 163
    Width = 32
    Height = 13
    Caption = 'Date:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelDate: TLabel
    Left = 96
    Top = 163
    Width = 49
    Height = 13
    Caption = 'LabelDate'
  end
  object Label10: TLabel
    Left = 408
    Top = 253
    Width = 81
    Height = 13
    Caption = 'RetrieveProgress'
  end
  object Label11: TLabel
    Left = 8
    Top = 195
    Width = 52
    Height = 13
    Caption = 'Reply to:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelReplyTo: TLabel
    Left = 96
    Top = 195
    Width = 66
    Height = 13
    Caption = 'LabelReplyTo'
  end
  object Label12: TLabel
    Left = 8
    Top = 99
    Width = 62
    Height = 13
    Caption = 'In reply to:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelInReplyTo: TLabel
    Left = 96
    Top = 99
    Width = 75
    Height = 13
    Caption = 'LabelInReplyTo'
  end
  object Label14: TLabel
    Left = 8
    Top = 83
    Width = 43
    Height = 13
    Caption = 'Msg Id:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelMsgId: TLabel
    Left = 96
    Top = 83
    Width = 55
    Height = 13
    Caption = 'LabelMsgId'
  end
  object Label8: TLabel
    Left = 8
    Top = 211
    Width = 69
    Height = 13
    Caption = 'ReturnPath:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelReturnPath: TLabel
    Left = 96
    Top = 211
    Width = 80
    Height = 13
    Caption = 'LabelReturnPath'
  end
  object Label13: TLabel
    Left = 8
    Top = 227
    Width = 73
    Height = 13
    Caption = 'ContentType'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object labelContentType: TLabel
    Left = 96
    Top = 227
    Width = 83
    Height = 13
    Caption = 'labelContentType'
  end
  object Label15: TLabel
    Left = 8
    Top = 243
    Width = 54
    Height = 13
    Caption = 'Encoding'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelEncoding: TLabel
    Left = 96
    Top = 243
    Width = 71
    Height = 13
    Caption = 'LabelEncoding'
  end
  object Label16: TLabel
    Left = 8
    Top = 259
    Width = 45
    Height = 13
    Caption = 'Sender:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelSender: TLabel
    Left = 96
    Top = 259
    Width = 60
    Height = 13
    Caption = 'LabelSender'
  end
  object Label17: TLabel
    Left = 8
    Top = 147
    Width = 21
    Height = 13
    Caption = 'CC:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelCC: TLabel
    Left = 96
    Top = 147
    Width = 17
    Height = 13
    Caption = 'CC:'
  end
  object Memo1: TMemo
    Left = 0
    Top = 346
    Width = 550
    Height = 129
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 8
    WordWrap = False
  end
  object Cnt: TButton
    Left = 184
    Top = 8
    Width = 137
    Height = 25
    Caption = 'Connect and retrieve msgs'
    Default = True
    TabOrder = 3
    OnClick = CntClick
  end
  object EditHost: TEdit
    Left = 58
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'localhost'
  end
  object EditUserId: TEdit
    Left = 58
    Top = 32
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object EditPasswd: TEdit
    Left = 58
    Top = 56
    Width = 121
    Height = 21
    PasswordChar = '*'
    TabOrder = 2
  end
  object ButtonNext: TButton
    Left = 32
    Top = 313
    Width = 25
    Height = 25
    Caption = '->'
    TabOrder = 5
    OnClick = ButtonNextClick
  end
  object ButtonPrior: TButton
    Left = 8
    Top = 313
    Width = 25
    Height = 25
    Caption = '<-'
    TabOrder = 4
    OnClick = ButtonPriorClick
  end
  object ComboBoxAttach: TComboBox
    Left = 64
    Top = 305
    Width = 145
    Height = 21
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    TabOrder = 6
  end
  object ButtonSave: TButton
    Left = 216
    Top = 305
    Width = 41
    Height = 21
    Caption = 'Save'
    Enabled = False
    TabOrder = 7
    OnClick = ButtonSaveClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 475
    Width = 550
    Height = 20
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ProgressBar2: TProgressBar
    Left = 408
    Top = 269
    Width = 129
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 10
  end
  object BtnCancel: TButton
    Left = 248
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Cancel'
    Enabled = False
    TabOrder = 11
    OnClick = BtnCancelClick
  end
  object Edit1: TEdit
    Left = 352
    Top = 8
    Width = 193
    Height = 21
    TabOrder = 12
  end
  object Button1: TButton
    Left = 472
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Load From File'
    TabOrder = 13
    OnClick = Button1Click
  end
  object RadioGroup1: TRadioGroup
    Left = 264
    Top = 296
    Width = 185
    Height = 33
    Caption = 'View Mail as'
    Columns = 2
    Items.Strings = (
      'HTML'
      'Text')
    TabOrder = 14
    OnClick = RadioGroup1Click
  end
  object SakMsgList1: TSakMsgList
    Left = 480
    Top = 64
  end
  object SaveDialog1: TSaveDialog
    Left = 448
    Top = 64
  end
  object SakPOP1: TSakPOP
    Port = '110'
    StrErrorInFormatOfMsg = 'Error en el formato del mensaje.'
    RetrieveProgressStep = 2
    OnError = SakPOP1Error
    OnBeforeRetrieve = SakPOP1BeforeRetrieve
    OnAfterRetrieve = SakPOP1AfterRetrieve
    OnRetrieveProgress = SakPOP1RetrieveProgress
    Left = 520
    Top = 64
  end
  object OpenDialog1: TOpenDialog
    Filter = 'rfc/822 messages|*.eml'
    Left = 416
    Top = 64
  end
end