开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > TAPI编程 > 查看源码
uMain.dfm
资源名称：VoIPPhone.rar　[点击查看]
上传用户：axbxcx
上传日期：2009-10-29
资源大小：15k
文件大小：16k
源码类别：

TAPI编程

开发平台：

Delphi

uMain.dfm：源码内容
  1. object FormMain: TFormMain
  2.   Left = 209
  3.   Top = 113
  4.   ActiveControl = BtCall
  5.   BorderStyle = bsDialog
  6.   Caption = #32593#32476'IP'#30005#35805' V1.2 ['#20065#26449#26376#20809#20986#21697']'
  7.   ClientHeight = 252
  8.   ClientWidth = 546
  9.   Color = clSkyBlue
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   Position = poDesktopCenter
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object LbMyIP: TLabel
  22.     Left = 112
  23.     Top = 16
  24.     Width = 67
  25.     Height = 13
  26.     Caption = #25105#30340'IP: '#26080
  27.     Color = clSkyBlue
  28.     Font.Charset = GB2312_CHARSET
  29.     Font.Color = clRed
  30.     Font.Height = -13
  31.     Font.Name = #23435#20307
  32.     Font.Style = []
  33.     ParentColor = False
  34.     ParentFont = False
  35.   end
  36.   object LbCaller: TLabel
  37.     Left = 328
  38.     Top = 16
  39.     Width = 67
  40.     Height = 13
  41.     Caption = #23545#26041'IP: '#26080
  42.     Font.Charset = GB2312_CHARSET
  43.     Font.Color = clFuchsia
  44.     Font.Height = -13
  45.     Font.Name = #23435#20307
  46.     Font.Style = []
  47.     ParentFont = False
  48.   end
  49.   object Label9: TLabel
  50.     Left = 16
  51.     Top = 92
  52.     Width = 52
  53.     Height = 13
  54.     Caption = #26412#22320#31471#21475
  55.     Font.Charset = GB2312_CHARSET
  56.     Font.Color = clBlue
  57.     Font.Height = -13
  58.     Font.Name = #23435#20307
  59.     Font.Style = []
  60.     ParentFont = False
  61.   end
  62.   object LbDelayTime: TLabel
  63.     Left = 328
  64.     Top = 198
  65.     Width = 67
  66.     Height = 13
  67.     Caption = #24310#26102' 0.3'#31186
  68.     Font.Charset = GB2312_CHARSET
  69.     Font.Color = clBlue
  70.     Font.Height = -13
  71.     Font.Name = #23435#20307
  72.     Font.Style = []
  73.     ParentFont = False
  74.   end
  75.   object BtOpen: TBitBtn
  76.     Left = 16
  77.     Top = 16
  78.     Width = 75
  79.     Height = 25
  80.     Caption = #24320#26426
  81.     Font.Charset = GB2312_CHARSET
  82.     Font.Color = clBlue
  83.     Font.Height = -13
  84.     Font.Name = #23435#20307
  85.     Font.Style = []
  86.     ParentFont = False
  87.     TabOrder = 0
  88.     OnClick = BtOpenClick
  89.     Glyph.Data = {
  90.       76010000424D7601000000000000760000002800000020000000100000000100
  91.       04000000000000010000120B0000120B00001000000000000000000000000000
  92.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  93.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  94.       03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
  95.       0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
  96.       0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
  97.       0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
  98.       0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
  99.       0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
  100.       0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
  101.       0333337F777FFFFF7F3333000000000003333377777777777333}
  102.     NumGlyphs = 2
  103.   end
  104.   object BtClose: TBitBtn
  105.     Left = 16
  106.     Top = 56
  107.     Width = 75
  108.     Height = 25
  109.     Caption = #20851#26426
  110.     Font.Charset = GB2312_CHARSET
  111.     Font.Color = clRed
  112.     Font.Height = -13
  113.     Font.Name = #23435#20307
  114.     Font.Style = []
  115.     ParentFont = False
  116.     TabOrder = 1
  117.     OnClick = BtCloseClick
  118.     Glyph.Data = {
  119.       76010000424D7601000000000000760000002800000020000000100000000100
  120.       04000000000000010000120B0000120B00001000000000000000000000000000
  121.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  122.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  123.       03333377777777777F333301111111110333337F333333337F33330111111111
  124.       0333337F333333337F333301111111110333337F333333337F33330111111111
  125.       0333337F333333337F333301111111110333337F333333337F33330111111111
  126.       0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  127.       0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  128.       0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  129.       0333337F377777337F333301111111110333337F333333337F33330111111111
  130.       0333337FFFFFFFFF7F3333000000000003333377777777777333}
  131.     NumGlyphs = 2
  132.   end
  133.   object BtCall: TBitBtn
  134.     Left = 16
  135.     Top = 152
  136.     Width = 75
  137.     Height = 25
  138.     Caption = #25320#21495
  139.     Font.Charset = GB2312_CHARSET
  140.     Font.Color = clGreen
  141.     Font.Height = -13
  142.     Font.Name = #23435#20307
  143.     Font.Style = []
  144.     ParentFont = False
  145.     TabOrder = 2
  146.     OnClick = BtCallClick
  147.     Glyph.Data = {
  148.       76010000424D7601000000000000760000002800000020000000100000000100
  149.       04000000000000010000120B0000120B00001000000000000000000000000000
  150.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  151.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
  152.       003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
  153.       10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
  154.       03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
  155.       BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
  156.       333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
  157.       11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
  158.       113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
  159.       3BB3377333377F33377FBB33333BB33333BB7733333773333377}
  160.     NumGlyphs = 2
  161.   end
  162.   object Panel1: TPanel
  163.     Left = 112
  164.     Top = 64
  165.     Width = 201
  166.     Height = 113
  167.     Alignment = taLeftJustify
  168.     BevelInner = bvRaised
  169.     BevelOuter = bvLowered
  170.     Color = clSkyBlue
  171.     TabOrder = 3
  172.     object Label3: TLabel
  173.       Left = 8
  174.       Top = 10
  175.       Width = 26
  176.       Height = 13
  177.       Caption = #22320#22336
  178.       Font.Charset = GB2312_CHARSET
  179.       Font.Color = clBlack
  180.       Font.Height = -13
  181.       Font.Name = #23435#20307
  182.       Font.Style = []
  183.       ParentFont = False
  184.     end
  185.     object Label5: TLabel
  186.       Left = 8
  187.       Top = 34
  188.       Width = 26
  189.       Height = 13
  190.       Caption = #29992#25143
  191.       Font.Charset = GB2312_CHARSET
  192.       Font.Color = clWindowText
  193.       Font.Height = -13
  194.       Font.Name = #23435#20307
  195.       Font.Style = []
  196.       ParentFont = False
  197.     end
  198.     object Label6: TLabel
  199.       Left = 8
  200.       Top = 58
  201.       Width = 26
  202.       Height = 13
  203.       Caption = #23494#30721
  204.       Font.Charset = GB2312_CHARSET
  205.       Font.Color = clWindowText
  206.       Font.Height = -13
  207.       Font.Name = #23435#20307
  208.       Font.Style = []
  209.       ParentFont = False
  210.     end
  211.     object EdSocksUser: TEdit
  212.       Left = 40
  213.       Top = 32
  214.       Width = 153
  215.       Height = 21
  216.       TabOrder = 0
  217.     end
  218.     object EdSocksPass: TEdit
  219.       Left = 40
  220.       Top = 56
  221.       Width = 153
  222.       Height = 21
  223.       PasswordChar = '*'
  224.       TabOrder = 1
  225.     end
  226.     object RbSocks4: TRadioButton
  227.       Left = 8
  228.       Top = 88
  229.       Width = 65
  230.       Height = 17
  231.       Caption = 'Socks 4'
  232.       Checked = True
  233.       TabOrder = 2
  234.       TabStop = True
  235.     end
  236.     object RbSocks5: TRadioButton
  237.       Left = 120
  238.       Top = 88
  239.       Width = 65
  240.       Height = 17
  241.       Caption = 'Socks 5'
  242.       TabOrder = 3
  243.     end
  244.     object EdSocksIP: TComboBox
  245.       Left = 40
  246.       Top = 8
  247.       Width = 153
  248.       Height = 21
  249.       ItemHeight = 13
  250.       TabOrder = 4
  251.     end
  252.   end
  253.   object Panel2: TPanel
  254.     Left = 328
  255.     Top = 64
  256.     Width = 201
  257.     Height = 89
  258.     Alignment = taLeftJustify
  259.     BevelInner = bvRaised
  260.     BevelOuter = bvLowered
  261.     Color = clSkyBlue
  262.     TabOrder = 4
  263.     object Label1: TLabel
  264.       Left = 8
  265.       Top = 10
  266.       Width = 26
  267.       Height = 13
  268.       Caption = #22320#22336
  269.       Font.Charset = GB2312_CHARSET
  270.       Font.Color = clWindowText
  271.       Font.Height = -13
  272.       Font.Name = #23435#20307
  273.       Font.Style = []
  274.       ParentFont = False
  275.     end
  276.     object Label7: TLabel
  277.       Left = 8
  278.       Top = 34
  279.       Width = 26
  280.       Height = 13
  281.       Caption = #29992#25143
  282.       Font.Charset = GB2312_CHARSET
  283.       Font.Color = clWindowText
  284.       Font.Height = -13
  285.       Font.Name = #23435#20307
  286.       Font.Style = []
  287.       ParentFont = False
  288.     end
  289.     object Label8: TLabel
  290.       Left = 8
  291.       Top = 58
  292.       Width = 26
  293.       Height = 13
  294.       Caption = #23494#30721
  295.       Font.Charset = GB2312_CHARSET
  296.       Font.Color = clWindowText
  297.       Font.Height = -13
  298.       Font.Name = #23435#20307
  299.       Font.Style = []
  300.       ParentFont = False
  301.     end
  302.     object EdHttpUser: TEdit
  303.       Left = 40
  304.       Top = 32
  305.       Width = 153
  306.       Height = 21
  307.       TabOrder = 0
  308.     end
  309.     object EdHttpPass: TEdit
  310.       Left = 40
  311.       Top = 56
  312.       Width = 153
  313.       Height = 21
  314.       TabOrder = 1
  315.     end
  316.     object EdHttpIP: TComboBox
  317.       Left = 40
  318.       Top = 8
  319.       Width = 153
  320.       Height = 21
  321.       ItemHeight = 13
  322.       TabOrder = 2
  323.     end
  324.   end
  325.   object CkSocks: TCheckBox
  326.     Left = 112
  327.     Top = 40
  328.     Width = 137
  329.     Height = 17
  330.     Caption = 'SOCKS '#20195#29702#26381#21153#22120
  331.     Font.Charset = GB2312_CHARSET
  332.     Font.Color = clBlue
  333.     Font.Height = -13
  334.     Font.Name = #23435#20307
  335.     Font.Style = []
  336.     ParentFont = False
  337.     TabOrder = 5
  338.   end
  339.   object CkHttp: TCheckBox
  340.     Left = 328
  341.     Top = 40
  342.     Width = 129
  343.     Height = 17
  344.     Caption = 'HTTP '#20195#29702#26381#21153#22120
  345.     Font.Charset = GB2312_CHARSET
  346.     Font.Color = clBlue
  347.     Font.Height = -13
  348.     Font.Name = #23435#20307
  349.     Font.Style = []
  350.     ParentFont = False
  351.     TabOrder = 6
  352.   end
  353.   object EdListenPort: TEdit
  354.     Left = 16
  355.     Top = 112
  356.     Width = 73
  357.     Height = 21
  358.     TabOrder = 7
  359.     Text = '23450'
  360.   end
  361.   object StatusBar: TStatusBar
  362.     Left = 0
  363.     Top = 232
  364.     Width = 546
  365.     Height = 20
  366.     Color = clSkyBlue
  367.     Panels = <
  368.       item
  369.         Text = #23601#32490
  370.         Width = 160
  371.       end
  372.       item
  373.         Text = #27809#26377#36830#25509
  374.         Width = 180
  375.       end
  376.       item
  377.         Text = #25910#21040': 0    '#21457#36865': 0'
  378.         Width = 50
  379.       end>
  380.     SimpleText = 'Ready'
  381.   end
  382.   object BtStop: TBitBtn
  383.     Left = 16
  384.     Top = 192
  385.     Width = 75
  386.     Height = 25
  387.     Caption = #25346#26426
  388.     Font.Charset = GB2312_CHARSET
  389.     Font.Color = clFuchsia
  390.     Font.Height = -13
  391.     Font.Name = #23435#20307
  392.     Font.Style = []
  393.     ParentFont = False
  394.     TabOrder = 9
  395.     OnClick = BtStopClick
  396.     Glyph.Data = {
  397.       76010000424D7601000000000000760000002800000020000000100000000100
  398.       04000000000000010000120B0000120B00001000000000000000000000000000
  399.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  400.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
  401.       003333377777777777F3333091111111103333F7F3F3F3F3F7F3311098080808
  402.       10333777F737373737F313309999999910337F373F3F3F3F3733133309808089
  403.       03337FFF7F7373737FFF1000109999901000777777FFFFF77777701110000000
  404.       111037F337777777F3373099901111109990373F373333373337330999999999
  405.       99033373FFFFFFFFFF7333310000000001333337777777777733333333333333
  406.       3333333333333333333333333333333333333333333333333333333333333333
  407.       3333333333333333333333333333333333333333333333333333333333333333
  408.       3333333333333333333333333333333333333333333333333333}
  409.     NumGlyphs = 2
  410.   end
  411.   object CkPhone: TCheckBox
  412.     Left = 328
  413.     Top = 166
  414.     Width = 49
  415.     Height = 17
  416.     Caption = #35805#31570
  417.     Checked = True
  418.     Font.Charset = GB2312_CHARSET
  419.     Font.Color = clBlue
  420.     Font.Height = -13
  421.     Font.Name = #23435#20307
  422.     Font.Style = []
  423.     ParentFont = False
  424.     State = cbChecked
  425.     TabOrder = 10
  426.     OnClick = CkPhoneClick
  427.   end
  428.   object CkSpeaker: TCheckBox
  429.     Left = 440
  430.     Top = 166
  431.     Width = 49
  432.     Height = 17
  433.     Caption = #22768#38899
  434.     Checked = True
  435.     Font.Charset = GB2312_CHARSET
  436.     Font.Color = clBlue
  437.     Font.Height = -13
  438.     Font.Name = #23435#20307
  439.     Font.Style = []
  440.     ParentFont = False
  441.     State = cbChecked
  442.     TabOrder = 11
  443.     OnClick = CkSpeakerClick
  444.   end
  445.   object SbDelayTime: TScrollBar
  446.     Left = 112
  447.     Top = 196
  448.     Width = 201
  449.     Height = 15
  450.     Max = 50
  451.     Min = 1
  452.     PageSize = 0
  453.     Position = 3
  454.     TabOrder = 12
  455.     OnChange = SbDelayTimeChange
  456.   end
  457.   object BtSaveSetup: TBitBtn
  458.     Left = 440
  459.     Top = 192
  460.     Width = 91
  461.     Height = 25
  462.     Caption = #20445#23384#35774#32622
  463.     Font.Charset = DEFAULT_CHARSET
  464.     Font.Color = clBlue
  465.     Font.Height = -13
  466.     Font.Name = 'MS Sans Serif'
  467.     Font.Style = []
  468.     ParentFont = False
  469.     TabOrder = 13
  470.     OnClick = BtSaveSetupClick
  471.     Glyph.Data = {
  472.       76010000424D7601000000000000760000002800000020000000100000000100
  473.       04000000000000010000130B0000130B00001000000000000000000000000000
  474.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  475.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
  476.       7700333333337777777733333333008088003333333377F73377333333330088
  477.       88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
  478.       000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
  479.       FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
  480.       99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
  481.       99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  482.       99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  483.       93337FFFF7737777733300000033333333337777773333333333}
  484.     NumGlyphs = 2
  485.   end
  486.   object ATimer: TTimer
  487.     Enabled = False
  488.     Interval = 2000
  489.     OnTimer = ATimerTimer
  490.     Left = 248
  491.     Top = 8
  492.   end
  493.   object TrayIcon: TLMDTrayIcon
  494.     Hint = #32593#32476'IP'#30005#35805' V1.2'
  495.     Icon.Data = {
  496.       0000010001002020040000000000E80200001600000028000000200000004000
  497.       0000010004000000000000020000000000000000000000000000000000000000
  498.       0000000080000080000000808000800000008000800080800000C0C0C0008080
  499.       80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
  500.       0000000000000000000000000000000000000000000000000000000000000000
  501.       0000000000000000000000000000000000000000000000000000000000000000
  502.       0000000000888800000000000000000000000000887788880000000000000000
  503.       0000008877778888880000000000000000008877777788888888000000000000
  504.       0088777777FF888888888800000000000F777777FF7778888888888800000000
  505.       8F7777FF7777778888888888880080888F77FF77780777788888888888808877
  506.       8FFF77780FF877778888888888808F778F77780FF87807777888888888808FFF
  507.       78F77FF8780FF87777888888888008F7778F77780FF87807777788888880008F
  508.       7778F77FF8780FF77777778888800008F7778F77780FF7777777887788800000
  509.       8F7778F77FF777777788FF077780000008F7778F7777777788FFFFF088000000
  510.       008F7778F7777788FFFFFFFF000000000008F77788F788FFFFFFFFFFF0000000
  511.       000088F77788F8FFFFFFFFFFFF00000000000088F777888FFFFFFFFFFF800000
  512.       0000000088880008FFFFFFFF8800000000000000000000008FFFFF8800000000
  513.       000000000000000008FF88000000000000000000000000000088000000000000
  514.       0000000000000000000000000000000000000000000000000000000000000000
  515.       000000000000000000000000000000000000000000000000000000000000FFFF
  516.       FFFFFFFFFFFFFFFFFFFFFFFC3FFFFFF00FFFBFC003FF5F0000FFAC00003FD800
  517.       000FB0000003400000010000000000000000000000000000000080000000C000
  518.       0000E0000000F0000001F8000003FC000007FE000003FF000001FFC00000FFF0
  519.       E003FFFFF00FFFFFF83FFFFFFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  520.     NoClose = True
  521.     PopupMenu = MenuPopup
  522.     OnDblClick = MnDisplayClick
  523.     Left = 504
  524.     Top = 16
  525.   end
  526.   object MenuPopup: TLMDPopupMenu
  527.     OwnerDraw = True
  528.     Layout.Alignment = agBottomCenter
  529.     Layout.AlignText2Glyph = taTop
  530.     Layout.OffsetY = -2
  531.     Bevel.Mode = bmCustom
  532.     Caption = 'NetPhone'
  533.     FillObject.Style = sfGradient
  534.     FillObject.Gradient.Color = clSkyBlue
  535.     FillObject.Gradient.ColorCount = 64
  536.     FillObject.Gradient.EndColor = clMoneyGreen
  537.     Font.Charset = ANSI_CHARSET
  538.     Font.Color = clYellow
  539.     Font.Height = -13
  540.     Font.Name = 'Times New Roman'
  541.     Font.Style = [fsBold, fsItalic]
  542.     FontFX.Angle = 90
  543.     Left = 464
  544.     Top = 16
  545.     object MnDisplay: TMenuItem
  546.       Caption = '[&D]'#26174#31034
  547.       OnClick = MnDisplayClick
  548.     end
  549.     object MnHide: TMenuItem
  550.       Caption = '[&H]'#38544#34255
  551.       OnClick = MnHideClick
  552.     end
  553.     object N1: TMenuItem
  554.       Caption = '-'
  555.     end
  556.     object MnExit: TMenuItem
  557.       Caption = '[&X]'#36864#20986
  558.       OnClick = MnExitClick
  559.     end
  560.   end
  561. end