david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
64 lines
1.8 KiB
ObjectPascal
64 lines
1.8 KiB
ObjectPascal
unit NamedPipeClientMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
|
uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uRONamedPipeChannel, NamedPipeLibrary_Intf;
|
|
type
|
|
TNamedPipeClientMainForm = class(TForm)
|
|
ROMessage: TROBinMessage;
|
|
ROChannel: TRONamedPipeChannel;
|
|
RONamedPipeServer: TRORemoteService;
|
|
GetPathButton: TButton;
|
|
Memo: TMemo;
|
|
UpTimeButton: TButton;
|
|
GetConnectedUsersCountButton: TButton;
|
|
procedure GetPathButtonClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure UpTimeButtonClick(Sender: TObject);
|
|
procedure GetConnectedUsersCountButtonClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
FService: INamedPipeService;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
NamedPipeClientMainForm: TNamedPipeClientMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TNamedPipeClientMainForm.GetPathButtonClick(Sender: TObject);
|
|
begin
|
|
Memo.Lines.text := StringReplace(FService.getPath, ';', sLineBreak, [rfReplaceAll]);
|
|
end;
|
|
|
|
procedure TNamedPipeClientMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FService := RONamedPipeServer as INamedPipeService;
|
|
end;
|
|
|
|
procedure TNamedPipeClientMainForm.UpTimeButtonClick(Sender: TObject);
|
|
var
|
|
uptime: TDateTime;
|
|
d, h, m, s, ms: word;
|
|
begin
|
|
uptime := FService.UpTime;
|
|
d := Trunc(UpTime);
|
|
DecodeTime(uptime, h, m, s, ms);
|
|
Memo.Lines.text := Format('Server uptime is %d day %d hour %d min %d sec', [d, h, m, s]);
|
|
end;
|
|
|
|
procedure TNamedPipeClientMainForm.GetConnectedUsersCountButtonClick(
|
|
Sender: TObject);
|
|
begin
|
|
Memo.Lines.text := 'Connected users on server is ' + IntToStr(FService.GetConnectedUsersCount);
|
|
end;
|
|
|
|
end.
|
|
|