4 replies to this topic

[MANUEL ESPLA]

Buenas tardes.

 

Tengo un programa que a través del componente TDSClientCallBackChannelManager gestiona unos mensajes a través de un servidor DATASNAP. Quiero hacerlo para ANDROID e IOS, y el primer problema es que  me dice en el Uses que DataSnap.DsSession no existe en ANDROID y supongo que tampoco en IOS. Alguna respuesta.

 

Gracias

[egostar]

MANUEL ESPLA, on 23 Sept 2021 - 11:32 AM, said:

Buenas tardes.
 
Tengo un programa que a través del componente TDSClientCallBackChannelManager gestiona unos mensajes a través de un servidor DATASNAP. Quiero hacerlo para ANDROID e IOS, y el primer problema es que  me dice en el Uses que DataSnap.DsSession no existe en ANDROID y supongo que tampoco en IOS. Alguna respuesta.
 
Gracias

 
 
Hola MANUEL ESPLA,
 
Supongo que es porque DSSession es para Servidor, esa clase está contenida en la biblioteca DataSnapServerXXX.bpl

 

Saludos

[MANUEL ESPLA]

En la zona de Interface utilizo:

delphi

type
  TMyCallback = class(TDBXCallback)
  public
    function Execute(const Arg: TJSONValue): TJSONValue; override;
  end;  

Ya en Implementación la funcion es:

delphi

function TMyCallback.Execute(const Arg: TJSONValue): TJSONValue;
begin
  PanelForm.QueueLogMsg(Arg.ToString);
  Result := TJSONTrue.Create;
end;

 
Después de conectar con el Servidor de DataSnap, se utiliza estas instrucciones que las tengo en el FormShow:
 

delphi

DSClientCallbackChannelManager1.ManagerId := TDSTunnelSession.GenerateSessionId;
  FMyCallbackName                           := TDSTunnelSession.GenerateSessionId;
  DSClientCallbackChannelManager1.RegisterCallback(FMyCallbackName,TMyCallback.Create);
  LocalClientId   := DSClientCallbackChannelManager1.ManagerId;
 
  LocalCallbackId := FMyCallbackName;

 
A DataSnap.DsSession pertenece TDSTunnelSession.
 
Funciona bien en Windows, pero en ANDROID me dice que mo existe esa libreria.

[MANUEL ESPLA]

Tras hacer pruebas, esto funciona para ANDROID:
 

delphi

  DSClientCallbackChannelManager1.ManagerId := TDSSessionHelper.GenerateSessionId; 
  FMyCallbackName                           := TDSSessionHelper.GenerateSessionId;

 
Hace lo mismo, pero en vez de depender de DataSnap.DSSession, que no soporta ANDROID, depende de Datasnap.DSCommon que no presenta problema.

[egostar]

MANUEL ESPLA, on 23 Sept 2021 - 4:12 PM, said:

Tras hacer pruebas, esto funciona para ANDROID:
 

delphi

  DSClientCallbackChannelManager1.ManagerId := TDSSessionHelper.GenerateSessionId; 
  FMyCallbackName                           := TDSSessionHelper.GenerateSessionId;

 
Hace lo mismo, pero en vez de depender de DataSnap.DSSession, que no soporta ANDROID, depende de Datasnap.DSCommon que no presenta problema.

 
 
Ya veo, que bien, utiliza un Helper para darle la vuelta.
 
Muchas gracias por la retro.
 
Saludos