Ivan Revelli - Synaptica srl

Delphi Android App retrive locale from SO

per Ivan Revelli
in Delphi
on Dicembre 4, 2023

Piccolo snippet per ottenere la lingua in uso dal dispositivo Android: tested on Linguaggio: Delphi 12.0 Android: 6.0 up to 13

{$IFDEF ANDROID}
    var Locale: JLocale;
    Locale := TJLocale.JavaClass.getDefault;
    var Language: String := JStringToString(Locale.getLanguage);
    showmessage('Lingua: ' + Language);
{$ENDIF}

{$IFDEF ANDROID}

var Locale: JLocale;

Locale := TJLocale.JavaClass.getDefault;

var Language: String := JStringToString(Locale.getLanguage);

showmessage('Lingua: ' + Language);

{$ENDIF}

Delphi – Record vs Objects

per Ivan Revelli
in Delphi, Pascal, Programmazione
on Ottobre 15, 2023

L’evoluzione della gestione dei records in Delphi continua inesorabile. Un bellissimo articolo di Cary Jensen, non aggiornatissimo, visibile a questo link fa un analisi dello stato dell’arte della gestione dei record in Delphi. E’ incredibile, che dopo innumerevoli anni di lavoro con Delphi scopro ancora cose nuove sui record 🙁 A breve aggiorno l’articolo ma…
Leggi tutto

Firebird SQL – URL parse procedure

per Ivan Revelli
in Articoli, Firebird SQL
on Ottobre 7, 2023

create or alter procedure SP_PARSE_URL
(
  p_url VARCHAR(32000)
)
RETURNS (
  protocol VARCHAR(10),
  host VARCHAR(255),
  path VARCHAR(32000)
)
AS
BEGIN
  IF (POSITION('://' IN p_url) > 0) THEN
    protocol = SUBSTRING(p_url FROM 1 FOR POSITION('://' IN p_url) - 1);
  ELSE
    protocol = '';

  IF (POSITION('://' IN p_url) > 0) THEN
    p_url = SUBSTRING(p_url FROM POSITION('://' IN p_url) + 3);
  ELSE
    p_url = p_url;

  IF (POSITION('/' IN p_url) > 0) THEN
  BEGIN
    host = SUBSTRING(p_url FROM 1 FOR POSITION('/' IN p_url) - 1);
    p_url = SUBSTRING(p_url FROM POSITION('/' IN p_url));
  END
  ELSE
  BEGIN
    host = p_url;
    p_url = '';
  END

  path = p_url;

  SUSPEND;
END

create or alter procedure SP_PARSE_URL

(

p_url VARCHAR(32000)

)

RETURNS (

protocol VARCHAR(10),

host VARCHAR(255),

path VARCHAR(32000)

)

BEGIN

IF (POSITION('://' IN p_url) > 0) THEN

protocol = SUBSTRING(p_url FROM 1 FOR POSITION('://' IN p_url) - 1);

ELSE

protocol = '';

IF (POSITION('://' IN p_url) > 0) THEN

p_url = SUBSTRING(p_url FROM POSITION('://' IN p_url) + 3);

ELSE

p_url = p_url;

IF (POSITION('/' IN p_url) > 0) THEN

BEGIN

host = SUBSTRING(p_url FROM 1 FOR POSITION('/' IN p_url) - 1);

p_url = SUBSTRING(p_url FROM POSITION('/' IN p_url));

END

ELSE

BEGIN

host = p_url;

p_url = '';

END

path = p_url;

SUSPEND;

END

Image acquisition systems for Delphi

per Ivan Revelli
in Senza categoria
on Ottobre 6, 2023

Video 4 Linux Delphi wrappers: https://github.com/adaloveless/commonx/blob/master/PXL.Cameras.V4L2.pas https://github.com/uaply/fpcVideo4L2/blob/master/uvcvideo.pas Componenti per Delphi: https://blogs.embarcadero.com/professional-camera-component-for-your-firemonkey-windows-applications/ https://winsoft.sk/mediasuite.htm https://winsoft.sk/fmediasuite.htm https://www.trichview.com/download/ http://www.flashavconverter.com/content/mobile-live-camera-publish-for-delphi

Invia SMS via Seriale – Modulo SIM800C – SIMCom GSM/GPRS Module

per Ivan Revelli
in Senza categoria
on Settembre 22, 2023

Ho un sistema Linux Ubuntu 22.04 e voglio inviare messaggi tramite il dispositivo “SIM800C – SIMCom GSM/GPRS Module”. Lo connetto al sistema via USB – UART, utilizzando i comandi standard “AT” ( Hayes AT command set ), nello specifico su questo blog : https://www.emnify.com/developer-blog/at-commands-for-cellular-modules che spiega i comandi AT più moderni relativi al mondo GSM.…
Leggi tutto