Jump to content

All Activity

This stream auto-updates

  1. Today
  2. Did you ever resolve this issue ? Everytime I upgrade to 1.95 I get this dreaded issue and have to downgrade back to 1.90.0.1564 It happens multiple times a day with all users, it's very frustrating. Same code base 2 different UniGUI versions.
  3. It's ok sorted I didn't realise it was an event on the form and you had to set the form to accept.
  4. Hi, Starting to use websockets in UniGUI but the event isn't triggering: Websockets is enabled in ServerModule and MainModule. No Aux ports etc.. In the web browser console it shows as received, but the event is not triggered. procedure TMainForm.UniFormBroadcastMessage(const Sender: TComponent; const Msg: string; const Params: TUniStrings); begin if Msg = 'update' then begin Park1.Caption := Params['text'].AsString; Park1.Color := ConvertHtmlHexToTColor('#19bd3c'); end; if Msg = 'park1Stop' then begin Park1.Caption := 'No Parked Call'; Park1.Color := ConvertHtmlHexToTColor('#19bd3c'); end; end; The demo works but not my app. Any pointers ? Thanks. Dave
  5. Hello, I'm looking for a sample how to implement dragging records in a unidbgrid to a record in unidbtreegrid. I've found some code but the sample itself (project) is not available for download anymore. So i have a grid where i select several records and want to drag then to a record in a unidbtreegrid. Thanks.
  6. Hello, By the way, this seems to be what you need or not?
  7. I may be available too (English speaking, 50 odd years programmer in Australia). Just completed Fully Featured CashBook accounting project among many other legacy projects.
  8. Yesterday
  9. you are right @Sherzod i know. i need just to know whether the print button on the toolbar was pressed Best Regards,
  10. Ok, thank you, your routine works perfectly for me, just as another one that I was already using worked, but always when I execute the exe file during development and call it through localhost:8077, but when I generate the isapi with the same code and transfer the dll to iis does nothing, that is, the entire application works but when it has to send an email it does not generate any exception, it tells me that it has been sent but it sends absolutely nothing, nothing appears in the log file either. I think it is more of an iis configuration with the ssl libraries. I can't find information about it, maybe instead of continuing with iis if I put apache, you think it would solve my problem. Thank you.
  11. with Self.UniDBGridSearch.Columns.Add do begin TiTle.Caption := lModel.Display; FieldName := lModel.Name; Visible := True; Sortable := True; DisplayMemo := True; AllowHTML := True; if lModel.FieldType = ftDateTime then Continue; with TUniEdit.Create(Self) as TUniEdit do begin Left := 10; Top := 10; Parent := UniHiddenPanel1; Text := ''; Name := 'ed' + lModel.Name.Replace('.', '_'); EmptyText := lModel.Display + '...'; MaxLength := lModel.Size; end; Filtering.Enabled := True; Filtering.Editor := TUniEdit(Self.FindComponent('ed' + lModel.Name.Replace('.', '_'))); Filtering.ChangeDelay := 250; end; end; basically you need to create the edit and link it to the grid column
  12. Good morning gentlemen how can I create TUniColumnFilter at runtime and reclaim the value of the modified filter
  13. MaxNodes = 25 for each slave servers (and sessions_per_nodes=20). I added more CPU to each VM where are servers and it seems to be better : i can increase Total sessions per run without errors
  14. But, as you know, this does not give 100 percent confidence that the user has printed, since he can cancel the printing.
  15. You need to enable less secure apps: https://apps.google.com/supportwidget/articlehome?hl=en&article_url=https%3A%2F%2Fsupport.google.com%2Fa%2Fanswer%2F6260879%3Fhl%3Den&assistant_id=generic-unu&product_context=6260879&product_name=UnuFlow&trigger_context=a Here is my code to send Emails from any mail server, including Gmail: Var IdSMTP: TIdSMTP; IdMessage1: TIdMessage; IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL; begin IdMessage1 := TIdMessage.Create; IdMessage1.From.Address := MailFromAddress; IdMessage1.Recipients.Add.Address := Email; IdMessage1.Subject := MailTitle; IdMessage1.Body.Add(MailText); IdMessage1.Date:= now; IdMessage1.ContentType := MailContentType; IdMessage1.CharSet := MailCharSet; IdSMTP := TIdSMTP.Create(nil); IdSMTP.Host := MailSMTPHost; IdSMTP.Port := MailSMTPPort; IdSMTP.Username := MailUsername; IdSMTP.Password := MailPassword; if MailSMTPAuthType = 0 then IdSMTP.AuthType := satDefault; if MailSMTPAuthType = 1 then IdSMTP.AuthType := satNone; if MailSMTPAuthType = 2 then IdSMTP.AuthType := satSASL; // SSL IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port); IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host; IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port; IdSSLIOHandlerSocketOpenSSL.DefaultPort := MailOpenSSLDefaultPort; if MailSSLMode = 0 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned; if MailSSLMode = 1 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmClient; if MailSSLMode = 2 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmServer; if MailSSLMode = 3 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmBoth; IdSMTP.IOHandler := idSSLIOHandlerSocketOpenSSL; if MailSSLMethod = 0 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv23; if MailSSLMethod = 1 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1; if MailSSLMethod = 2 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1_1; if MailSSLMethod = 3 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1_2; if MailSSLMethod = 4 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv2; if MailSSLMethod = 5 then IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3; if MailUseTLS = 0 then IdSMTP.UseTLS := utUseImplicitTLS; if MailUseTLS = 1 then IdSMTP.UseTLS := utNoTLSSupport; if MailUseTLS = 2 then IdSMTP.UseTLS := utUseRequireTLS; if MailUseTLS = 3 then IdSMTP.UseTLS := utUseExplicitTLS; try try IdSMTP.Connect; except on E: Exception do Begin End; end; IdSMTP.Send(IdMessage1); finally IdSMTP.Disconnect; idMessage1.Free; IdSSLIOHandlerSocketOpenSSL.Free; idSMTP.Free; end; end;
  16. Yes, exactly, you are right. @Şerzod
  17. Hello, I am trying to send emails from a gmail email account, and doing everything on my computer, if I generate a CGI it sends perfectly but if I generate ISAPI and under IIS it does nothing, it does not generate logs or anything like that, it simply does not do nothing, I have the libraries in the execution folder of both the ISAPI and the CGI, and I don't know how to send Gmail email from ISAPI, can someone help me, thank you.
  18. Hi, in mode-0, all 3 slave servers work perfectly. I can directly access to my web app : http://13.x.x.x:8077/ http://20.x.x.x:8077/ http://4.x.x.x:8077/ in mode-2, the master server works perfectly. in Chrome browser https://mydomain.com/test/hyper_server.dll goes to the new url (redirection) http://20.x.x.x:8077/?rdrprm=88947574E000E845429FC8B33D83F72A&_rfr_=aHR0cHM6Ly9wZTV0ZXN0djIuaW5mb2RpZGFjLm5ldC9wcm9lY290ZXN0L2h5cGVyX3NlcnZlci5kbGw= and the web app works fine
  19. Ok, sorry. But I gave you the solution in the link above.
  20. I haven't used it yet. I wanted to know if I can use it, but I couldn't find it in unidbgrid procedures. We can get it with SelectedRows, this is very good. It would be great if we could mark it similarly. For example, if we could fill bookmarks in SelectedRows
  21. Where do you use the code to programmatically select records?
  22. Do you use UniDBGrid1->OnAfterLoad event for example?
  23. Hi, First of all, does your HyperServer setup work normally when you call the URL from a browser?
  1. Load more activity
×
×
  • Create New...