datasnap

问题 Is it possible to change the HTTP Response Code in my DataSnap (Delphi XE3) server when user authorization fails? Currently it's returning HTTP/1.1 500 Internal Server Error , which can happen in many other scenarios, and doesn't help describe the problem. Along the same idea, is it possible to change the default Response Body? Currently, it's returning {"error":"USER is not authorized to perform the requested action."} , which is fine, but I'd like to return a custom JSON object if possible.

问题 I am trying to implement authorization in a Delphi XE DataSnap application. I broke this down into a very simple example, but still do not see the effects of the TRoleAuth attribute for a method or class. Here is a simple DSServerMethods class that includes the generated sample methods. The class has been decorated with the guest and anyone authorized roles, and the unwelcome denied role. The ReverseString method has been decorated with the readonly denied role: type [TRoleAuth('guest,anyone'

问题 I have a TDataset JSON helper function. I want to result return the following: {"result":[{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}]} But.Does not work.The return the following: {"result":[[{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}]]} I want to remove extra [ character... How to extract this data and return ? {"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1",

问题 Is it possible to share database connection between datasnap server and client? I want to execute dynamic sql in client and receive results. 回答1: I found 2 ways to execute dynamic sql in client side 1) Using DbxConnection (dbExpress) // Server code function TServerMethods1.GetConnection: TDbxConnection; begin Result := DBConnection.DBXConnection; end; //Client code dbxConnection := ServerMethods.GetConnection; command := dbxConnection.CreateCommand; command.Text := 'SELECT COUNT(1) FROM

问题 My project uses a REST server with FireDac. I have a generic function that makes all my Selects but when I try to ApplyUpdates if does nothings. No message, no crash, it just keeps going and the data is not reflected to the database. My Code: function TServerMethods.ApplyUpdates(banco, tabela : String; const DeltaList: TFDJSONDeltas; var Mensagem : String) : Boolean; var LApply : IFDJSONDeltasApplyUpdates; Query : TFDQuery; begin mensagem := ''; result := false; try try LApply :=

问题 I have an existing DataSnap server (Windows service) which is running fine on HTTP, and I now want to add HTTPS as an additional protocol. I've obtained and installed an SSL certificate and generated a certificate file (.crt) and private key file (.key). As a test, when using the Delphi XE2 DataSnap Server wizard and ticking 'HTTPS' to get the certificate page, I can reference the 2 files and click the 'Test' button which succeeds. I've added an additional TDSHTTPService component and linked

问题 We've created a Datasnap service (with Delphi XE), using Bob Swart's white paper as a guide. It works fine, and we've deployed it to our test server. Now a problem occurs, when we have executed a large number of requests (through JMeter), some sort of memory corruption occurs. Some requests succeed, some fail with an access violation. In the end, it has become so corrupt, that every request to our OWN (not the DSAdmin) methods responds with an access violation. However, I can't get my hands

问题 We run a DataSnap Delphi 2009 application on Windows 2003 Server. DataSnap Client and Server are on the same computer, using DCOM over Borland Socketserver. The client runs a background batch job. Sometimes, we discover that the client can not connect to the server application and displays a message dialog on the server desktop indicating for example "Could not connect to server. Network path could not be found." or "Objectexporter not found." Our Delphi client code never uses a message

问题 We are developing a new, and our first, DataSnap server and client apps. I have added authentication to the server but I cannot dynamically change the login details for the connection from the client. The User and Password in the procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate( Sender: TObject; const Protocol, Context, User, Password: string; var valid: Boolean; UserRoles: TStrings); stays blank. In the client we set the values as such ... DSConnection := TSQLConnection