unit1.dfm

This is a simple image sender to a FTP site. it can be usefull if you want to send a Web-CAM frame

object Form1: TForm1
  Left = 797
  Top = 217
  Width = 328
  Height = 415
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 220
    Width = 320
    Height = 33
    Align = alBottom
    TabOrder = 0
    object Button1: TButton
      Left = 4
      Top = 4
      Width = 69
      Height = 25
      Caption = 'Connexion'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 78
      Top = 4
      Width = 81
      Height = 25
      Caption = 'D'#233'connexion'
      Enabled = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Edit1: TEdit
      Left = 232
      Top = 8
      Width = 81
      Height = 21
      TabOrder = 2
      Text = '10000'
      OnKeyPress = Edit1KeyPress
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 253
    Width = 320
    Height = 89
    Align = alBottom
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 342
    Width = 320
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object VideoWindow: TVideoWindow
    Left = 0
    Top = 0
    Width = 320
    Height = 220
    FilterGraph = FilterGraph
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    Align = alClient
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 50
    Top = 40
  end
  object IdFTP1: TIdFTP
    MaxLineAction = maException
    OnDisconnected = IdFTP1Disconnected
    OnConnected = IdFTP1Connected
    ProxySettings.ProxyType = fpcmNone
    ProxySettings.Port = 0
    Left = 10
    Top = 40
  end
  object FilterGraph: TFilterGraph
    Mode = gmCapture
    GraphEdit = False
    LinearVolume = True
    Left = 8
    Top = 80
  end
  object SampleGrabber: TSampleGrabber
    FilterGraph = FilterGraph
    MediaType.data = {
      7669647300001000800000AA00389B717DEB36E44F52CE119F530020AF0BA770
      FFFFFFFF0000000001000000809F580556C3CE11BF0100AA0055595A00000000
      0000000000000000}
    Left = 48
    Top = 80
  end
  object Filter: TFilter
    BaseFilter.data = {00000000}
    FilterGraph = FilterGraph
    Left = 48
    Top = 120
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 120
    object Devices: TMenuItem
      Caption = 'Devices'
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 8
    Top = 160
  end
end