8 respuestas en este tema

[cadetill]

Buenas,

Como me comentó Wilson aquí, para poder tener más de un DataModule en el servidor, estoy usando la directiva de compilación {$METHODINFO ON}, pero soy incapaz de ver desde el cliente los DataSets puestos en él.

Lo tengo tal que así

delphi

  {$MethodInfo ON}
  TLTiquetDm = class(TDataModule)
    qLTiquetM: TQuery;
    qLTiquetD: TQuery;
    dspLTiquetM: TDataSetProvider;
    dspLTiquetD: TDataSetProvider;
  private
  public
  end;
  {$MethodInfo OFF}

No se si esté DataModule tiene que estar en Autocreate, o si desde el TDSServerModule hay que hacer algo para que desde el cliente se vea,....

Gracias

[Wilson]

Efectivamente los Datasets no los puedes ver desde el cliente, si necesitas hacer algo con ellos debes crear un método (este si será visible) y pasarle los parámetros que fueren necesarios desde el cliente.

Saludos

[cadetill]

Pero, entonces, qué gracia tiene? Es decir, si yo traslado los DataSet a otro DataModule es precisamente para ordenar las cosas. Si no puedo verlos desde el cliente (bueno, a ellos no, al provider asociado)... de qué me sirve llevarlos? No podré asociarlo a mi ClientDataSet en el cliente por lo que no podré ver los datos que contiene.

No se si me explico

Gracias de nuevo

[egostar]

Hola

Y que pasa si se hace esto.....

delphi

  {$MethodInfo ON}
  TLTiquetDm = class(TDataModule)
  private
 
  public
    qLTiquetM: TQuery;
    qLTiquetD: TQuery;
    dspLTiquetM: TDataSetProvider;
    dspLTiquetD: TDataSetProvider;
 
  end;
  {$MethodInfo OFF}

Saludos

[egostar]

También pudiera ser esto.....

delphi

  {$MethodInfo ON}
  TLTiquetDm = class(TDataModule)
  private
   FqLTiquetM: TQuery;
   FqLTiquetD: TQuery;
   FdspLTiquetM: TDataSetProvider;
   FdspLTiquetD: TDataSetProvider;
 
  public
 
  published
    qLTiquetM: TQuery; 
    qLTiquetD: TQuery;
    dspLTiquetM: TDataSetProvider;
    dspLTiquetD: TDataSetProvider;
 
    //Con sus respectivos read y write
 
  end;
  {$MethodInfo OFF}

Saludos

[Wilson]

Ahora creo entender tu problema. Lo que debes hacer en el cliente es arrastrar un TDSProviderConenction de la paleta DataSnapClient , configurar la conexión  y el SereverClassName (que es tu dataModule en el servidor), a partir de allí deberás configurar el RemoteServer de los TClientDatset para que apunten al TDSProviderConenction, solo hasta entonces serán visibles los proveedores en el cliente.

Necesitarás en el cliente un TDSProviderConenction por cada DataModule en el servidor.

Ahora bien, cada DataModule en el servidor deberá apuntar a un  TDSServerClass en el contenedor del servidor y configurar el evento OnGetClass.

delphi

procedure TContenedor.DSServerClassGetClass(DSServerClass: TDSServerClass;
  var PersistentClass: TPersistentClass);
begin
  PersistentClass := TuModuloDeDatos;
end;

Saludos

[Wilson]

De todas formas lo mas conveniente es usar TDSServerModule en vez de TDataModule para ir a la fija.

Saludos

[cadetill]

Gracias a todos

Haré pruebas el lunes, que yo ya he empezado el finde jejejejeje

Os comentaré resultados

[chaja]

Hola:

Hola Cadetill y demas compañeros.... tengo un tema similar. Yo quiero organizar mis DataModule que tengo en mi aplicacion. Estoy pasando parte del sistema de gestion a DataSnap, y no se como organizar los dataModule. Empece hacer ServerModule, y por cada uno tengo un SQLConnection ( no se si esta bien eso), Pero por causa que no se pude agregar 5 ServerModules y no me permite mas , uso XE5 Entreprise. Lo que me gustaria saber es, si tengo mas de 2 o 5, 6,....xx datamodules como los organizo?.

Si pongo en el OnCreate del ServerModule la creacon de los dataModule, todo bien, pues el cliente DataSnap cuando se conecte, este se va a crear y se destruria junto a los Datamodule, Pero si Hago varios ServerModule, que pasa????  como se comporta la destruccion y construccion de los mismos?

 

Gracias 

 

Luis Roldan

Mar del Plata

Argentina