Programmazione - Synaptica srl

Xtumble Web Builder 2 for Windows x86 32bit

by Ivan Revelli
in Delphi, Software, Xtumble
on June 27, 2021

0

Xtumble Web Builder 2 is the basic tool with which we customize all the WEB experience of the applications built on the brand new cloud business platform Xtumble and with which we have created the e-commerce visible on xtumble.store. To allow developers / designers / web developers to be able to customize the applications published…
Read more

Xtumble Web Builder 2 for Mac OSX 64bit

by Ivan Revelli
in Programmazione, Programmazione, Programmazione, Programmazione, Programmazione, Programmazione, Xtumble
on May 27, 2021

0

Xtumble Web Builder 2 is the basic tool with which we customize all the WEB experience of the applications built on the brand new cloud business platform Xtumble and with which we have created the e-commerce visible on xtumble.store . To allow developers / designers / web developers to be able to customize the applications…
Read more

Firebird SQL – Verify if a string contains digit (number char)

by Ivan Revelli
in databases, Firebird SQL
on May 20, 2021

0

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

Subversion over Ubuntu Server 20.04

by Ivan Revelli
in Posts, Sistemi, Software, Software
on March 25, 2021

0

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

1

2

3

4

5

6

7

8

9

10

11

12

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

now let’s set the password of the first user:

sudo htpasswd -cm /etc/apache2/dav_svn.passwd <username>

1	sudo htpasswd -cm /etc/apache2/dav_svn.passwd <username>

configuriamo gli accessi:

sudo nano /etc/apache2/mods-enabled/dav_svn.conf

1	sudo nano /etc/apache2/mods-enabled/dav_svn.conf

we configure the accesses to the svn folders

sudo nano /etc/apache2/dav_svn.authz

1	sudo nano /etc/apache2/dav_svn.authz

Apache restart:

  sudo service apache2 restart

1	sudo service apache2 restart

Delphi …. retrive locale format setting

by Ivan Revelli
in Uncategorized
on March 17, 2021

0

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;

1

2

3

4

5

6

7

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 local settings for conversions you can do for example:

procedure TForm1.Button1Click(Sender: TObject);
var
  myMoney : String;
  FS : TFormatSettings; 
  myMoneyFloat: Extended;
begin
  myMoney := '100000,66'; 
  FS.DecimalSeparator := ',';
  myMoneyFloat :=  StrToFloat(myMoney,FS);
  ShowMessage('Your actual balance:' + myMoneyFloat.toString); 
end;

1

2

3

4

5

6

7

8

9

10

11

procedure TForm1.Button1Click(Sender: TObject);

var

myMoney : String;

FS : TFormatSettings;

myMoneyFloat: Extended;

begin

myMoney := '100000,66';

FS.DecimalSeparator := ',';

myMoneyFloat := StrToFloat(myMoney,FS);

ShowMessage('Your actual balance:' + myMoneyFloat.toString);

end;

If you want to…
Read more

Delphi 10.4.1 on Android error : java.lang.NullPointerException: Attempt to invoke virtual method

by Ivan Revelli
in Delphi, Delphi, Delphi, Posts, Posts, Posts, Posts, Posts
on January 25, 2021

0

When you try to use the camera component and you get “java.lang.NullPointerException: Attempt to invoke virtual method” only on “release” version of your application, probably you don’t have this setting to true: Check that the Project Options > Entitlements List > Secure File Sharing option is set to true. good job

Category: Programmazione