Search the Community
Showing results for tags 'ServerModule'.
-
Hi everyone! I just made a file using JS Script and added on ServerModule and saved the file inside my project. How can i call this file on my application in OnClick Event in a button? For example, this function has to be activated when a button is clicked. I already tried UniSession.AddJS(), but unfortunately was unsuccessfully.
-
Hello I am writing an application for several companies. Loads css files in servermodule (as customfiles) The problem is that each of the companies wants to have slightly different colors etc. How to do it best ??
-
Hi there! Recently i have updated my Unigui to the version 1.90.0.1496. All the CSS and customizations i had before, is not truly working anymore. So, basically i had the CSS tags on ServerModule -> CustomCSS. And in my UnimButton -> ExtEvents (added or painted). But anyone of these not worked. Anyone had the same problem? Thanks anyway!
-
Hi there... I need to receive a json array and I figured out that it was supposed to be handled in ServerModule, in UniGUIServerModule.OnHTTPDocument on in UniGUIServerModule.OnHTTPCommand. How it should work: 1- Send data to the ecommerce server (name, card number, amount etc) 2- It will return in another transaction the JSON Array with info about it. (more detail, approved or not etc) 3- I need to get that array and manipulate it. Where I get this Json array ? In manual just said the "ONhttpDocument" worh like idHTTPServer event. But even there I could not put it to work properly. PS: Don't work with Serverparams, tried already.
-
modify Demos\Desktop\FishFacts samples //----------------------- unit ServerModule; interface uses Variants, Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication, uIdCustomHTTPServer; type TUniServerModule = class(TUniGUIServerModule) procedure UniGUIServerModuleCreate(Sender: TObject); procedure UniGUIServerModuleHTTPCommand(ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo; var Handled: Boolean); private { Private declarations } protected procedure FirstInit; override; public { Public declarations } CurrentTheme : string; end; function UniServerModule: TUniServerModule; implementation {$R *.dfm} uses UniGUIVars, MainModule; procedure TUniServerModule.UniGUIServerModuleHTTPCommand( ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo; var Handled: Boolean); begin if ARequestInfo.URI = '/test2' then begin // ARequestInfo.QueryParams; //** I can't get params.values['search_me'] rs := '' ; try // UniMainModule.ClientDataSet.Active := true; UniMainModule.ClientDataSet.Insert; // error UniMainModule.ClientDataSet.FieldByName('Category').Value := 'test'; UniMainModule.ClientDataSet.Post; except end; Handled := true; end; end; //----------------------------------- Thanks
-
Hello, I've just create a TuniThreadTimer in my servermodule in order to generate serverside procedure, interval lunched. First question is about the place into put that timer, is the servermodule the right place? ( i suppose this is the place where run somthing detached from the users sessions). If the first question's answare is "yes, it is right", how can i access object designed in the mainmodule ? I suppose to use the objects declared in the mainmodule, like connections and querys, to perform my goals. Also instanziate a mainform or other unit to re-use the object declared inside and their own procedure. It is all possible, or part of , or there is a way to simulate a session to use all declared classes? Evenif what is the right design pattern to perform actions in server-side detached from users session with timer event? thanks, Davide
- 4 replies
-
- server-side
- servermodule
-
(and 1 more)
Tagged with:
-
I would like to have a timer witch will run every 30 seconds. It has to start when application starts and should not be attached to sessions. So my question is how can I use global variable Timer. I've put it in ServerModule but than I can't use it on mainModule data. procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin Timer1.Enabled:= True; Send:= False; end; procedure TUniServerModule.Timer1Timer(Sender: TObject); var Time: TTime; begin Time:= StrToTime(TimeToStr(Now)); if Send then begin if (Time > StrToTime('12:12:00')) AND (Time < StrToTime('12:13:00')) then Send:= False; end else begin if (Time > StrToTime('12:11:00')) AND (Time < StrToTime('12:12:00')) then Send:= end;