david
91f5b806d5
- Errores de herencia (TbxDock1) - Fallo al recibir un pedido de proveedor sin almacén y generar el albarán correspondiente. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@131 c93665c3-c93d-084d-9b98-7d5f4a9c3376
77 lines
1.9 KiB
ObjectPascal
77 lines
1.9 KiB
ObjectPascal
unit uConfigurarConexion;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, uROClient, uROWinInetHttpChannel, uRODynamicRequest,
|
|
uROServiceComponent, uRORemoteService, uROBinMessage;
|
|
|
|
type
|
|
TfConfigurarConexion = class(TForm)
|
|
bProbar: TButton;
|
|
GroupBox1: TGroupBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
edtServer: TEdit;
|
|
edtPort: TEdit;
|
|
bAceptar: TButton;
|
|
bCancelar: TButton;
|
|
HTTPChannel: TROWinInetHTTPChannel;
|
|
ROBinMessage: TROBinMessage;
|
|
CoService: TRORemoteService;
|
|
procedure bProbarClick(Sender: TObject);
|
|
procedure FormCreate(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);
|
|
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;
|
|
|
|
procedure TfConfigurarConexion.FormCreate(Sender: TObject);
|
|
begin
|
|
HTTPChannel.OnFailure := dmConexion.ROChannelFailure;
|
|
end;
|
|
|
|
end.
|