Class TfrmTest (unit TestForm)

Inherits from

TForm

Remote Access API test program by Davide Moretti // Play with it! :-

Constructors



Functions

procedure btnActiveConnClick(Sender: TObject);


procedure btnCreateEntryClick(Sender: TObject);


procedure btnDeleteEntryClick(Sender: TObject);


procedure btnDialEntryClick(Sender: TObject);


procedure btnEditEntryClick(Sender: TObject);


procedure btnGetEntriesClick(Sender: TObject);

SLIP

procedure btnGetEntryPropertiesClick(Sender: TObject);


procedure btnGetParamsClick(Sender: TObject);

wait 1 second

procedure btnHangupClick(Sender: TObject);

callback function

procedure btnRenameEntryClick(Sender: TObject);

Note: as stated in WIN32.

procedure btnSetEntryPropertiesClick(Sender: TObject);

...

procedure btnSetParamsClick(Sender: TObject);


procedure lstEntriesClick(Sender: TObject);


procedure txtUserNameChange(Sender: TObject);


procedure set_entry_params(var entry: TRasEntry);


Properties

Events

Variables

btnActiveConn : TButton;


btnCreateEntry : TButton;


btnDeleteEntry : TButton;


btnDialEntry : TButton;


btnEditEntry : TButton;


btnGetEntries : TButton;


btnGetEntryProperties : TButton;


btnGetParams : TButton;


btnHangup : TButton;


btnRenameEntry : TButton;


btnSetEntryProperties : TButton;


btnSetParams : TButton;


grpSelectedEntry : TGroupBox;


Label1 : TLabel;


lblAsync : TLabel;


lblPassword : TLabel;


lblStatus : TLabel;


lblUserName : TLabel;


lstEntries : TListBox;


lvConnections : TListView;


optDialMode : TRadioGroup;


txtCopyright : TMemo;


txtPassword : TEdit;


txtUserName : TEdit;


dialparams : TRasDialParams;

Private declarations


Constructors


Functions


procedure btnActiveConnClick(Sender: TObject);


procedure btnCreateEntryClick(Sender: TObject);


procedure btnDeleteEntryClick(Sender: TObject);


procedure btnDialEntryClick(Sender: TObject);


procedure btnEditEntryClick(Sender: TObject);


procedure btnGetEntriesClick(Sender: TObject);

SLIP


procedure btnGetEntryPropertiesClick(Sender: TObject);


procedure btnGetParamsClick(Sender: TObject);

wait 1 second


procedure btnHangupClick(Sender: TObject);

callback function


procedure btnRenameEntryClick(Sender: TObject);

Note: as stated in WIN32.HLP, the szPhoneNumber cannot be changed by this function. The only way to change it (as far as I know) is to use RasEditPhoneBookEntry and change it manually. Or it's possible to specify szPhoneNumber for the RasDial function.


procedure btnSetEntryPropertiesClick(Sender: TObject);

...


procedure btnSetParamsClick(Sender: TObject);


procedure lstEntriesClick(Sender: TObject);


procedure txtUserNameChange(Sender: TObject);


procedure set_entry_params(var entry: TRasEntry);


Properties


Events


Variables


btnActiveConn : TButton;


btnCreateEntry : TButton;


btnDeleteEntry : TButton;


btnDialEntry : TButton;


btnEditEntry : TButton;


btnGetEntries : TButton;


btnGetEntryProperties : TButton;


btnGetParams : TButton;


btnHangup : TButton;


btnRenameEntry : TButton;


btnSetEntryProperties : TButton;


btnSetParams : TButton;


grpSelectedEntry : TGroupBox;


Label1 : TLabel;


lblAsync : TLabel;


lblPassword : TLabel;


lblStatus : TLabel;


lblUserName : TLabel;


lstEntries : TListBox;


lvConnections : TListView;


optDialMode : TRadioGroup;


txtCopyright : TMemo;


txtPassword : TEdit;


txtUserName : TEdit;


dialparams : TRasDialParams;

Private declarations