First commit 25/10/1998

2021-09-12 22:21:22 +02:00
commit ce9a6b7473
22 changed files with 1236 additions and 0 deletions
--- a/DialUp/Main_f.pas
+++ b/DialUp/Main_f.pas
@ -0,0 +1,130 @@
+unit Main_F;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, DialUp;
+
+type
+  TForm1 = class(TForm)
+    DialUp: TDialUp;
+    ListBox1: TListBox;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    RadioButton1: TRadioButton;
+    RadioButton2: TRadioButton;
+    Label1: TLabel;
+    Status: TLabel;
+    Status2: TLabel;
+    CheckBox1: TCheckBox;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure DialUpEntryGet(Sender: TObject; EntryName: array of Char);
+    procedure Button3Click(Sender: TObject);
+    procedure DialUpConnect(Sender: TObject);
+    procedure DialUpError(Sender: TObject; ErrorCode: Integer;
+      ErrorMessage: String);
+    procedure DialUpDialing(Sender: TObject);
+    procedure DialUpNotConnected(Sender: TObject; ErrorCode: Integer;
+      ErrorMessage: String);
+    procedure DialUpAsyncEvent(Sender: TObject; State, Error: Integer;
+      MessageText: String);
+    procedure Button4Click(Sender: TObject);
+    procedure DialUpActiveConnection(Sender: TObject; Handle: Integer;
+      Status: TRasConnStatusA; StatusString: String; EntryName, DeviceType,
+      DeviceName: array of Char);
+    procedure Button5Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.DFM}
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  ListBox1.Clear; Button2.Enabled:=True;
+  DialUp.GetEntries;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  if ListBox1.Items.Count=0 then
+  begin
+    ShowMessage('Choose entry with get entries first');
+    Exit;
+  end;
+  if RadioButton1.Checked then DialUp.DialMode:=dmAsync else DialUp.DialMode:=dmSync;
+  DialUp.Entry:=ListBox1.Items[ListBox1.ItemIndex];
+  DialUp.Dial;
+end;
+
+procedure TForm1.DialUpEntryGet(Sender: TObject; EntryName: array of Char);
+begin
+  ListBox1.Items.Add(PChar(@EntryName[0]));
+  ListBox1.ItemIndex:=0;
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+begin
+  DialUp.HangUp;
+end;
+
+procedure TForm1.DialUpConnect(Sender: TObject);
+begin
+  Status2.Caption:='Connected.';
+end;
+
+procedure TForm1.DialUpError(Sender: TObject; ErrorCode: Integer;
+  ErrorMessage: String);
+begin
+  Status2.Caption:='Error';
+end;
+
+procedure TForm1.DialUpDialing(Sender: TObject);
+begin
+  Status2.Caption:='Dialing...'; Application.ProcessMessages;
+end;
+
+procedure TForm1.DialUpNotConnected(Sender: TObject; ErrorCode: Integer;
+  ErrorMessage: String);
+begin
+  Status2.Caption:='Not Connected';
+end;
+
+procedure TForm1.DialUpAsyncEvent(Sender: TObject; State, Error: Integer;
+  MessageText: String);
+begin
+  Status.Caption:=MessageText;
+  if Error<>0 then Status2.Caption:='Error. Press Hangup button next to Dial button.';
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+  ListBox1.Clear; Button2.Enabled:=False;
+  DialUp.GetConnections;
+end;
+
+procedure TForm1.DialUpActiveConnection(Sender: TObject; Handle: Integer;
+  Status: TRasConnStatusA; StatusString: String; EntryName, DeviceType,
+  DeviceName: array of Char);
+begin
+  ListBox1.Items.Add(EntryName+' | '+DeviceName+' || '+StatusString);
+  if CheckBox1.Checked then DialUp.HangUpConn(Handle);
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+  DialUp.HangUpConn(ListBox1.ItemIndex);
+end;
+
+end.