Copiar DataSnap server a otra PC

[Casimiro Notevi]

El problema, al igual que te han preguntado otros compañeros, es que no sabemos exactamente qué haces ni qué problema tienes, errores, código, etc...
Falta información clara.

[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'

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[Carlos Lopez]

Buenas dias.


Pese a mis intentos mas ferreos no pude lograr que funcione y ya me decepcioné.
Pero una solucion que me recomendaron por otros foros fue que intente con otros componentes de manejo de base de datos firebird.
Buscando por todos lados se evidencia que (aparentemente) fireDAC no necesita el cúmulo de drivers que necesita dbexpress. No se si es asi pero...

reemplace los componentes dbexpress por FireDAC
... y salio funcionando como debia hacerlo, al grito de "Eureka" como si hubiese descubierto algo.


segun opiones de otros medios mi problema con dbexpress puede ser la incompatibilidad con los drivers. (copie los mismo dll a todas las maquinas donde intenté pero bueno).

En algun otro momento con mas tiempo intentare probar otras versiones para ver si logro conectar con dbexpress.


Agradezco el tiempo y la sabiduría que me han ofrecido, y pido disculpas por las fallas cometidas.