21 respuestas en este tema

[egostar]

Ya encontre el problema la solucion la encontre en DelphiGroups.

En datosws reemplaze la linea
  //InvRegistry.RegisterInvokeOptions(TypeInfo(ContratacionWS), ioLiteral);

Por 
  InvRegistry.RegisterInvokeOptions(TypeInfo(ContratacionWS), ioDocument);

Funciono Bien, gracias por todo Egostar con tu ayuda pude comprender muchas cosas 

Ah vaya que bien, me alegra , hoy aprendimos algo nuevo

Saludos

[FELIX]

Saludos Foreros

estaba tratando de conectar un servicio web a delphi, egostar me mostro como conectarme y funciono perfectamente en un nuevo proyecto que cree para aprender a consumir el servicio (hasta aqui todo bien).

Ahora mi problema es que ya hay un proyecto hecho el cual lo tengo que conectar al servicio web, hice los mismos pasos para consumir el servicio pero al ejecutar el proyecto no me muestra datos en los dbedit. Me pueden explicar que puede pasar???...

delphi

//[color=red]Este es el codigo  que necesito cambiar[/color]
StrFecha := FormatDateTime('mm/dd/yyyy',Date);
 if Value then
   FSql_Fecha_Contrato := Format('where (CON.FECHA_INICIAL <= ''%s'' AND  CON.FECHA_FINAL >= ''%s'')',[StrFecha, StrFecha])
 else FSql_Fecha_Contrato := '';
 q_CAdmon.Close;
 q_CAdmon.SQL[11] := FSql_Fecha_Contrato;
 q_CAdmon.Open; 
 
 
//[color=red]sql q_CAdmon[/color]
select con.ID_CONTRATO, con.NUMERO, con.DESCRIPCION,
con.FECHA, mun.DESCRIPCION Nom_Mun, con.FECHA_INICIAL,
dpto.DESCRIPCION Nom_Depto, con.FECHA_FINAL,dpto.COD_DEPARTAMENTO,
ent.descripcion entidad, ent.Cod_entidad 
from CONTRATO con
inner join MUNICIPIO mun
on (mun.ID_MUNICIPIO = con.ID_MUNICIPIO)
inner join DEPARTAMENTO dpto
on (dpto.COD_DEPARTAMENTO = con.COD_DEPTO)
inner Join entidades ent
on (con.id_entidad = ent.cod_entidad)
/*Aqui es la linea 11*/
order by con.ID_MUNICIPIO
 
/*La Linea 11 se ingresa por codigo*/
 
 

ya tengo creada la  unidad del servicio web

unit ContratoWSImpl;