Jump to content

IRWANTO82

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    85

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by IRWANTO82

    how to use Prompt without callback like desktop

    in General

    Posted

    hi,

    is "Prompt" can run without call back like desktop ?

    i tested it, it must using callback.

    sample UniButton1Click, prompt doesnt appear

    sample UniButton2Cick with callback, it's showup

    ServerModule asycnrequest set true;

    Version:1.90.0 build 1564

      

    procedure TMainForm.UniButton1Click(Sender: TObject);
var
  sFileNameNew, sFileName : string;
begin
  if Prompt(
    'Masukkan nama file yang baru' + '<br>' +
    sFileName + '<BR>' +
    '<br>',
    sFileName,
    TMsgDlgType.mtConfirmation,
    mbOKCancel,
    sFileNameNew,
    True
  ) = 2 then  // 1 ok, 2 cancel
    Exit;

  ShowMessage('show after prompt');
end;

procedure TMainForm.UniButton2Click(Sender: TObject);
var
  sFileNameNew, sFileName : string;
begin
  Prompt(
    'Masukkan nama file yang baru' + '<br>' +
    sFileName + '<BR>' +
    '<br>',
    sFileName,
    TMsgDlgType.mtConfirmation,
    mbOKCancel,

    procedure (Sender: TComponent; AResult: Integer; AText: string)
    begin
      if AResult = mrOK then
      begin
        ShowMessageN(AText);
      end;
    end
  );

end;

     

    Alternative strategy to aproach to a cheap UniGUI Linux Web Server

    in Feature Requests

    Posted

    On 10/7/2021 at 11:18 PM, Darth Florus said:

    Hi Pals:

    I'm propose a deployment alternative for those people, that don't want or can't spend much money for do a Web Application running on a Linux Server and using Delphi-Like data access technology.

    My idea is to use the Delphi Community Edition/Professional Edition to develop/test/debug the application with UniGUI as always.

    But to deploy to Linux, it have two options:

    1) If You have/use the Delphi Enterprise/Arquitech edition, continue as allways.

    2) If You only have/use the Community/Professional, the UniGui generates a runtime version of your application that runs/compile using the freepascal at cross compiling mode.

    That way is not neccesary for UniGUI Pals to develop a Lazarus compatible screen designer, only they need to make code that compile with freepascal.

    To do a debug in this mode will need debug procedures/functions that can write messages on the /var/log/messages file or wherever You want.

    Obviusly is neccesary to use components that Delphi and FreePascal share or use compiler directives for it.

    Wath do You think about?

     

    unigui not include all of source code, so you cannot compile it to fpc.

    though you have pro desktop and complete (desktop+mobile) unigui license, you cannot compile it because some unit not include in source code, only .dcu

    so you need .ppu with same fpc version and targetplatform

    Lazarus/FPC Support

    in General

    Posted

    the best is unigui Design with delphi (i love delphi gui than Lazarus), support compile to fpc win32 (without lazarus), next support fpc linux64, next fpc arm/aarch raspi etc.

    i m soho using delphi prof without linux plaform (very sad)

    how to hiding Dll extension in the url in IIS?

    in Deployment

    Posted

    Just discovered how to do it on apache, just use DirectoryIndex

     

    <Directory "C:/mydlldir/">

        Options FollowSymLinks ExecCGI

        AllowOverride None

        Order allow,deny

        Allow from all

        DirectoryIndex mydll.dll

    </Directory>

    Alias /myapp "C:/mydlldir"

     

    Navigating to http://myserver.com/myapp will load the dll, hiding the extension in the url.

     

    You should be able to set the directory index file specifically in IIS too, of course.

     

     

    i use this but every logout to login form again, original .dll will appear in url link so i use this

    <html>
	<head>
	</head>
	<frameset rows="100%,*" border="0">
	  <frame src="http://domain.com/your.dll" frameborder="0"></frame>
	  <frame frameborder="0" noresize=""></frame>
	</frameset>
</html>

    Official Licence Delphi with good price

    in General

    Posted

     

    thats why i disappointed

     

    since seatle, i never use berlin and tokyo because bug not fix my report qc and break my application.

    but i still paid for yearly support for new release junk

     

    i hope lazarus for linux

    Show ScreenMask,When Run Query

    in General

    Posted

    Hi

     

     

    Unit1 is unit and don't have form.

     

     

    Best Regards.

     

    maybe you want create function to easy execute query,

    but mask must have parent form, or you must create form runtime in function

     

    or 

     

    yourform.ShowMask('xxx');

    try

     

       tbl.sql.text := 'select xxxx';

       if not execsql(tbl) then

           exit;

       ....

     

    finally

       yourform.hidemask;

    end;

    CachedUpdates becarefull !

    in General

    Posted

    Hello Friends,

     

    CachedUpdate and Autocommit  are  two properties very important !

    With unigui, we are talking about a hundred users connected at the same time.

     

    In such  multi users environement,  if your CachedUpdate is False  (as by Default with IBDAC /Devart), 

    any changes by others users, on a UniDBGrid will attack directly your physical DataBase !

    And if you are on this record (80% by chance), you will get this error : Conflict Record.

     

    Solution :

    Make sure :

    __________________

    Autocommit := False;

    CachedUpdate := True;

    __________________

     

    it tooks me 4 hours to track the pb !

     

    Regards

     

    how you handle the row for edit?

     

    use form for edit row if its important data,

    and always use lastupdate field to compare data change by other user before post

     

    `lastupdate` DATETIME NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,

×
×
  • Create New...