home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / RASMG110.ZIP / RasExampleMainDialog.pas < prev    next >
Pascal/Delphi Source File  |  2002-08-10  |  4KB  |  140 lines
  1. unit RasExampleMainDialog;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, RasManager, StdCtrls, Buttons, ToolWin, ComCtrls, ExtCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     ListBox: TListBox;
  12.     RasManager: TRasManager;
  13.     Label1: TLabel;
  14.     lbDeviceName: TLabel;
  15.     lbDeviceType: TLabel;
  16.     Label4: TLabel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     lbIPClient: TLabel;
  20.     lbIPServer: TLabel;
  21.     Button: TButton;
  22.     Label5: TLabel;
  23.     lbConnected: TLabel;
  24.     Timer: TTimer;
  25.     Label6: TLabel;
  26.     lbPhoneNumber: TLabel;
  27.     Label7: TLabel;
  28.     lbAreacode: TLabel;
  29.     Label8: TLabel;
  30.     lbCountryCode: TLabel;
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure ListBoxClick(Sender: TObject);
  33.     procedure FormShow(Sender: TObject);
  34.     procedure RasManagerConnect(Sender: TObject; Connection: TRasEntry);
  35.     procedure RasManagerDisconnect(Sender: TObject; Connection: TRasEntry);
  36.     procedure RasManagerConnecting(Sender: TObject; Index, Msg, State,
  37.       Error: Integer);
  38.     procedure ButtonClick(Sender: TObject);
  39.     procedure TimerTimer(Sender: TObject);
  40.   private
  41.     { Private-Deklarationen }
  42.     procedure RefreshStatus;
  43.   public
  44.     { Public-Deklarationen }
  45.   end;
  46.  
  47. var
  48.   MainForm: TMainForm;
  49.  
  50. implementation
  51.  
  52. uses RasExampleMemoDialog;
  53.  
  54. var cYesNo: array [false..true] of string = ('no', 'yes' );
  55.     cConnectDisConnect: array [false..true] of string = ('connect', 'disconnect' );
  56.  
  57. {$R *.dfm}
  58.  
  59. procedure TMainForm.RefreshStatus;
  60. begin
  61.   if Listbox.ItemIndex >= 0 then begin
  62.     lbDeviceName.Caption := RasManager.DeviceName[Listbox.ItemIndex];
  63.     lbDeviceType.Caption := RasManager.DeviceType[Listbox.ItemIndex];
  64.     lbIPClient.Caption := RasManager.IPClient[Listbox.ItemIndex];
  65.     lbIPServer.Caption := RasManager.IPServer[Listbox.ItemIndex];
  66.     lbConnected.Caption := cYesNo[RasManager.Connected[Listbox.ItemIndex]];
  67.     lbPhoneNumber.Caption := RasManager.PhoneNumber[ListBox.ItemIndex];
  68.     lbAreacode.Caption := RasManager.AreaCode[ListBox.ItemIndex];
  69.     lbCountryCode.Caption := IntToStr(RasManager.CountryCode[ListBox.ItemIndex]);
  70.     Button.Caption := cConnectDisConnect[RasManager.Connected[Listbox.ItemIndex]];
  71.   end else begin
  72.     lbDeviceName.Caption := '';
  73.     lbDeviceType.Caption := '';
  74.     lbIPClient.Caption := '';
  75.     lbIPServer.Caption := '';
  76.     lbConnected.Caption := '';
  77.     lbPhoneNumber.Caption := '';
  78.     lbAreacode.Caption := '';
  79.     lbCountryCode.Caption := '';
  80.     Button.Caption := '';
  81.   end;
  82. end;
  83.  
  84. procedure TMainForm.FormCreate(Sender: TObject);
  85. var i: Integer;
  86. begin
  87.   for i := 1 to RASManager.Count do begin
  88.     ListBox.Items.Add( RasManager.Name[i-1] );
  89.   end;
  90.   RefreshStatus;
  91.   Caption := Caption + ' - ' + RasManager.Version;
  92. end;
  93.  
  94. procedure TMainForm.ListBoxClick(Sender: TObject);
  95. begin
  96.   RefreshStatus;
  97. end;
  98.  
  99. procedure TMainForm.FormShow(Sender: TObject);
  100. begin
  101.   RasManager.Start;
  102.   MemoForm.Show;
  103. end;
  104.  
  105. procedure TMainForm.RasManagerConnect(Sender: TObject;
  106.   Connection: TRasEntry);
  107. begin
  108.   MemoForm.Write( 'connected: ' + Connection.Name);
  109. end;
  110.  
  111. procedure TMainForm.RasManagerDisconnect(Sender: TObject;
  112.   Connection: TRasEntry);
  113. begin
  114.   MemoForm.Write( 'disconnected: ' + Connection.Name);
  115. end;
  116.  
  117. procedure TMainForm.RasManagerConnecting(Sender: TObject; Index, Msg,
  118.   State, Error: Integer);
  119. begin
  120.   MemoForm.Write( 'connecting: ' + RasManager.Name[Index] + ' -> ' + GetStatusString(State) );
  121. end;
  122.  
  123. procedure TMainForm.ButtonClick(Sender: TObject);
  124. begin
  125.   if Listbox.ItemIndex >= 0 then begin
  126.     if RasManager.Connected[Listbox.ItemIndex] then begin
  127.       RasManager.DisConnect(Listbox.ItemIndex);
  128.     end else begin
  129.       RasManager.Connect(Listbox.ItemIndex);
  130.     end;
  131.   end;
  132. end;
  133.  
  134. procedure TMainForm.TimerTimer(Sender: TObject);
  135. begin
  136.   RefreshStatus;
  137. end;
  138.  
  139. end.
  140.