[Integrate simple REST service with uniGUI]

Dear uniGUI friends,

   i have a question:

 

How would it be possible to integrate very simple REST type service with uniGUI application?

 

Let's say I have existing uniGUI application on address:

http://www.example.com/unigui_app.dll

And I would want to add web service on this address:

http://www.example.com/unigui_app.dll/rest

Then I could call the web service like this:

GET http://www.example.com/unigui_app.dll/rest?students=123 HTTP/1.1

And into Delphi code I would get these parameters:

Method:    GET
Parameter: students
Value:     123

Thanks for any idea.

 

[DELPHI XE4 not generate a DLL]

Or you can use:

 

//{$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module

 

{$ifndef UNIGUI_VCL}

  {$E dll}

  library

{$else}

  {$E exe}

  program

{$endif}

    Project1;

[uniPanel with rounded corners]

I use this:

 

procedure SetPanelRoundBorders(const APanel: TUniPanel; APixels: Integer = 5);
begin
 APanel.ClientEvents.ExtEvents.Add
   ('OnAfterrender=function OnAfterrender(sender){' +
   'sender.body.applyStyles('#39'border-radius:' + IntToStr(APixels) +
   'px'#39');}');
end;

[MessageBox function is not running on server (web mode)]

For Delphi 2009+ you can use anonymous method (closure):

 

MessageDlg('Are you delete this record?', mtConfirmation, mbYesNo,
 procedure(AResult: Integer)
 begin
   case AResult of
     mrYes: UniEdit1.Text := 'YES'; // UniMemo1.Lines.Add('YES');
     mrNo : UniEdit1.Text := 'NO';  // UniMemo1.Lines.Add('NO');
   end;
 end);

[UniGUI Version From ServerModule]

Could be possible to put it as a read only property of ServerModule for both Design Time and Run Time?

I am also interested in.

[Read Form Elements in JS]

function OnClick(sender, e)
{
 alert(MainForm.UniLabel1.getText());
}

[browser detection]

Is there a method to call to detect the type of browser?

I need to determine if the request is coming from an ipad and if yes i need to redirect to a different location

thanks..

 

this project is fantastic!

uses uniGUIApplication, ExtPascal;

 case UniSession.Browser of
   brIE: ;
   brFirefox: ;
   brChrome: ;
   brOpera: ;
   brSafari: ;
   brKonqueror: ;
   else // something else
 end;