david
703c860436
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1061 0c75b7a4-871f-7646-8a2f-f78d34cc349f
71 lines
1.6 KiB
ObjectPascal
71 lines
1.6 KiB
ObjectPascal
unit uConfigurarConexion;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, uROClient, uROWinInetHttpChannel, uRODynamicRequest,
|
|
uRORemoteService, uROBinMessage;
|
|
|
|
type
|
|
TfConfigurarConexion = class(TForm)
|
|
bProbar: TButton;
|
|
GroupBox1: TGroupBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
edtServer: TEdit;
|
|
edtPort: TEdit;
|
|
bAceptar: TButton;
|
|
bCancelar: TButton;
|
|
procedure bProbarClick(Sender: TObject);
|
|
private
|
|
function GetTargetURL: String;
|
|
procedure SetTargetURL(const Value: String);
|
|
{ Private declarations }
|
|
public
|
|
property TargetURL : String read GetTargetURL write SetTargetURL;
|
|
end;
|
|
|
|
var
|
|
fConfigurarConexion: TfConfigurarConexion;
|
|
|
|
implementation
|
|
|
|
uses
|
|
StrUtils, JclStrings, uDataModuleConexion, uDialogUtils;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfConfigurarConexion }
|
|
|
|
function TfConfigurarConexion.GetTargetURL: String;
|
|
begin
|
|
Result := 'http://' + edtServer.Text + ':' + edtPort.Text + '/bin';
|
|
end;
|
|
|
|
procedure TfConfigurarConexion.SetTargetURL(const Value: String);
|
|
var
|
|
s : String;
|
|
begin
|
|
s := StrAfter('http://', Value);
|
|
s := StrBefore(':', s);
|
|
edtServer.Text := s;
|
|
|
|
s := StrAfter(edtServer.Text + ':', Value);
|
|
s := StrBefore('/bin', s);
|
|
|
|
if s = '' then
|
|
s := '8099';
|
|
edtPort.Text := s
|
|
end;
|
|
|
|
procedure TfConfigurarConexion.bProbarClick(Sender: TObject);
|
|
begin
|
|
if dmConexion.ProbarConexion(TargetURL) then
|
|
ShowInfoMessage('Conexión válida con el servidor.')
|
|
else
|
|
ShowErrorMessage('Error de conexión', 'No se ha podido establecer la conexión con el servidor.')
|
|
end;
|
|
|
|
end.
|