Backups/SA-MP
1
0
Fork 0
mirror of https://github.com/dashr9230/SA-MP.git synced 2024-12-22 22:47:29 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[exgui] Implement RconConfig procedures

Browse Source
This commit is contained in:
RD42 2023-12-16 23:28:14 +08:00
parent 23664f3362
commit b29fb68ec6
2 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
exgui/RconConfig.dfm
View File

Binary file not shown.

31
exgui/RconConfig.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; Dialogs, StdCtrls, ShellAPI;
type type
TfmRconConfig = class(TForm) TfmRconConfig = class(TForm)
@ -29,26 +29,47 @@ var
implementation implementation
uses
Rcon;
{$R *.dfm} {$R *.dfm}
procedure TfmRconConfig.edHostKeyPress(Sender: TObject; var Key: Char); procedure TfmRconConfig.edHostKeyPress(Sender: TObject; var Key: Char);
begin begin
// TODO: TfmRconConfig.edHostKeyPress if not (Key in ['0'..'9','a'..'z','A'..'Z','.',':'])
and (Key <> #8) and (Key <> #46) then
Key:= #0;
end; end;
procedure TfmRconConfig.bnCancelClick(Sender: TObject); procedure TfmRconConfig.bnCancelClick(Sender: TObject);
begin begin
// TODO: TfmRconConfig.bnCancelClick Close;
end; end;
procedure TfmRconConfig.bnConnectClick(Sender: TObject); procedure TfmRconConfig.bnConnectClick(Sender: TObject);
var
//fmRcon: TfmRcon;
Server, Addr, Port: String;
begin begin
// TODO: TfmRconConfig.bnConnectClick //fmRcon:= TfmRcon.Create(Application);
//fmRcon.Host:= edHost.Text;
//fmRcon.Password:= edPassword.Text;
//fmRcon.Show;
Server:= edHost.Text;
if Pos(':', Server) <> 0 then begin
Addr:= Copy(Server, 1, Pos(':', Server)-1);
Port:= Copy(Server, Pos(':', Server)+1, 5);
end else begin
Addr:= Server;
Port:= '5193';
end;
ShellExecute(0, 'open', 'rcon.exe', PChar(Addr + ' ' + Port + ' ' + edPassword.text), PChar(ExtractFilePath(ParamStr(0))), SW_SHOWNORMAL);
Close;
end; end;
procedure TfmRconConfig.edPasswordChange(Sender: TObject); procedure TfmRconConfig.edPasswordChange(Sender: TObject);
begin begin
// TODO: TfmRconConfig.edPasswordChange bnConnect.Enabled:= (edHost.Text <> '') and (edPassword.Text <> '');
end; end;
end. end.