unit1.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 275
  Top = 145
  BorderStyle = bsDialog
  Caption = 'SMTP Relay demo'
  ClientHeight = 394
  ClientWidth = 425
  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 = 8
    Width = 328
    Height = 13
    Caption = 
      'This demo creates e-mail and sends it directly to the recipient'#39 +
      's server.'
  end
  object Label2: TLabel
    Left = 16
    Top = 32
    Width = 385
    Height = 39
    AutoSize = False
    Caption = 
      'Please specify the DNS server IP which will be used for resolvin' +
      'g the SMTP server address of the recipient'
    WordWrap = True
  end
  object Label3: TLabel
    Left = 16
    Top = 72
    Width = 385
    Height = 39
    AutoSize = False
    Caption = 
      'Please note ! Most SMTP servers require that the sender PC must ' +
      'be registered in DNS. Otherwise, relaying will be denied to such' +
      ' SMTP servers.'
    WordWrap = True
  end
  object Label4: TLabel
    Left = 16
    Top = 120
    Width = 68
    Height = 13
    Caption = 'DNS server IP'
  end
  object Label5: TLabel
    Left = 16
    Top = 152
    Width = 61
    Height = 13
    Caption = 'Sender email'
  end
  object Label6: TLabel
    Left = 16
    Top = 176
    Width = 50
    Height = 13
    Caption = 'Recipinets'
  end
  object Label7: TLabel
    Left = 16
    Top = 208
    Width = 93
    Height = 13
    Caption = 'Subject of message'
  end
  object Label8: TLabel
    Left = 16
    Top = 232
    Width = 63
    Height = 13
    Caption = 'Message text'
  end
  object Label9: TLabel
    Left = 248
    Top = 120
    Width = 77
    Height = 13
    Caption = 'DNS TimeOut, s'
  end
  object edtDNS: TEdit
    Left = 120
    Top = 120
    Width = 105
    Height = 21
    TabOrder = 0
    Text = '192.168.0.1'
  end
  object edtSender: TEdit
    Left = 120
    Top = 152
    Width = 289
    Height = 21
    TabOrder = 2
    Text = '[e-mail]'
  end
  object edtRecipient: TEdit
    Left = 120
    Top = 176
    Width = 289
    Height = 21
    TabOrder = 3
    Text = '[e-mail],[e-mail]'
  end
  object edtSubject: TEdit
    Left = 120
    Top = 208
    Width = 289
    Height = 21
    TabOrder = 4
    Text = 'smtp relaying test'
  end
  object memText: TMemo
    Left = 16
    Top = 248
    Width = 393
    Height = 105
    Lines.Strings = (
      'This is a test message')
    TabOrder = 5
  end
  object btnSend: TButton
    Left = 120
    Top = 360
    Width = 129
    Height = 25
    Caption = 'Send Mail'
    TabOrder = 6
    OnClick = btnSendClick
  end
  object edtDNSTimeOut: TEdit
    Left = 336
    Top = 120
    Width = 73
    Height = 21
    TabOrder = 1
    Text = '5'
  end
  object clSmtpRelay1: TclSmtpRelay
    Left = 216
    Top = 280
  end
  object clMailMessage1: TclMailMessage
    Date = 38658.889933078700000000
    CharSet = 'iso-8859-1'
    ContentType = 'text/plain'
    MimeOLE = 'Produced By Clever Internet Suite MimeOLE v 6.0'
    Left = 256
    Top = 280
  end
end