All Activity

+1

Indications on how to activate SSL in IIS, very well explained , I provide a link to a video that describes step by step how to activate SSL operation in IIS in ISAPI environments. To send email with SSL it is essential to correctly configure IIS.

Hello I wrote the following code in added event in ExtEvents for Unimpanel, But do not work. function added(sender, container, index, eOpts) { sender.setWidth(Ext.getBody().getViewSize().width); sender.setHeight(Ext.getBody().getViewSize().Height); } Where am I going wrong? Regards.

My biggest school in unigui has always been the mega demo

To get the value of the filter entered, just do the following Columns[I].Filtering.VarValue

Good morning, thank you for your quick reply, even if I don't use the unit compare with program and if I have managed to create the running filters. But at the time of reading the filter value I have not been able to obtain the typed value. I attach the code used, if you can guide me or give me another alternative, greetings from Cali Colombia procedure TFConsultasGenF.UniDBGrid1ColumnFilter(Sender: TUniDBGrid; const Column: TUniDBGridColumn; const Value: Variant); var UniDBGridColumn:TUniDBGridColumn; UniEdit:TUniEdit ; ColumnFilter:TUniColumnFilter ; str:string; FieldName:string; xunidbgrid:TUniDBGrid; w_filtername:string; EditComponent: TComponent; begin str:= Value; w_filterName:= 'F_' + Column.FieldName ; EditComponent := Self.FindComponent(w_filterName); if EditComponent is TUniEdit then begin UniEdit := tUniEdit(EditComponent); str:=uniEdit.Text; end; end; // CREATE FILTER CODE procedure TFConsultasGenF.Crear_Filtros2(p_HiddenPanel: TUniHiddenPanel; p_DataSet: TDataSet); {crea tunit con el nombre cada campo del tdataset con prefijo F} begin var i:Integer; var w_uniEdit:TuniEdit ; VAR W_FieldName:string ; UniDBGrid1.Columns.BeginUpdate; for I := 0 to p_DataSet.Fields.Count - 1 do begin w_uniEdit:= TuniEdit.Create(SELF ); w_uniEdit.Name:= 'F_' + p_DataSet.Fields[i].FieldName ; w_uniEdit.Parent:= p_HiddenPanel ; W_FieldName:= p_DataSet.Fields[i].FieldName ; UniDBGrid1.Columns[I].Filtering.Editor:= w_uniEdit; UniDBGrid1.Columns[i].Filtering.Enabled:= True; UniDBGrid1.Columns[i].Filtering.ChangeDelay := 250; // Filtering.Editor := TUniEdit(Self.FindComponent('ed' + lModel.Name.Replace('.', '_'))); // UniDBGrid1.ColumnByName(W_FieldName).Filtering.Editor:= w_uniEdit; // UniDBGrid1.ColumnByName(W_FieldName).Filtering.Enabled:= True; end; UniDBGrid1.Columns.EndUpdate; END;

Good morning, thank you for your quick reply, even if I don't use the unit compare with program and if I have managed to create the running filters. But at the time of reading the filter value I have not been able to obtain the typed value. I attach the code used, if you can guide me or give me another alternative, greetings from Cali Colombia procedure TFConsultasGenF.UniDBGrid1ColumnFilter(Sender: TUniDBGrid; const Column: TUniDBGridColumn; const Value: Variant); var UniDBGridColumn:TUniDBGridColumn; UniEdit:TUniEdit ; ColumnFilter:TUniColumnFilter ; str:string; FieldName:string; xunidbgrid:TUniDBGrid; w_filtername:string; EditComponent: TComponent; begin str:= Value; w_filterName:= 'F_' + Column.FieldName ; EditComponent := Self.FindComponent(w_filterName); if EditComponent is TUniEdit then begin UniEdit := tUniEdit(EditComponent); str:=uniEdit.Text; end; end;

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.

It's ok sorted I didn't realise it was an event on the form and you had to set the form to accept.

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

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.

Hello, By the way, this seems to be what you need or not?

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.

you are right @Sherzod i know. i need just to know whether the print button on the toolbar was pressed Best Regards,

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.

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

Good morning gentlemen how can I create TUniColumnFilter at runtime and reclaim the value of the modified filter

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

But, as you know, this does not give 100 percent confidence that the user has printed, since he can cancel the printing.

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;

Yes, exactly, you are right. @Şerzod

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.

What is the MaxNodes parameter for each server?

with 200 sessions, from the beginning i get

with 150 sessions, after a while i get