Search the Community

Hello, 1. Try the update release 2020 of the : - libeay32.dll - ssleay32.dll in C:\Program Files (x86)\FMSoft\Framework\uniGUI\SSL\dll 1. Get right version 32/64 : C:\Program Files (x86)\FMSoft\Framework\uniGUI\SSL\dll\x86 or dll\x64 3. Try : sslvTLSv1_2 4. Put all your 05 files near your exe file : - Project1.exe (your Start.exe) - libeay32.dll - ssleay32.dll - cert.pem - key.pem - root.pem and let all by default in SSL Options FilePath (as the fig) 5. Check your 3 .pem files bloc : -----BEGIN CERTIFICATE----- -----END CERTIFICATE-----

Hello, Did you see the documentation : https://www.unigui.com/doc/online_help/linux64.htm I am asking my self : why should i go to linux ? Is windows environment not enough ? Not stable ? Not reliable ? Expensive ? Windows Server 2019 on ebay is about 50 €. And keep in mind that deploying on linux requires an EMB Enterprise Delphi licence at $3000 (actually discount $2400). Can you explain your motivations to go for linux (pros / cons) ? Thx

for var i : Integer := 0 to Self.FGrid.Columns.Count - 1 do begin if (Self.FGrid.Columns[i].Filtering.Enabled) and (Self.FGrid.Columns[i].Filtering.Editor <> nil) then begin lUpdate := True; if Self.FGrid.Columns[i].Filtering.Editor is TUniEdit then TUniEdit(Self.FGrid.Columns[i].Filtering.Editor).Clear else if Self.FGrid.Columns[i].Filtering.Editor is TUniCheckComboBox then TUniCheckComboBox(Self.FGrid.Columns[i].Filtering.Editor).ClearSelection else if Self.FGrid.Columns[i].Filtering.Editor is TUniDateTimePicker then TUniDateTimePicker(Self.FGrid.Columns[i].Filtering.Editor).Text := ''; end; end;

