41 lines
1.0 KiB
Plaintext
41 lines
1.0 KiB
Plaintext
unit wSession;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
w_bases, wObject;
|
|
|
|
type
|
|
TwSession = class(TwObject)
|
|
private
|
|
{ Private declarations }
|
|
FUserID: AnsiString;
|
|
FUserPWD: AnsiString;
|
|
FServerName: AnsiString;
|
|
FServerPort: AnsiString;
|
|
FHostName: AnsiString;
|
|
FCompanyName: AnsiString;
|
|
FClearDateTime: AnsiString;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
published
|
|
{ Published declarations }
|
|
property UserID: AnsiString read FUserID write FUserID;
|
|
property UserPWD: AnsiString read FUserPWD write FUserPWD;
|
|
property ServerName: AnsiString read FServerName write FServerName;
|
|
property ServerPort: AnsiString read FServerPort write FServerPort;
|
|
property HostName: AnsiString read FHostName write FHostName;
|
|
property CompanyName: AnsiString read FCompanyName write FCompanyName;
|
|
property ClearDateTime: AnsiString read FClearDateTime write FClearDateTime;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|