Search the Community
Showing results for 'Self Signed certificate'.
-
Hello everyone, I use a self-signed certificate for the development environment created through openssl following unigui's own post (here). However, when running the application, any browser considers it insecure and in my case it makes the application slow. For now I disable ssl as it is only in the laboratory. Is there any way around this?
-
Hi everyone, I'm currently working on a UniGUI project where I need to make an AJAX call from JavaScript code within a TUniHTMLFrame component. I've been trying to set up the AJAX call using ajaxRequest, but I'm encountering difficulties in properly referencing the component to trigger the event handler on the server side. Here is some code, which works fine in a standalone project - but I am not able to transfer this to my component code: procedure TMainForm.UniFormCreate(Sender: TObject); begin UniHTMLFrame1.HTML.Text := '<!DOCTYPE html>' + '<html>' + '<head>' + '<title>Button Test</title>' + '<script type="text/javascript">' + 'function buttonClicked() {' + ' ajaxRequest(MainForm.UniHTMLFrame1, "buttonClick", ["info=Ajax works fine!"]);' + '}' + '</script>' + '</head>' + '<body>' + '<button onclick="buttonClicked()">Click Me!</button>' + '</body>' + '</html>'; end; procedure TMainForm.UniHTMLFrame1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings); begin if EventName = 'buttonClick' then begin ShowMessage('Button was clicked with info: ' + Params.Values['info']); end; end; Despite my efforts, I haven't been able to get the AJAX call to work as expected. I've explored various approaches, including using window.parent, window.parent.Ext.getCmp, and direct references to the component's JSName, but none of them seem to be yielding the desired results. Could someone please provide guidance on how to correctly set up the AJAX call within a TUniHTMLFrame component? Any insights or alternative approaches would be greatly appreciated. Thanks in advance for your help!
-
Hello, I have some applications developed with uniGUI but without https type security, so I took on the task of purchasing a certificate for my domain. I have used the uniGUI SSL Demo example and replaced the 3 files with those of my certificate. The program runs without problems, and even shows me the message "It is an SSL Session" but it DOES NOT remove the legend in the browser that it is an NOT secure site. This happens to me both in local mode and in production (on my web server on my domain). Is it necessary to install the certificate on my domain's web server? (according to uniGUI it is not necessary, but I don't know what else to do). Thanks for your help. Felipe Lugo
-
Amazon (AWS) S3 File / Bucket Manager and Pre-Signed URL generator Amazon Simple Storage Service (Amazon S3) is a scalable, high-speed, web-based cloud storage service. The service is designed for online backup and archiving of data and applications on Amazon Web Services (AWS). Don't know s%#* about S3 ? See here: https://www.techtarget.com/searchaws/definition/AWS-bucket Features list and specs: - Create, Delete and Retrieve Bucket List. - uniGUI Server is just perfect to this kind of application. You can also turn into a service and work like a bridge between your end users and your storage service at AWS. - Upload files to buckets, download files directly, download link etc... - All operations can be done in one single step. - A client (your end-user) could upload files using this uniGUI server (this very program) and, from there, this (same) uniGUI APP upload to Amazon S3 on the fly and could generate a pre-signed download url for sharing. - Retrieve bucket's content list at start-up. - Delete items (files) at bucket. - Generates pre-signed download link. - Configures pre-signed validation period limits for download URLs links (ideal for security on files publishing in a enterprise environment) per file . - Save configs and preferences. - This project is ideal for distributing and manager files and logical buckets using Amazon S3 service (AWS3). - Good for sharing docs, files, contracts, resources with security, download link with expiration time etc. - You need a Amazon Account with S3 enabled. - Get your AccessKey and SecretKey in AWS Console/Dashboard, configure your storage service, use the config tab and you are good to go. - Also, coming soon Mega.nz S3 Service. https://mega.io/pt-br/objectstorage Get in touch for more info at WA/TG 55 11-98620-7676.
-
Dears, You can download it here : http://forums.unigui.com/index.php?/topic/18951-help-with-ssl-intranet/&do=findComment&comment=136067
-
Good morning gentlemen, I need to print self-adhesive labels from a zebra pda. A Zebra printer is connected to the PDA via Bluetooth. The program is made in Unigui for mobile The program is located on a Windows Server 2012 server. Several zebra terminals are connected to this server via intranet and/or extranet(simcard). El reporte se genera usando fastreport. What is the mechanism that I need to use to print? If I use the program made with unigui movile from the desktop on a desktop printer it works, but if I use the same program from the mobile you can view the label but it is not printed, the idea is to print from the handheld directly (or manually). Is there a technical or commercial solution? Thank you for your input
-
Hi group This is the issue: SSL Certificate from SSLS.com I get those files: myPage_com.crt -> renamed to certificate.crt myPage_com.ca-bundle -> renamed to ca_bundle.crt myPage_com.p7b www.myPage.com.crs private.key -> renamed to key.pem I perform this steps: openssl x509 -in certificate.crt -out cert.pem -outform PEM openssl x509 -in ca_bundle.crt -out root.pem -outform PEM My Unigui App running in 32 bits. Copied the files key.pem, cert.pem and root.pem in the main root app: and the x86 folder files: libeay32.dll and ssleay32.dll Server module configuration: SSL->Enabled = True SSL->SSLOptions->CertFile = cert.pem SSL->SSLOptions->KeyFile = key.pem SSL->SSLOptions->RootCertFile = root.pem Method: sslvTLSv1_2 Mode: sslmUnassigned SSLVersion: sslvTLSV1_2 The staff of ssls.com told me the private key HAS NOT password, it is clean. Does anybody can help me please..? Thanks group.
-
I can´t make a Unigui App run with a letsencrypt cert .. i allways become "Could not load root certificate" Has someone a idea why or a How-to ?
-
I have been using GoDaddy SSL Certificates without any problems but today after a Renewal the Cert fails claiming the password is wrong when it is not ? My ISP controls the GoDaddy generation interface - any ideas on how to get them to request the correct Cert ? This is my openssl request openssl.exe req -new -newkey rsa:2048 -nodes -keyout key.pem -out req.csr Thanks in advance.
-
Hello, i'm trying to make work SSL with a test unigui application (standalone) I have generated a certificate as explaing in this link: Developer's Guide > Deployment > SSL Configuration > Generate a Self-Signed Certificate (unigui.com) I have created the certificate with a password and have inserted the password in the SSLPassword property in my application. I suppose i have done it right. Of course i have enabled ssl (ssl.enabled=true) The application is correctly executed using https://127.0.0.1:8077 but the browser tell me the the connection is not safe. Does it happens because i'm using a self-generated certificate ? Below you can see the properties of the servermodule. thanks Roberto object UniServerModule: TUniServerModule OldCreateOrder = False TempFolder = 'temp\' Title = 'New Application' SuppressErrors = [] Bindings = <> SSL.Enabled = True SSL.SSLOptions.RootCertFile = 'root.pem' SSL.SSLOptions.CertFile = 'cert.pem' SSL.SSLOptions.KeyFile = 'key.pem' SSL.SSLOptions.Method = sslvTLSv1_2 SSL.SSLOptions.SSLVersions = [sslvTLSv1_2] SSL.SSLOptions.Mode = sslmUnassigned SSL.SSLOptions.VerifyMode = [] SSL.SSLOptions.VerifyDepth = 0 SSL.SSLPassword = '050302' ConnectionFailureRecovery.ErrorMessage = 'Connection Error' ConnectionFailureRecovery.RetryMessage = 'Retrying...' Height = 150 Width = 215 end -
Dear Friends, I have been developing with unigui in C++builder Alexandria 11.1 in 64 bit mode using standalone server and when enable SSL it is giving me this exception Exception class EIdOSSLLoadingRootCertError with message First chance exception at $00007FFAC43D4F69. Exception class EIdOSSLLoadingRootCertError with message 'Could not load root certificate. error:00000000:lib(0):func(0):reason(0)'. Process xxxxxx.exe (6852) It won't happen if i compile in 32 bits. I am a registered UNIGUI user and the version that i am using is the 1.90.0.1560. it is happening in both debug and release configuratons. For testing i am using the self signed certificate following UNIGUI documentaton instructions. Also i am using the SSL dll that comes with the 1560 version. SSL config on ServerModule is SSL.Enabled = True SSL.SSLOptions.RootCertFile = 'root.pem' SSL.SSLOptions.CertFile = 'fl.cert.pem' SSL.SSLOptions.KeyFile = 'fl.key.pem' SSL.SSLOptions.Method = sslvTLSv1_2 SSL.SSLOptions.SSLVersions = [sslvTLSv1_2] SSL.SSLOptions.Mode = sslmUnassigned SSL.SSLOptions.VerifyMode = [] SSL.SSLOptions.VerifyDepth = 0 SSL.SSLPassword = 'fmsoft' SSL.SSLPort = 8080 I also tried SSL.Enabled = True SSL.SSLOptions.RootCertFile = 'root.pem' SSL.SSLOptions.CertFile = 'fl.cert.pem' SSL.SSLOptions.KeyFile = 'fl.key.pem' SSL.SSLOptions.Method = sslvSSLv3 SSL.SSLOptions.SSLVersions = [sslvSSLv3] SSL.SSLOptions.Mode = sslmUnassigned SSL.SSLOptions.VerifyMode = [] SSL.SSLOptions.VerifyDepth = 0 SSL.SSLPassword = 'fmsoft' SSL.SSLPort = 8080 The result is identical So i hope that someone can give me some light on this. Thanks in advance
-
Self.TitleButtons[2].Action.Execute In Code - How ?
-
hi I have 2 questions 1- after installing SSL certificate on the application, when testing https://localhost/ on standalone setup it is working fine "after the worning message because the name is deferent" but the application don't open if using with hyper-server "I changed the port to 443 in both the server module and the hyper-server configuration file". 2- is there any more setup need to be done on the iis server after installing the certificate on the application to enable https? regards
-
Hi, This problem is displayed when entering the site. After canceling, you can enter the site. What settings did I make wrong? Regards.
-
On 30th September 2021, the root certificate that Let's Encrypt are currently using, the IdentTrust DST Root CA X3 certificate, will expire. Just in case you missed it - here is a good blog post about the situation - https://scotthelme.co.uk/lets-encrypt-old-root-expiration/
-
Hello. This is not exactly a problem with UNIGUI, but I can't use SSL in my StandAlone application. Here are my settings and error when starting the application. Error: I have not install nothing (certificates or something else). What I can do ?
-
hello I have a TrustCor Standard DV certificate from noip i installed .all works fine with https on pc but on android i get error certificate not valid?
-
Hi Pals: I want to get rid of the secure message of the browers when my Customers use UniGui app inside a intranet. I use a self-signed certificate, but the browser complains because is not a know certificate authority. I use then the certificate of my Customer, but it not happy the browser. The certificate point to sebaotweb.sebaot.com. When use from internet works very fine. Internally are a transparent redirect on the dns to point sebaotweb.sebaot.com to the server using internal IP address. On the browser the url is the same if You are using from internet, but inside the net (intranet) the certificate is "insecure". Anybody knows how i can handle this problem? Thanks for all and Best Regards
-
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
-
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
-
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, Does uniGUI support SSL ECC certicates? If so does uniGUI 1.0.0.1425 support these kind of certificates?
-
Up to last year I assigned a certificate to my webapplication using "bindings" (IIS7). Now I bought a new certificate. When I tried to assign it to my application I get the attached error message. Has anybody an idea about that problem? Application works fine in http-Mode.
-
how to use command uniedit---> Self.SelStart := Length(Self.Text); Self.SelLength := 0; And method change not found class list. procedure Change; override; problem - 1 Complete unit: //----------------------------------- Autocomplete edit-------------------------------------------------// unit AutocompleteEdit; interface uses Windows , Classes , Vcl.StdCtrls , SysUtils , StrUtils , Messages ,uniEdit ,uniGUIBaseClasses ,uniGUIClasses; const MSG_HIDEWORDLIST = WM_USER + 222; type TAutocompleteEdit=class(Tuniedit) private FWordList: TListBox; FCaretPos: Integer; FWordListHeight: Integer; FWordListWidth: Integer; procedure HandleWordListLostFocus(ASender: TObject); procedure HandleWordListSelectItem(ASender: TObject); procedure HandleWordListKeyPress(Sender: TObject; var Key: Char); procedure HandleWordListKeyDown(ASender: TObject; var Key: Word; Shift: TShiftState); procedure HandleHideWordList(var AMsg); overload; message MSG_HIDEWORDLIST; procedure HandleHideWordList; overload; procedure SetWordListHeight(const Value: Integer); procedure SetWordListWidth(const Value: Integer); procedure RegainFocus; protected procedure ShowWordList(AWords: TStrings); procedure HideWordList; procedure Change; override; procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure DoExit; override; public constructor Create(AOwner: TComponent); override; published property WordListHeight: Integer read FWordListHeight write SetWordListHeight; property WordListWidth: Integer read FWordListWidth write SetWordListWidth; end; TAutocompleteMan=class private FWords: TStrings; public constructor Create; destructor Destroy; override; function IsRecognized(AWord: string): Boolean; overload; function IsRecognized(AWord: string; AWordList: TStrings): Boolean; overload; procedure LoadFromFile(const AFilename: string); procedure AddWord(const AWord: string); property Words: TStrings read FWords; end; procedure Register; var AutocompleteMan: TAutocompleteMan; implementation procedure Register; begin RegisterComponents('CodeCall', [TAutocompleteEdit]); end; { TAutocompleteMan } procedure TAutocompleteMan.AddWord(const AWord: string); begin FWords.Add(UpperCase(AWord) + '=' + AWord); end; constructor TAutocompleteMan.Create; begin FWords := TStringList.Create; TStringList(FWords).Duplicates := dupIgnore; end; destructor TAutocompleteMan.Destroy; begin FWords.Free; inherited; end; function TAutocompleteMan.IsRecognized(AWord: string): Boolean; var i: Integer; begin Result := False; AWord := UpperCase(AWord); for i := 0 to FWords.Count-1 do begin Result := System.Pos(AWord, FWords.Names) > 0; if Result then Break; end; end; function TAutocompleteMan.IsRecognized(AWord: string; AWordList: TStrings): Boolean; var i: Integer; begin Result := False; AWord := UpperCase(AWord); AWordList.Clear; for i := 0 to FWords.Count-1 do begin if System.Pos(AWord, FWords.Names) > 0 then begin Result := True; AWordList.Add(FWords.ValueFromIndex); end; end; end; procedure TAutocompleteMan.LoadFromFile(const AFilename: string); var i: Integer; F: TStrings; begin F := TStringList.Create; try F.LoadFromFile(AFilename); for i := 0 to F.Count-1 do AddWord(F); finally F.Free; end; end; { TAutocompleteEdit } procedure TAutocompleteEdit.Change; var S: TStrings; begin inherited; if AutocompleteMan.IsRecognized(Self.Text) then begin S := TStringList.Create; try if AutocompleteMan.IsRecognized(Self.Text, S) then ShowWordList(S); finally S.Free; end; end else HideWordList; end; procedure TAutocompleteEdit.HandleHideWordList(var AMsg); begin HandleHideWordList; end; constructor TAutocompleteEdit.Create(AOwner: TComponent); begin inherited; FWordListHeight := 60; end; procedure TAutocompleteEdit.DoExit; begin if Assigned(FWordList) and FWordList.Visible and not FWordList.Focused then HideWordList; inherited; end; procedure TAutocompleteEdit.HandleHideWordList; begin FWordList.Free; FWordList := nil; end; procedure TAutocompleteEdit.HandleWordListKeyDown(ASender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=VK_UP) and (FWordList.ItemIndex=0) then RegainFocus; end; procedure TAutocompleteEdit.HandleWordListKeyPress(Sender: TObject; var Key: Char); begin case Key of #13: begin Key := #0; Self.Text := FWordList.Items[FWordList.ItemIndex]; Self.SetFocus; Self.SelStart := Length(Self.Text); Self.SelLength := 0; HideWordList; end; #27: begin RegainFocus; HideWordList; end; else begin RegainFocus; end; end; end; procedure TAutocompleteEdit.HandleWordListLostFocus(ASender: TObject); begin if not Self.Focused then HideWordList; end; procedure TAutocompleteEdit.HandleWordListSelectItem(ASender: TObject); begin Self.Text := FWordList.Items[FWordList.ItemIndex]; HideWordList; end; procedure TAutocompleteEdit.HideWordList; begin PostMessage(Self.Handle, MSG_HIDEWORDLIST, 0, 0); end; procedure TAutocompleteEdit.KeyDown(var Key: Word; Shift: TShiftState); begin if Key=VK_ESCAPE then HideWordList else if (Key=VK_DOWN) and Assigned(FWordList) and FWordList.Visible then begin FCaretPos := Self.SelStart; FWordList.SetFocus; if FWordList.ItemIndex < 0 then FWordList.ItemIndex := 0; end else inherited; end; procedure TAutocompleteEdit.RegainFocus; begin Self.SetFocus; Self.SelStart := FCaretPos; Self.SelLength := 0; end; procedure TAutocompleteEdit.SetWordListHeight(const Value: Integer); begin if FWordListHeight <> Value then begin FWordListHeight := Value; if Assigned(FWordList) then FWordList.Height := FWordListHeight; end; end; procedure TAutocompleteEdit.SetWordListWidth(const Value: Integer); begin if FWordListWidth <> Value then begin FWordListWidth := Value; if Assigned(FWordList) then begin if FWordListWidth < 1 then FWordList.Width := Self.Width else FWordList.Width := FWordListWidth; end; end; end; procedure TAutocompleteEdit.ShowWordList(AWords: TStrings); begin if FWordList=nil then begin FWordList := TListBox.Create(Self); FWordList.ParentCtl3D := False; FWordList.Ctl3D := False; FWordList.Parent := Self.Parent; FWordList.TabStop := False; FWordList.OnExit := HandleWordListLostFocus; FWordList.OnKeyPress := HandleWordListKeyPress; FWordList.OnKeyDown := HandleWordListKeyDown; end; FWordList.Items.Assign(AWords); if FWordListWidth < 1 then FWordList.SetBounds(Self.Left, Self.Top + Self.Height, Self.Width, FWordListHeight) else FWordList.SetBounds(Self.Left, Self.Top + Self.Height, FWordListWidth, FWordListHeight); FWordList.Show; end; initialization AutocompleteMan := TAutocompleteMan.Create; finalization AutocompleteMan.Free; end.
-
Hi, I need to use in de same application for more than one SSL certificate. How I do that? UNIGUI 1.50.0.1480 Delphi 10.2 Thanks!
