![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#12
|
|||
|
|||
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' |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como hago un DataSnap Server | rmeckbell | Conexión con bases de datos | 3 | 31-08-2017 16:02:44 |
Coneccion con un DataSnap server | lbidi | PHP | 0 | 19-05-2016 19:45:29 |
Enviar parametros por web a un server datasnap | lbidi | Internet | 2 | 19-07-2015 00:22:48 |
Datasnap Rest Server | dison | Desarrollo en Delphi para Android | 3 | 16-05-2014 09:48:44 |
datasnap para sql server??? | _CALI | Conexión con bases de datos | 5 | 25-04-2011 18:49:04 |
![]() |
|