Vielen vielen Dank für die ausführlichen Infos.
habe ich das jetzt wirklich richtig verstanden, wenn der DataSnap Server als 32Bit kompiliert wird,
benötigt DataSnap mehr Speicher als wenn er als 64Bit kompiliert werden würde? Wenn ja, wie hängt das zusammen?
Zum eigentlichen Problem, wenn bei 150 User "nur" 15-20GB
RAM verbraten werden, würde mich
das noch nicht aus der Ruhe bringen. Den
RAM kann ich wirklich ignorieren.
Mein DataSnap Server wird jetzt nicht so umfangreich aber ein paar Dutzend Querys werden das schon. Ich wollte einfach nur die Querys thematisch auf mehrere DataModule verteilen wegen der Wartbarkeit. Bei Anwendungen mit ein paar hundert Querys alles auf das ServerMethods Datamodul zu packen ist zwar möglich aber eben danach nur sehr schwer wartbar.
In diesem Projekt mit den drei Datenbanken habe ich eh drei TDSServerClass die auch drei ServerMethod Klassen registriert, und wie ich das Verstanden habe bei LifeCycle=Session werden alle drei
ServerMethod Module instanziiert pro Session. Der Zugriff von den Public ServerMethods auf die Querys
währe damit sichergestellt.
Wäre es denkbar dass man nur wegen der Wartbarkeit weitere ServerMethods DataModule anlegen und die
Querys sachlich trennt, sie würde ja alle mit instanziiert pro Session?
Eigentlich wollte ich in den ServerMethods ausschließlich Methoden für die Clients bereitstellen.
Die sonstige Logik sollte eben auch mehrere weitere DataModuls aufgeteilt werden. Aktuell funktioniert
es so aber ihr meint, es wird Probleme geben.
Wie könnte ich bitte vom ServerMethods ThreadSave auf meine Methode im DataModul zugreifen,
etwa so? Das wäre zu einfach
Delphi-Quellcode:
function TdmServerMethodsZMI.ZMI_GetBauDataSetThreadSave(BauNr: integer): TDataSet;
var
LDataSet: TDataSet;
begin
TThread.Synchronize(nil, procedure
begin
LDataSet := dmDALZMI.GetBauDataSet(BauNr);
end);
Result := LDataSet;
end;
Aktuell habe ich in ein DataModul das:
Delphi-Quellcode:
function TdmDALZMI.GetBauDataSet(BauNr:integer): TDataSet;
begin
qrGetBau.Active := False;
qrGetBau.Params[0].Value := BauNr;
qrGetBau.Active := True;
result := qrGetBau;
end;
Im ServerMethods DataModul das:
Delphi-Quellcode:
function TdmServerMethodsZMI.ZMI_GetBauDataSet(BauNr: integer): TDataSet;
begin
result := dmDALZMI.GetBauDataSet(BauNr);
end;
Gruß Kostas