procedure TMainForm.lbAtualizarDashBoardClick(Sender: TObject); begin var lIconOld := Self.lbAtualizarDashBoard.Caption; try Self.lbAtualizarDashBoard.Caption := '<i class="fas fa-sync fa-spin"></i>'; Self.lbAtualizarDashBoard.JSInterface.JSCode('MainForm.lbAtualizarDashBoard.setHtml('''+Self.lbAtualizarDashBoard.Caption+''');'); Self.LoadGraficos(Self.cbMesDadosGrafico.Text); finally Self.lbAtualizarDashBoard.Caption := lIconOld; Self.lbAtualizarDashBoard.JSInterface.JSCode('MainForm.lbAtualizarDashBoard.setHtml('''+Self.lbAtualizarDashBoard.Caption+''');'); end; end; I tried something like this but it didn't work

I have a form crash linked to ext-sync-min.js file uni-1.90.0.1567 // TForm (TUniForm) is a form // Utimer1 (TUniTimer) is placed on the form // UtmerProgress (TUniProgressBar) is placed on the form // Button1 (TUniButton) is placed on the form // counter is declared public // Slower is declared public procedure TForm.UniFormCreate(Sender: TObject); begin // Slower is declared public Slower := TUniTimer.Create(Self); Slower.Enabled := false ; Slower.Interval := 1000; Slower.OnTimer := SlowerEvent ; UniProgressBar1.Visible := False; Utimer1.Enabled := False ; Utimer1.Interval := 2; end; procedure TForm.SlowerEvent(Sender: TObject); begin inc(counter); if counter=2 then begin UniProgressBar1.Position := 0; UniProgressBar1.Visible := false ; Utimer1.Enabled := false ; Slower.Enabled := false ; counter := 0; end; end; procedure TForm.Utimer1Timer(Sender: TObject); begin UniProgressBar1.Position := UniProgressBar1.Position + Random(20); if UniProgressBar1.Position >= 100 then UniProgressBar1.Position := 0; end; procedure TForm.Button1Click(Sender: TObject); begin counter := 0; UniProgressBar1.Visible := true ; Utimer1.Enabled := true ; Slower.Enabled := true ; end; When I click on Button1 the problem occurs. Here are a few points on debugging Run stack processSendQueue (http://127.0.0.1:8055/uni-1.90.0.1567/ext-sync-min.js#9) processQueues (http://127.0.0.1:8055/uni-1.90.0.1567/ext-sync-min.js#9) postComplete (http://127.0.0.1:8055/uni-1.90.0.1567/ext-sync-min.js#9) onComplete (http://127.0.0.1:8055/uni-1.90.0.1567/ext-sync-min.js#9) callTryFinally (http://127.0.0.1:8055/uni-1.90.0.1567/ext-sync-min.js#9) onStateChange (http://127.0.0.1:8055/ext-7.5.1/build/ext-all.js#20) bindStateChange (http://127.0.0.1:8055/ext-7.5.1/build/ext-all.js#20) elevate (http://127.0.0.1:8055/ext-7.5.1/build/ext-all.js#20) bindStateChange (http://127.0.0.1:8055/ext-7.5.1/build/ext-all.js#20) the part of the code that causes the problem (in ext-sync-min.js) if (c.errTimeOut) { if (--c.errTimeOut === 0) { for (var b = 0, e = 10; b < 278; b++) { if (b > 100) { b -= 2 } e += 12 } } } and it's the value of b that causes the code to crash processSendQueue <this>: {…} a: false arguments: Arguments b: 99 😄 {…} d: undefined e: 314729563246 f: null processSendQueue <this>: {…} a: false arguments: Arguments b: 100 😄 {…} d: undefined e: 314729563258 f: null processSendQueue <this>: {…} a: false arguments: Arguments b: 101 😄 {…} d: undefined e: 314729563270 f: null processSendQueue <this>: {…} a: false arguments: Arguments b: 99 😄 {…} d: undefined e: 314729563270 f: null Any ideas?

Hi, I'm having problem how to read value after I Select a value on my Combobox Editor in Grid column. procedure TMainForm.UniDropDownSelect(Sender: TObject); begin ShowMessage('UniDropDownSelect' + TUniComboBox(Sender).Items.Strings[ TUniComboBox(Sender).ItemIndex]); end; procedure TMainForm.FDQuery1AfterOpen(DataSet: TDataSet); var lala: TUniComboBox; begin lala:= TUniComboBox.Create(Self); lala.Items.Add('lala1'); lala.Items.Add('lala2'); lala.OnSelect:= UniDropDownSelect; UniDBGrid1.Columns.ColumnFromFieldName('COL1').Editor:= lala; end; The UniDropDownSelect allways returning Item Index of -1. How can I retrive value after it vas selected.?

Hello, here is a new inquiry from a penetration testing company. How to protect yourself if the site's certificate is for a specific domain. Example: "My domain for example www.test.com (ip 123.123.123.123) I have certificate for domain (*.test.com) So when user write www.test.com all is OK. But when enter IP address 123.123.123.123 I have no certificate so browser has certificate problem. " If anyone can help it is welcome.

Hi Everyone, someone has printed labels on a zebra stikers printer, and if you have achieved it you could share with us as you did Thank you

I used your logic to hide the title bar. Self.WebForm.JSInterface.JSCall('owner.titlebar.hide', []); It works GREAT. It hides the title bar. HOWEVER, the extra screen space that I SHOULD get is NOT available See screen shot... It doesn't have the title bar (great) BUT at the bottom of the screen, there is about 1/2 inch of WHITE space between the red arrows. My panel is alClient so it should fill the whole area, but it doesn't Do I need another line of code or something? Thanks Davie

Good Morning!!! I'm creating a Filter option in uniDbGrid in runtime ... All component connections ... The visual display is perfect, but the filter code does not work. When I type the letter no, the event is triggered but the value of the second letter on, the event is not even triggered !!! I have a project ready but I do not know how to attach in the forum !!! Could you guide me ??? Unigui Version 1.10.0 Build 1469 Code Customer... procedure TMainForm.UniFormCreate(Sender: TObject); var oHidePanel : TUniHiddenPanel; oEdit : array of TUniEdit; i : integer; begin TUniHiddenPanel(oHidePanel) := TUniHiddenPanel.Create(Self); for I := 0 to Pred(UniDBGrid1.Columns.Count) do begin SetLength(oEdit,Length(oEdit)+1); TUniEdit(oEdit) := TUniEdit.Create(Self); TUniEdit(oEdit).Parent := TUniHiddenPanel(oHidePanel).Parent; TUniEdit(oEdit).Width := UniDBGrid1.Columns.Items.Width - 10; TUniEdit(oEdit).Name := 'Edit_'+IntToStr(i); UniDBGrid1.Columns.Items.Filtering.Enabled := True; UniDBGrid1.Columns.Items.Filtering.Editor := TUniEdit(oEdit); end; UniMainModule.ADOQuery1.Open; UniMainModule.ADOQuery2.Open; end;

FYI, this one works 'from your example code': cCIPHER_LIST_4: WideString = 'AES256-GCM-SHA384:AES128-GCM-SHA256:AES256-SHA256:AES128-SHA256:AES256-SHA:AES128-SHA'; (Stupid) question, I'm using a Self Signed certificate, could this be the issue?

procedure TMainForm.UniFormCreate(Sender: TObject); begin //with TExtPopup(UniPopupMenu).MenuControl.JSInterface do //begin // JSConfig('cls', ['custom-menu-item']); //end; MenuButton := TUniMenuButton.Create(Self); MenuButton.Name := 'btnMenuButton'; MenuButton.Caption := 'Наведи на меня и я покажу тебе меню'; MenuButton.ClientEvents.UniEvents.Values['afterCreate'] := 'function afterCreate(sender)' + '{'+ ' textMetrics = new Ext.util.TextMetrics();'+ ' valWidth = textMetrics.getWidth(sender.text);'+ ' sender.width = valWidth + 30;'+ '}'; MenuButton.ClientEvents.ExtEvents.Values['mouseover'] := 'function mouseover(sender, e, eOpts)'+ '{'+ ' sender.maybeShowMenu();'+ ' sender.menu.setWidth(sender.getWidth());'+ '}'; MenuButton.JSInterface.JSConfig('cls', ['ribbon-menu-btn']); MenuButton.JSInterface.JSAddListener('menushow', 'function(me){me.getMenu().addCls("custom-menu-item")}'); //<------------ MenuButton.DropdownMenu := UniPopupMenu; MenuButton.Parent := pnTools; MenuButton.Visible := True; end;

In this case you need a valid certificate for your domain. http://www.unigui.com/doc/online_help/index.html?websockets--ssl.htm

procedure TUnimFormPesquisa.ConfigureSelected(Index: Integer); begin var lIndexSel := -1; for var I := 0 to Self.UnimListResposta.Count - 1 do begin if I = Index then begin Self.UnimListResposta.Items[I] := '<i class="fas fa-check-circle"></i> ' + Copy(Self.UnimListResposta.Items[I],Pos('>',Self.UnimListResposta.Items[I])+1,MaxInt); lIndexSel := I; end else Self.UnimListResposta.Items[I] := '<i class="far fa-circle"></i> ' + Copy(Self.UnimListResposta.Items[I],Pos('>',Self.UnimListResposta.Items[I])+1,MaxInt); end; Self.UnimListResposta.ItemIndex := lIndexSel; end;

Hi Pals: I have a Version 3 certificate, and when I configure the SSLOptions from ServerModule to sslvSSLv3, a error raises: raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number'. If I change version to sslvSSLv23, a error raises too: raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol'. If I leave default values, I can load the site, but a message on the certificate padlock icon says "this site use a obsolet secure version..." Anyone could already raise a version 3 certificate? How You did it? Thanks, and Best Regards

Guys sorry for the delay Very correct the migration from 500,000 to unigui is not easy no time to create a Demo. I'll explain better procedure TForm_CadastroTipoProduto.FormCreate(Sender: TObject); begin F_LayoutControl(Self, 'L'); end; procedure TForm_CadastroTipoProduto.FormClose(Sender: TObject; var Action: TCloseAction); begin F_LayoutControl(Self, 'S'); end; another reason for the delay is that it is still not working 100% in this way attached version 100% unigui Note these forms are the VCL standard as my system is Hybrid I transform from VCL to Unigui in the compilation, so colleagues will have to make the necessary changes. Unit_LayoutControl.pas Unit_LayoutControl.dfm VCL_UniGUI.Inc Funcoes.pas

class procedure TConfigForm._UniDBGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F12 then TUniDBGrid(Sender).OwnerWebForm.Tag := 99; end; procedure TUniFrameGerDadosPadrao.UniFrameAjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings); begin if EventName = '_F10' then Self.btnConfirma.Click else if EventName = '_ESC' then Self.btnVoltar.Click else if EventName = '_F12' then begin if not Self.GetUser.Admin then Exit; if Self.OwnerWebForm.Tag = 99 then begin Self.OwnerWebForm.Tag := 0; with TUniFormConfigGrid.Create(UniApplication) do begin Caption := Caption + ' (' + Copy(Self.ClassName,2,MaxInt) + ')'; ShowForm(Self.ClassName, Self.GetClient, Self.GetUser); Free; end; end else begin with TUniFormConfigTela.Create(UniApplication) do begin Caption := Caption + ' (' + Copy(Self.ClassName,2,MaxInt) + ')'; ShowForm(Self.ClassName, Self.GetClient, Self.GetUser); Free; end; end; end; end; OwnerWebForm can I use it?

it's not a problem for my time, I want to help you and for everyone's sake afterwards, but I can't give you a ready-to-use solution. I was reading somewhere that 127.0.0.1 is always http not https ! Please, search web for this: https://www.google.com/search?q=127.0.0.1+on+https&ei=68i6Y8ObOouSxc8P-LyngAg&oq=https+on+127.0.0.1&gs_lcp=Cgxnd3Mtd2l6LXNlcnAQAxgAMgsIABAIEB4QDxDxBDIFCAAQhgMyBQgAEIYDMgUIABCGAzoMCAAQ6gIQtAIQQxgBOhIILhDHARDRAxDqAhC0AhBDGAE6BQgAEJECOgUIABCABDoFCC4QgAQ6CAguEIAEENQCOgsILhCvARDHARCABDoJCAAQBxAeEPEEOgcIABCABBAKOgcIABAeEPEEOgkIABCABBANEAo6CwgAEAgQBxAeEPEEOg0IABAIEAcQHhAPEPEEOgkIABAeEPEEEA1KBAhBGABKBAhGGABQiwhY6ClgmD1oAXABeACAAWyIAeMLkgEEMTcuMZgBAKABAbABCsABAdoBBAgBGAc&sclient=gws-wiz-serp maybe this will help: https://stackoverflow.com/questions/6793174/third-party-signed-ssl-certificate-for-localhost-or-127-0-0-1 I am not sure what is your purpose: you want to block the use of SSL3 (like your example: https://stackoverflow.com/questions/44767903/delphi-indy-ssl-parameters), or something else because error message is exact that (The error code ‘SSL_NO_CYPHER_OVERLAP’ occurs in Firefox when certain type of encryptions have been disabled either on the browser or in the server side : https://appuals.com/how-to-fix-ssl_error_no_cypher_overlap/

I have a rule implemented in a parent frame. if EventName = '_F10' then Self.btnConfirma.Click else if EventName = '_ESC' then Self.btnVoltar.Click else if EventName = '_F12' then begin if not Self.GetUser.Admin then Exit; if ActiveControl is TUniDBGrid then begin Self.Tag := 0; with TUniFormConfigGrid.Create(UniApplication) do begin Caption := Caption + ' (' + Copy(Self.ClassName,2,MaxInt) + ')'; ShowForm(Self.ClassName, Self.FController.GetClient, Self.GetUser); Free; end; end else begin with TUniFormConfigTela.Create(UniApplication) do begin Caption := Caption + ' (' + Copy(Self.ClassName,2,MaxInt) + ')'; ShowForm(Self.ClassName, Self.GetClient, Self.GetUser); Free; end; end; end; when it's _F12, I need to know if I'm on top of a TUniDBGrid

Hi: What are the correct method to implement a ssl certificate to a uniGUI application under linux? There are difference with the method used on Windows? Thanks and Best Regards

HI thank all to reply, but still not found any way how do that. What purpose ? My domain for example www.test.com (ip 123.123.123.123) I have certificate for domain (*.test.com) So when user write www.test.com all is OK. But when enter IP address 123.123.123.123 I have no certificate so browser has certificate problem (I know, it's corret). But company which is dooing penetration test write incident about this. So this is my reason .. I think I have to look in Indy implementation / SSL response.

Hi, Does uniGUI support SSL ECC certicates? If so does uniGUI 1.0.0.1425 support these kind of certificates?

Code: for i := 0 to Self.dbGridSQL_Resultado.Columns.Count - 1 do begin if (Self.dbGridSQL_Resultado.Columns[i].Filtering.Enabled) and (Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor <> nil) then begin if Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor is TUniEdit then TUniEdit(Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor).Clear else if Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor is TUniCheckComboBox then TUniCheckComboBox(Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor).ClearSelection else if Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor is TUniDateTimePicker then TUniDateTimePicker(Self.dbGridSQL_Resultado.Columns[i].Filtering.Editor).Text := ''; end;

for var i : Integer := 0 to Self.FGrid.Columns.Count - 1 do begin if (Self.FGrid.Columns[i].Filtering.Enabled) and (Self.FGrid.Columns[i].Filtering.Editor <> nil) then begin lUpdate := True; if Self.FGrid.Columns[i].Filtering.Editor is TUniEdit then TUniEdit(Self.FGrid.Columns[i].Filtering.Editor).Clear else if Self.FGrid.Columns[i].Filtering.Editor is TUniCheckComboBox then TUniCheckComboBox(Self.FGrid.Columns[i].Filtering.Editor).ClearSelection else if Self.FGrid.Columns[i].Filtering.Editor is TUniDateTimePicker then TUniDateTimePicker(Self.FGrid.Columns[i].Filtering.Editor).Text := ''; end; end; I have something similar.

Please can You be more specific? Some clue will help so much! I find a "openssl s_client -connect sistemaweb.yacyreta.com.py:8866 -tls1_2" verify command but I can't undertand what is wrong here. I thing the error message "(unable to verify the first certificate)" revels wrong ssl certificate implementation. But I follow the Indy SSL implementation guide and there is no mention about this error message and its consecuences.