Wiedermal ganz einfaches Beispiel, Datasnap Server mit Assistenten und einen Timer reingeleg!
Ich komme nicht in den Timer Event hinein, wo liegt das Problem?
Für die Frage warum ich da einen Timer möchte, weil ich von wo anderes für diesen Client Daten hole!
Delphi-Quellcode:
unit ServerMethodsUnit1;
interface
uses System.SysUtils, System.Classes, System.Json,
Datasnap.DSServer, Datasnap.DSAuth, DataSnap.DSProviderDataModuleAdapter,
Vcl.ExtCtrls;
type
TServerMethods1 =
class(TDSServerModule)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure DSServerModuleCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
function EchoString(Value:
string):
string;
function ReverseString(Value:
string):
string;
end;
implementation
{$R *.dfm}
uses System.StrUtils;
procedure TServerMethods1.DSServerModuleCreate(Sender: TObject);
begin
end;
function TServerMethods1.EchoString(Value:
string):
string;
begin
Result := Value;
end;
function TServerMethods1.ReverseString(Value:
string):
string;
begin
Result := System.StrUtils.ReverseString(Value);
end;
procedure TServerMethods1.Timer1Timer(Sender: TObject);
begin
Tag := 5;
// Da komme ich nicht rein, wieso den nicht?
end;