Ayuda con Webservice

[[AgustinOrtu]]

Copia el código completo de las dos Unit

[gersojn]

Hola AgustinOrtu,
//al momento de enviar el unit recibo este mensaje en el foro
El texto que has ingresado es muy largo (53228 caracteres). Por favor acórtalo a 30000 caracteres de largo.
Lo adjuntare en dos mensajes.
Gracias, ahora agrego el código.

Hace un momento logre que compile sin errores, pero al generar la acción en el boton, la aplicación genera un error de "Access Violation at Address" . No se como recuperar la información.

Unit principal (VCL)

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Uni, UniProvider,
  SQLServerUniProvider, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, MemDS,Soap;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ws:sugarsoapPortType;

implementation


{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);
  var
    autenticacion:user_auth;
    usuario:name_value_list;
    resultado:entry_value;
begin
    resultado := ws.login(autenticacion,'',usuario);
end;

end.

[gersojn]

Este el código del unit generado, tras la importación:
Lo adjunto en un txt, ya que no permite incluirlo en un mensaje, porque sobre pasa la cantidad de caracteres.

lo adjunto en el siguiente enlace de pastebin, ya que no logre subirlo al foro
http://pastebin.com/gsMqgKwh

Toda ayuda es bienvenida.
Saludos.

[[AgustinOrtu]]

El codigo que publicaste en el primer mensaje es distinto al ultimo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
    Memo1.Text := login(user_auth,'','admin','clave');
end;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  var
    autenticacion:user_auth;
    usuario:name_value_list;
    resultado:entry_value;
begin
    resultado := ws.login(autenticacion,'',usuario);
end;

Por otra parte, el codigo que publicaste en el segundo mensaje compila y no se da el error que comentas

[[AgustinOrtu]]

Otra cosa importante es que no estas inicializando los objetos que estas usando

sugarsoapPortType es una interface, es decir, para poder usarla, debes primero asignar una referencia a un objeto que imlpemente esa interface a la variable. De no hacerlo, la referencia contiene el valor nil. Cualquier metodo que quieras ejecutar sobre una interface que vale nil, produce un error en tiempo de ejecucion EAccessViolation

El wizard te genera automaticamente una funcion para crear esta interface, GetsugarsoapPortType

Para usar la interface deberias hacer algo como esto:

Código Delphi [-]
procedure blabla;
var
  ws: sugarsoapPortType;
begin
  ws := GetsugarsoapPortType;
  // ws ahora no vale nil y podes invocar sus metodos
end:

Esta misma "regla", se cumple para todos los tipos involucrados. Debes inicializarlos (crearlos, ya sea con un constructor, o con una funcion) y luego utilizarlos. Es cierto que existen los llamados "tipos primitivos" (Integer, string, record, etc) que si bien no es necesario resulta importante inicializarlos para darles un valor que tenga sentido:

Este codigo no da error, pero que valor tiene la variable I? No hay forma de saberlo ya que I va a tener el valor que estaba almacenado en la direccion de memoria que le fue asignado. Se dice en la jerga que el valor de I es "residuo"

Código Delphi [-]
procedure blabla;
var
  I: Integer;
begin
  ShowMessage(IntToStr(I));
end;

Hago enfasis en esto porque del mismo modo que invocas metodos sobre una interface sin antes inicializarla, y tambien le pasas parametros que no son inicializados

Por ejemplo, user_auth es una clase:

Código Delphi [-]
  user_auth = class(TRemotable)
  private
    Fuser_name: string;
    Fpassword: string;
  published
    property user_name: string  read Fuser_name write Fuser_name;
    property password:  string  read Fpassword write Fpassword;
  end;

Osea que debes inicializar una variable y luego tambien darle valores a sus propiedades internas (user_name y password, sino quedan como string vacios y quiza no tenga sentido, lo ideal seria darle valores concretos)

[gersojn]

Hola,
Gracias por la ayuda.
Realice la siguiente modificacion sobre el procedimiento:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  var
    autenticacion:user_auth;
    usuario:name_value_list;
    ws:sugarsoapPortType;
begin
    ws := GetsugarsoapPortType;
    autenticacion.user_name:='admin';
    autenticacion.password:='clave';
    ws.login(autenticacion,'',usuario);
end;

Al momento de invocar la función, obtengo el siguiente error: Conversion from class TForm1 to SOAP is not supported - SOAP classses must derive from TRemotable

No consigo comprender la forma correcta de crear una instancia , para utilizar la función de Login.
Toda ayuda, es bienvenida.
Saludos.

[[AgustinOrtu]]

La verdad es que nunca use SOAP. Yo primero leería la documentación

Luego una guía de un hola mundo está bien para no ir tan a tientas, por ejemplo, esta. En la primer parte crea el servidor también en Delphi, eso te lo podes saltear e ir directo a la parte del cliente

[iuqrul]

El importador genera una función que devuelve la interfaz a usar, por ejemplo en un importador tengo:

Código Delphi [-]
preventaPortType = interface(IInvokable)
  ['{3004DABE-FF4B-4C0C-BA43-953418C01030}']
    function  download(const xml: string): string; stdcall;
    function  upload(const xml: string): string; stdcall;
end;

function GetpreventaPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): preventaPortType;

Yo llamo a GetpreventaPortType, y guardo la interfaz del tipo preventaPortType (este es el nombre de mi caso) en una variable, y luego la uso para acceder a los dos métodos download y upload de dicha interfaz, cuando acabas la igualas a nil y se libera.