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

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

TAPI编程

开发平台：

Delphi

uCall.pas：源码内容
  1. unit uCall;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, ExtCtrls;
  9. const
  10.   ConfigFile     = 'NetPhone.cfx';
  11.   SocksProxyFile = 'SocksProxy.txt';
  12.   HttpProxyFile  = 'HttpProxy.txt';
  13.   HistoryCall    = 'HistoryCall.txt';
  14.   
  15. type
  16.   TFormCall = class(TForm)
  17.     Label1: TLabel;
  18.     Panel1: TPanel;
  19.     Label3: TLabel;
  20.     Label5: TLabel;
  21.     Label6: TLabel;
  22.     EdSocksUser: TEdit;
  23.     EdSocksPass: TEdit;
  24.     RbSocks4: TRadioButton;
  25.     RbSocks5: TRadioButton;
  26.     CkSocks: TCheckBox;
  27.     CkHttp: TCheckBox;
  28.     Panel2: TPanel;
  29.     Label7: TLabel;
  30.     Label9: TLabel;
  31.     Label10: TLabel;
  32.     EdHttpUser: TEdit;
  33.     EdHttpPass: TEdit;
  34.     BtStart: TBitBtn;
  35.     BtCancel: TBitBtn;
  36.     BtAdd: TBitBtn;
  37.     EdIP: TComboBox;
  38.     EdSocksIP: TComboBox;
  39.     EdHttpIP: TComboBox;
  40.     procedure BtAddClick(Sender: TObject);
  41.     procedure FormCreate(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  48. implementation
  50. {$R *.dfm}
  52. procedure TFormCall.BtAddClick(Sender: TObject);
  53. begin
  54.   if Trim(EdIP.Text) <> '' then EdIP.Items.Insert(0, EdIP.Text); 
  55. end;
  57. procedure TFormCall.FormCreate(Sender: TObject);
  58. begin
  59.   if FileExists(SocksProxyFile) then EdSocksIP.Items.LoadFromFile(SocksProxyFile);
  60.   if FileExists(HttpProxyFile) then EdHttpIP.Items.LoadFromFile(HttpProxyFile);
  61.   if FileExists(HistoryCall) then EdIP.Items.LoadFromFile(HistoryCall);
  62. end;
  64. end.