[Carlos Lopez]

buenas tardes. gracias a todos los colaboran con el problema que tengo,

agrego el codigo de la aplicacion servidor, a ver si se ilumina el caino.


como dije antes en la app del celular ni en la aplicacion, no me figura ningun error, solo no muestra nada en la grilla del celular.



unit ServerMethodsUnit1;

interface

uses System.SysUtils, System.Classes, System.Json,
DataSnap.DSProviderDataModuleAdapter,
Datasnap.DSServer, Datasnap.DSAuth, Data.DBXFirebird, Data.FMTBcd,
Datasnap.Provider, Data.DB, Data.SqlExpr,
// librerias de testeo
winapi.windows, datasnap.dsconnect, datasnap.dbclient, midaslib, midas;

type
TServerMethods1 = class(TDSServerModule)
coneccion: TSQLConnection;
itemactivo: TSQLDataSet;
itemactivoDSP: TDataSetProvider;
procedure coneccionBeforeConnect(Sender: TObject);
procedure coneccionAfterConnect(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
function editarconecciontype(): integer;
end;

var

implementation

{$R *.dfm}

uses System.StrUtils, principalfrmdn;

function TServerMethods1.EchoString(Value: string): string;
begin
Result := Value;
end;

function TServerMethods1.ReverseString(Value: string): string;
begin
Result := System.StrUtils.ReverseString(Value);
end;

// ----------------------- mis agregados ------------------------------

procedure TServerMethods1.coneccionAfterConnect(Sender: TObject);
begin
principal.labelestado.Caption := principal.labelestado.Caption + ' - OK';
end;

procedure TServerMethods1.coneccionBeforeConnect(Sender: TObject);
begin
editarconecciontype;
end;

function TServerMethods1.editarconecciontype() :integer;
begin
inc(contador);
principal.pathbd.Caption := coneccion.Params.Values['Database']+' -> '+ IntToStr(contador);
end;

end.


unit ServerContainerUnit1;

interface

uses System.SysUtils, System.Classes,
Datasnap.DSTCPServerTransport,
Datasnap.DSServer, Datasnap.DSCommonServer,
IPPeerServer, IPPeerAPI, Datasnap.DSAuth,
// librerias de testeo
winapi.windows, Data.SqlExpr, Datasnap.Provider, datasnap.dsconnect, datasnap.dbclient, midaslib, midas;

type
TServerContainer1 = class(TDataModule)
DSServer1: TDSServer;
DSTCPServerTransport1: TDSTCPServerTransport;
DSServerClass1: TDSServerClass;
procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
var PersistentClass: TPersistentClass);
private
{ Private declarations }
public
end;

var
ServerContainer1: TServerContainer1;

implementation

{$R *.dfm}

uses
ServerMethodsUnit1;

procedure TServerContainer1.DSServerClass1GetClass(
DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
begin
PersistentClass := ServerMethodsUnit1.TServerMethods1;
end;

end.





unit principalfrmdn;

interface

uses Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls, WinSock, Data.DB, Data.SqlExpr, Vcl.ExtCtrls,
// librerias de testeo
winapi.windows, Datasnap.Provider, datasnap.dsconnect, datasnap.dbclient, midaslib, midas;

type
Tprincipal = class(TForm)
labeltitulo: TLabel;
labelestado:TLabel;
pathbd: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
principal: Tprincipal;
contador : integer;

implementation

uses ServerMethodsunit1, servercontainerunit1;

{$R *.dfm}

end.




itemactivoDSP.DataSet = itemactivo


itemactivo.SQLConnection = coneccion
itemactivo.CommandText = 'Select * From item where item.activo like 0'



coneccion.Driver = 'firebird'