Jump to content

multimesut

uniGUI Subscriber
  • Posts

    114
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by multimesut

  1. 3 hours ago, mikromundo said:

    Unfortunately, my choice to use the HINT property as a "bridge" over the countless possibilities that RadCORE offers is still being discussed.

    1) Who still uses HINT today to show a message to the user?
    > Ok...You can continue using without problem with RadCORE.

    2) And for MOBILE, do you need HINT?

    3) I'm going to exemplify one of the RadCORE user projects, made in UNIGUI that uses third-party components (Phoenix) and some that he created himself (Combobox, Grids etc) and migrated to RadCORE reusing EVERYTHING...he didn't need to change any component.

    Imagine if RadCORE were ANOTHER COMPONENT SUITE?

    This user would literally have to replace EVERYTHING HE HAD ALREADY MADE to replace with new components!!!

    The vast majority of users would have neither TIME nor COURAGE to do such a task.

    Repeating here WHY RADCORE is what it is?

    > I wanted to help as many users as possible to modernize their projects and thus raise the level of unigui, giving the possibility of using "responsive blocks" but in a SIMPLE way and reusing 100% of their projects already developed.

    I'm proud to always repeat: Thanks to RadCORE many users (at least here in Brazil) bought original licenses from UNIGUI (that's not me doing it alone, it's the users' reports).

     

    See the simplicity of using RadCORE in this video:

     

     

     

     

    Hi,

    There were components that I wrote myself.  radcore matched perfectly.  It generally uses unigui infrastructure.  it doesn't cause any problems.

  2. Merhaba, Unisession üzerinden CSV çıktısı veriyorum. Chrome üzerinde bu dosya "File.csv" şeklinde inmesi gerekirken "File.txt" olarak iniyor. Yani uzantı CSV olacağına TXT oluyor. Sorun nasıl çözebilirim? Teşekkürler..

    Örnek 1;

    unisession.SendFile(UniServerModule.FilesFolderPath + '\test\test.csv','File.csv');

    Örnek 2;

    procedure TYoneticiFirmalar.btnIndirClick(Sender: TObject);
    var
      S : TStringStream;
    begin
      S:=TStringStream.Create('Some text here....');
      try
        UniSession.SendStream(S, 'File.csv');
      finally
        S.Free;
      end;
    end;

    Sonuç;

    File.jpg

  3. hi, you can fix it with mysql.

     

    MainModule;
    procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
    begin
    MyQuery2.SQL.Clear;
    MyQuery2.SQL.Add('INSERT INTO sessions (sessionid,logindate) VALUES (:sessionid,:logindate)');
    MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId;
    MyQuery2.Params.ParamByName('logindate').Value:=Now;
    MyQuery2.ExecSQL;
    end;
    
    procedure TUniMainModule.UniGUIMainModuleDestroy(Sender: TObject);
    begin
    MyQuery2.SQL.Clear;
    MyQuery2.SQL.Add('DELETE FROM sessions where sessionid=:sessionid');
    MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId;
    MyQuery2.ExecSQL;
    end;
    
    SQL;
    DROP TABLE IF EXISTS `sessions`;
    CREATE TABLE `sessions`  (
      `sessionid` varchar(50) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL,
      `logindate` datetime(0) NULL DEFAULT NULL,
      `killsession` tinyint(1) NULL DEFAULT 0
    ) ENGINE = MEMORY CHARACTER SET = utf8 COLLATE = utf8_general_ci ROW_FORMAT = Fixed;

     

  4. 47 minutes ago, Sherzod said:

    Hi,

    Can you try to use this instead?

    Yes, same problem. PageSize is failing for Reflesh. does not work in solution. (operation.params.limit)

     

    procedure TMainForm.UniButton1Click(Sender: TObject);
    begin
    CDS.Active:=false;
    end;
    
    procedure TMainForm.UniButton2Click(Sender: TObject);
    begin
    CDS.Active:=true;
    end;

     

  5. On 6/20/2017 at 8:27 AM, Sherzod said:

    Hi @Sherzod , the following code does not work in extjs6. what can I do? Thank you

     

    Procedure TMSTUniDBGrid.Loaded;
    begin
      inherited;
      JSAddListener('store.beforeload',
          JSFunction('store, operation, eOpts',  'if (operation.params) {operation.params.limit = operation.limit;}')
       );
    end;

     

  6. Bence tüm dosyaları pdf e çevirip pdf viewer tüm işinizi çözersiniz. delphiye uygun çok converter component var. tmp klasörüne convert edip sonra gösterebilirsiniz.

  7. Günay keçisi telekom yapılır :) Evet dediğiniz gibi yansıtılabilir. Sleep olayını aştığımda bu kısmıda eklerim. uniGUI nin SimplePrompt demosundada sleep kullanılmış. Belki diğer sessionlar etkilenmiyor olabilir.

  8. :) Anladım. O zaman sleep yerine ne kullanabiliriz. Kullanıcıyı bekletmek önemli değil. Kullanıcı sayfayı kapatsa bile bu işlemlerin devam etmesi gerek. Hani olur ya istemesekte bazen sleep koymamız gerkiyor buda öyle birşey :) Yani çakışma olmaması için işlemler arasında belirli süre bekleme yapmalıyım. Aşağıdaki örnek kod gibi.

     

    procedure IslemYap;
    begin
    DosyaIndir(xx);
    sleep(2000);
    YosyaYukle(yy);
    sleep(2000);
    SunucuIsle(xx,yy);
    sleep(2000);
    end;

     

  9. Merhaba, Cevap için teşekkür ederim. Fakat procedure kısımları timer ile yönetebileceğim bir yerde değil. Bu procedurelerin içinde bekletme yapmam gerekiyor. A işlemi B işlemini etkilememesi için.

  10. Merhaba, hyper server üzerinde çalışan 100 sessiona yakın aktif kullanım olan bir projem var. Bazı procedurelerde 15 saniye bekletmem lazım. Procedure de sleep(15000) kullansam projede bir soruna yol açar mı? Thread larda sleep diğer threadları etkiliyordu. Uniguide de sessionlar etkilenirmi? Etkilenir ise ne kullanmalıyım?  Teşekkürler

  11. Merhaba, unigui projemizdeki bir link çağrıldığında bir oluşturup indirilmesini istiyorum. bunu nasıl yapabiliriz? Aşağıdaki yol işe yaramadı. Boş sayfa geliyor.

     

      if(ARequestInfo.Document = '/test')  then
        begin
        filename:=UniServerModule.TempFolderPath + 'test.wav';
        AResponseInfo.FreeContentStream := True;
        AResponseInfo.ContentStream:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
        AResponseInfo.ContentLength := AResponseInfo.ContentStream.Size;
        AResponseInfo.ContentType  := FileType2MimeType(FileName);
        Handled := True;
        end;

     

×
×
  • Create New...