WebService y parametros

[AdrianD]

Siempre he trabajado en pascal ( para DOS y ahora en Delphi ), pero resulta que para la empresa que trabajo ha hecho un convenio con otra para fidelización de clientes y esta empresa trabaja con java y me tengo que conectar a un webservice, he usado muchos web services pero seimpre desarrollados tanto el servidor como el cliente con delphi, pero ahora resulta que cuando envio los parametros a ese webservice desarrollado en java, este solo recibe nulos, todos nulos. Alguna idea. Desde ya muchas gracias.

Me olvidaba yo uso delphi 2010

[Casimiro Notevi]

Hola, no repitas preguntas en distintos foros, gracias.
Borro el otro.

[AdrianD]

Perdon es que no sabia cual era el lugar correcto para hacer la pregunta

[egostar]

Siempre he trabajado en pascal ( para DOS y ahora en Delphi ), pero resulta que para la empresa que trabajo ha hecho un convenio con otra para fidelización de clientes y esta empresa trabaja con java y me tengo que conectar a un webservice, he usado muchos web services pero seimpre desarrollados tanto el servidor como el cliente con delphi, pero ahora resulta que cuando envio los parametros a ese webservice desarrollado en java, este solo recibe nulos, todos nulos. Alguna idea. Desde ya muchas gracias.

Me olvidaba yo uso delphi 2010

Y..... ¿ que tipo de datos es el que te piden las funciones que estas consumiendo ?

Son del tipo TRemotable, Widestring, XS...... ¿?

Si estas pasando strings, deberias considerar AnsiStrings, digo, por aquello del Unicode.....

Si publicas algo de código tal vez se te pueda ayudar con mas precisión.

saludos

[AdrianD]

Los parametros son algunos integer y otros string, probe con AnsiString y lo mismo

procedure TForm1.Button1Click(Sender: TObject);
var
RemObj: ServiceRegistroCompras;
IdEmpresa: Integer;
TipoDoc: SmallInt;
NroFac, NroDoc, Monto, Puntos: AnsiString;
begin
IdEmpresa := 5;
TipoDoc := 3;
NroDoc := edtNroDoc.Text;
NroFac := edtNroFac.Text;
Monto := edtMonto.Text;
lblError.Caption := '';
lblPuntos.Caption := '';
try
RemObj := (HTTPRIO1 as ServiceRegistroCompras);
Puntos := RemObj.chequearDatosTicketBrant(IdEmpresa, NroFac, TipoDoc, NroDoc, Monto);
lblPuntos.Caption := Puntos;
except
on E: Exception do
begin
lblPuntos.Caption := '0';
lblError.Caption := E.Message;
end;
end;

end;

Este es el codigo con el que llamo al webservice, es muy sencillo, se pasan los datos de una operacion de compra y el webservice me devulve los puntos que tiene el cliente por haber comprado