6 replies to this topic

[FELIX]

Saludos.

Estoy trabajando con servicios web y al buscar un dato sale error de conversion de datos.
 

[enecumene]

Prueba haciendo un casting:

delphi

var Algo: String;
begin
   WideString(Algo);
end;

Saludos.

[FELIX]

Al ejecutar el codigo sale un error de que la expresion no se encuentra

delphi

var Algo: String;
begin
WideString(Algo);
end;

[enecumene]

Pense que entenderias al menos:

delphi

var Algo: String;
      AlgoW: WideString;
begin
  Algo := 'Algo';
  AlgoW := WideString(Algo);
end;

[FELIX]

Gracias Enecumene por tus respuesta, pero al buscar el dato ahora me aparece otro error

---------------------------
Debugger Exception Notification
---------------------------
Project prueba.exe raised exception class ERemotableException with message 'Cannot find child element: arg0'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

este es mi codigo

delphi

procedure Tfrm_BuscarDatos.Edit1Change(Sender: TObject);
var i: Integer;
    strXml: DatosVOArray;
    objCont: DatosVO;
    Servicio_web:DatosWS;
    codigo: String;
    codigow: WideString;
begin
  codigo:= 'HPST001';
  codigow:= WideString(codigo);
 
  servicio_web := GetDatosWS(True);
  strXml := Servicio_web.buscarDatosActivos(codigow,codigow); //[color=red]Sale el error[/color]
end;

En el servicio Web tengo
DatosVOArray = array of DatosVO;
DatosWS = interface(IInvokable)
function  buscarDatosActivos(const arg0: WideString; const arg1: WideString): DatosVOArray; stdcall;

[enecumene]

Ese error tiene que ver con el archivo XML que genera, no soy experto en WebServices, espero que algun companero te ayude en adelante.

Saludos.

[pcicom]

delphi

var
  cDato1: String;
  cDato2: WideString;
begin
 
  cDato1:= 'DelphiAccess';
  cDato2:= cDato1;
end;