6 respuestas en este tema

[giulichajari]

Tengo un archivo.INI con los parametros de conexion, pero como estoy utilizando un webservice, utilizo el WSDL importer, que crea un .pas que llama a un HTTPRIO, pero queria psar yo manualmente uno propio.

Porque si cambia el ip por ejemplo del servicio(por lo que fuese dentro de la empresa), no quiero tener que volver a compilar todo el software.

delphi

procedure TForm2.FormCreate(Sender: TObject);
var
ip,puerto,user,pass,def:string;
inifile:TIniFile;
 
begin
     inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'suc.ini');
     ip:=inifile.ReadString('ip','Path','');
     puerto:=inifile.ReadString('puerto','Path','');
     user:=inifile.ReadString('user','Path','');
     pass:=inifile.ReadString('pass','Path','');
     def:='http://'+ ip + ':' + puerto + '/wsdl/Isucursales';
     with HTTPRIO1 do
      begin
        WSDLLocation:=def;
        Service:='Isucursallaferreteraservice';
        Port:='Isucursallaferreteraport';
      end;
 
 
     Isucursales1.GetIsucursales(true,def,HTTPRIO1);
end;

Como veran en este codigo tomo parametros y se los asigno a un componente que arrastre.

La aplicacion se inicia correctamente pero no utiliza el .ini mio, supongo esta usando el de el.pas

SAludos

[Wilson]

No soy experto en servicios web, pero todo apunta en que los parámetros de conexión los sobre-escribe desde otra fuente mucho después de la creación del form (FormCreate), por lo tanto debes interceptar directamente algún evento del propio componente de conexión, algo así como OnBeforeConnect o su equivalente, para pasarle tus parámetros.

Un cordial saludo.

[egostar]

Hola

Te paso un extracto de un tutorial de webservices que publiqué ya hace unos años, ésto lo hago en el archivo .PAS que genera el WSDL Importer.

delphi

implementation
 
uses SysUtils, IniFiles, Forms;
 
var
  IniFile: TIniFile;
  defWSDL,defURL : widestring; //Extraemos estas constantes para convertirlas
                               //en variables y poder manipularlas en "runtime"
 
function GetIwsClientes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IwsClientes;
const
  defSvc  = 'IwsClientesservice';
  defPrt  = 'IwsClientesPort';
var
  RIO: THTTPRIO;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
  defWSDL := IniFile.ReadString('CONFIGURACION','WSDL','');
  defURL  := IniFile.ReadString('CONFIGURACION','URL','');
  IniFile.Free;
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IwsClientes);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

Para que esto funcione correctamente necesitaremos crear un Archivo INI de nombre conf.ini en el directorio de nuestra aplicación y deberá contener lo siguiente:

delphi

[CONFIGURACION]
WSDL="http://localhost/WSClientes/WSClientes.dll/wsdl/IwsClientes"
URL="http://localhost/WSClientes/WSClientes.dll/soap/IwsClientes"

Con eso solucionas tu problema.

Saludos

[giulichajari]

Hola

Te paso un extracto de un tutorial de webservices que publiqué ya hace unos años, ésto lo hago en el archivo .PAS que genera el WSDL Importer.

delphi

implementation
 
uses SysUtils, IniFiles, Forms;
 
var
  IniFile: TIniFile;
  defWSDL,defURL : widestring; //Extraemos estas constantes para convertirlas
                               //en variables y poder manipularlas en "runtime"
 
function GetIwsClientes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IwsClientes;
const
  defSvc  = 'IwsClientesservice';
  defPrt  = 'IwsClientesPort';
var
  RIO: THTTPRIO;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
  defWSDL := IniFile.ReadString('CONFIGURACION','WSDL','');
  defURL  := IniFile.ReadString('CONFIGURACION','URL','');
  IniFile.Free;
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IwsClientes);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

Para que esto funcione correctamente necesitaremos crear un Archivo INI de nombre conf.ini en el directorio de nuestra aplicación y deberá contener lo siguiente:

delphi

[CONFIGURACION]
WSDL="http://localhost/WSClientes/WSClientes.dll/wsdl/IwsClientes"
URL="http://localhost/WSClientes/WSClientes.dll/soap/IwsClientes"

Con eso solucionas tu problema.

Saludos

Muchas gracias @egostar, lo unico que faltaria seria comprobar todo antes de ejecutar el programa. Y no que de error al llamar al server. Quizas con un TSOAPConnection lo logre

[egostar]

Hola

Si sigues los pasos que tiene el pequeño tutorial, no debería haber problema para acceder al servicio web, a menos claro que se tenga un problema con la URL, en todo caso el mismo sistema te enviará una excepción de que no existe o no está disponible el servicio web.

Saludos

[giulichajari]

Pues me da un error: La propiedad wsdl o url no ha sido seteada... probe quitar el archivo ini y no me avisa que no existe es como si no lo esta tomando?:

delphi

[SERVIDORSUCURSAL]
WSDL="http://localhost/wsdl/Isucursales"
URL="http://localhost/soap/Isucursales"

delphi

function GetIsucursales(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): Isucursales;
const
  defSvc  = 'Isucursalesservice';
  defPrt  = 'IsucursalesPort';
var
  RIO: THTTPRIO;
 
begin
 
 
     inifile:=TIniFile.Create(ExtractFilePath((Application.ExeName) + 'suc.ini'));
      defWSDL:=inifile.ReadString('SERVIDORSUCURSAL','WSDL','');
      defURL:=inifile.ReadString('SERVIDORSUCURSAL','URL','');
      inifile.Free;
      Result:=nil;
      if (Addr = '') then
        begin
          if UseWSDL then
            Addr := defWSDL
          else
            Addr := defURL;
        end;
      if HTTPRIO = nil then
        RIO := THTTPRIO.Create(nil)
      else
        RIO := HTTPRIO;
  try
    Result := (RIO as Isucursales);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

[giulichajari]

Hay un parentesis de mas en la linea 17, perdon ...