ucall.pas

一个网络IP电话程序

unit uCall;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFormCall = class(TForm)
    Label1: TLabel;
    EdIP: TEdit;
    Label2: TLabel;
    EdPort: TEdit;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EdSocksIP: TEdit;
    EdSocksPort: TEdit;
    EdSocksUser: TEdit;
    EdSocksPass: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CkSocks: TCheckBox;
    CkHttp: TCheckBox;
    Panel2: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    EdHttpIP: TEdit;
    EdHttpPort: TEdit;
    EdHttpUser: TEdit;
    EdHttpPass: TEdit;
    BtStart: TBitBtn;
    BtCancel: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCall: TFormCall;

implementation

{$R *.dfm}

end.