From version 2.5 Firebird introduces the “SIMILAR TO” predicate which allows you to apply a subset of regular expressions in an SQL condition. The documentation of the “SIMILAR TO” predicate is available at https://firebirdsql.org/refdocs/langrefupd25-similar-to.html If we wanted to check if there are numbers (DIGIT) inside a string, i.e. characters from ‘0’ to ‘9’ we could…
Read more
Highlights word in a RichView component programmatically: uses Winapi.RichEdit; procedure SetTextColor(oRichEdit : TRichEdit; sText : String; rAttributes : TTextAttributes); var iPos : Integer; iLen : Integer; Format: CHARFORMAT2; begin FillChar(Format, SizeOf(Format), 0); Format.cbSize := SizeOf(Format); Format.dwMask := CFM_BACKCOLOR; Format.crBackColor := rAttributes.BackColor; iPos := 0; iLen := Length(oRichEdit.Lines.Text) ; iPos := oRichEdit.FindText(sText, iPos, iLen, []);…
Read more
A reverse proxy is a type of proxy server that accepts HTTP (S) requests and transparently distributes them to one or more backend servers. You can use a reverse proxy to prevent direct access to these underlying application servers. They can also be used to distribute the load of incoming requests to different application servers.…
Read more
Configuring an OpenVPN over pfSense is quite simple. In this video you can see, how to configure a VPN on the lastest release of pfSense using the VPN Wizard.
Configure svn server over Apache2, using https. sudo apt update sudo apt upgrade sudo apt-get install apache2 sudo apt-get install subversion libapache2-mod-svn subversion-tools libsvn-dev sudo a2enmod dav dav_svn sudo service apache2 restart sudo mkdir -p /var/lib/svn/ sudo svnadmin create /var/lib/svn/apprepo sudo chown -R www-data:www-data /var/lib/svn sudo chmod -R 775 /var/lib/svn sudo touch /etc/apache2/dav_svn.passwd …
Read more
TFormatsettings is record type in Delphi which is used to get or set local information’s like DateTimeFormat, CurrencyFormat, DecimalSeparator etc. wich is declared in System.SysUtils. For Example you need to retrive your current DecimalSeparator: procedure TForm1.Button1Click(Sender: TObject); var fs: TFormatSettings; begin GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs); ShowMessage(‘Actual decimalseparato is:’ + fs.DecimalSeparator); end; If you need to force some…
Read more
