como conectar con web service
 

Hola,

desde delphi 6 quiero conectar con servidor web y pasarle petición de operación y esperar respuesta en JSON.

ES posible en D6 ?? con que herramientas ??

Muchas gracias por adelantado. :)

En esta serie de entradas se habla del tema, y en concreto en esta tienes implementado un cliente con Delphi 6 que acceder a un webservice y obtiene una respuesta JSON, la trata y la muestra. Todo ello usando las Indy.

Aquí tienes otro similar, en este caso accediendo a un servidor que requiere https.

Lo he visto y es lo que necesito felicidades por lo bien explicado que está.
Pero con el delphi 6 profesional da error al compilar no encuentra el componente TXMLTransformProvider.

¿ Puede ser que porque es el profesional y no lo trae ?. ¿ Se puede descargar en algún sitio ?

Saludos y muchas gracias.

Hola buenas, hace unos días que estoy lidiando con el ejemplo de este hilo. De momento he conseguido leer los datos de una web api, mediante post y obtener el texto legible del Json, pero no consigo parsear los datos a un TclientDataset.
El código que tengo para ello, siguiendo el ejemplo de Neftalí és el siguiente:

Código Delphi [-]
procedure TForm2.ParseResponse(AObjResp: TlkJSONobject);
var
  objUserList:TlkJSONlist;
  objUser, objtmp:TlkJSONobject;
  i:integer;
  Str:String;
  cds:TClientDataSet;
begin
  // Limpiar el contenido
  cds := ClientDataSet1;
  cds.EmptyDataSet;
  showmessage(IntToStr(AObjResp.Count));     //Sí, hay 1032 datos

  // Objeto Check?
  if (AObjResp.IndexOfName('Check') <> -1) then begin       //Aquí da error    Access violation xxxx read of adress yyyy
    // Lo almaceamos en un tipo "lista"
    TlkJSONBase(objUserList) := AObjResp.Field['Check'];
    // Recorrer la lista de usuarios.
    for i := 0 to (objUserList.Count - 1) do begin
      // Objeto usuario
      TlkJSONBase(objUser) := objUserList.Child[i];
      TlkJSONBase(objtmp) := objUser.FieldByIndex[0];
      // Añadimos un registro al CDS
      cds.Append;
      try
        // Recoger los campos del objeto
        cds.FieldByName('id').AsString :=        VarToStr(objtmp.Field['id'].Value);
        cds.FieldByName('date').AsDateTime :=    VarToDateTime(objtmp.Field['date'].Value);
        cds.FieldByName('user_id').AsString :=   VarToStr(objtmp.Field['user_id'].Value);
        cds.FieldByName('admin_id').AsString :=  VarToStr(objtmp.Field['admin_id'].Value);
        cds.FieldByName('latitude').AsString :=  VarToStr(objtmp.Field['latitude'].Value);
        cds.FieldByName('longitude').AsString := VarToStr(objtmp.Field['longitude'].Value);
        cds.FieldByName('comment').AsString :=   VarToStr(objtmp.Field['comment'].Value);
        cds.FieldByName('type').AsString :=      VarToStr(objtmp.Field['type'].Value);
        cds.FieldByName('ip').AsString :=        VarToStr(objtmp.Field['ip'].Value);
        cds.FieldByName('from').AsString :=      VarToStr(objtmp.Field['from'].Value);
        cds.FieldByName('changed').AsString :=   VarToStr(objtmp.Field['changed'].Value);
        // Grabar
        cds.Post;
      finally
        cds.Cancel;
      end;
    end;
  end;

end;

Y el Json viene cargado con datos de este tipo:
la línea:
if (AObjResp.IndexOfName('Check') <> -1) then begin
provoca un error Access violation xxxx read of adress yyyy

Podeis echarme una mano? Cualquier cosa que intento me da error y no se como continuar.

Gracias de antemano