Blog

Esempio PDF realizzato con la libreria TCPDF

https://tcpdf.org/

“Firebird Performance”, by Vlad Khorsun, Firebird Project
“Tuning Linux, Windows, and Firebird for heavy workload” by Alex Kovyazin, IBSurgeon.

Presentations from Firebird Tour 2017: Firebird Performance and Tuning Linux and Windows

Configure RaspAP over Ubuntu 16.04 Server and Apache2

Using the JPackageInfo class is simple to retrive the version of your Android application.

This class is already wrapped by Embarcadero in the following unit:
Androidapi.JNI.GraphicsContentViewText

{code}

{$IFDEF ANDROID}

var
PackageManager: JPackageManager;
PackageInfo: JPackageInfo;
begin
PackageManager := SharedActivityContext.getPackageManager;
PackageInfo := PackageManager.getPackageInfo
(SharedActivityContext.getPackageName, 0);
result := JStringToString(PackageInfo.versionName);
End;
{$ENDIF}

L’obiettivo era quello di connettersi a livello programmatico ad una specifica WiFi da qui è sorta l’esigenza di gestire in modo completo la classe Java WifiManager.

Nei tre metodi principali riportati di seguito avremo:

1. riconoscimento dell’IP Address assegnato alla porta wifi
2. Elenco delle Wifi disponibili (quelle che il dispositivo riconosce)
3. Elenco delle configurazioni WiFi salvate sul dispositivo
4. Possibilità di connettersi ad una specifica Wifi creandone la configurazione se la stessa non esiste

function IntToInetAddr(ipInt : Integer) : String;
var
 b : TBytes;
Begin
    SetLength(b,4);
    b[3] := ((ipInt and $FF000000) shr 24);
    b[2] := ((ipInt and $00FF0000) shr 16);
    b[1] := ((ipInt and $0000FF00) shr 8);
    b[0] := (ipInt and $000000FF);
    result := b[0].ToString() + '.' +
              b[1].ToString() + '.' +
              b[2].ToString() + '.' +
              b[3].ToString();

End;

(*
https://stackoverflow.com/questions/36098871/how-to-search-and-connect-to-a-specific-wifi-network-in-android-programmatically

http://blog.csdn.net/cmdasm/article/details/38357613
*)

procedure TForm4.Button1Click(Sender: TObject);
Var
  networkSSID : String;
  networkPass : String;
  WifiManagerObj: JObject;
  WifiManager: JWifiManager;
  AWifiConfiguration: JList;
  WifiInfo: JWifiInfo;
  WifiConfiguration,WinConf :  JWifiConfiguration;
  networkId: Integer;
  Done: Boolean;
  iter: JIterator;

begin
//  https://geekori.com/details.php?que_id=26676
  WifiManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);
  WifiManager := TJWifiManager.Wrap((WifiManagerObj as ILocalObject).GetObjectID);
  WifiInfo := WifiManager.getConnectionInfo();

 if CheckBox1.IsChecked then
  Begin
    networkSSID := '"' + edSid.Text + '"';
    networkPass := '"' + edPwd.Text + '"';
  End
 Else
  Begin
    networkSSID := edSid.Text;
    networkPass := edPwd.Text;
  End;

 WifiConfiguration := nil;
 networkId := -1;

 iter := WifiManager.getConfiguredNetworks().iterator;
 while iter.hasNext do
     Begin
       WinConf := TJWifiConfiguration.Wrap((iter.next as ILocalObject).GetObjectID);
       //Memo1.lines.add(WinConf.networkId.ToString + ' --> ' + JStringToString(WinConf.SSID));
       if JStringToString(WinConf.SSID) = networkSSID then
        Begin
         WifiConfiguration := WinConf;
         networkId := WinConf.networkId;
        End;

     End;

 if WifiConfiguration = nil then
  Begin
    Memo1.lines.add('Network not found try to create configuration');
    //WifiConfiguration := TJWifiConfiguration.Create;
    WifiConfiguration := TJWifiConfiguration.JavaClass.init;

    WifiConfiguration.SSID := StringToJString(networkSSID);

    WifiConfiguration.preSharedKey := StringToJString(networkPass);

     WifiConfiguration.hiddenSSID := true;


    WifiConfiguration.allowedAuthAlgorithms.&set(TJWifiConfiguration_AuthAlgorithm.JavaClass.OPEN);
    WifiConfiguration.allowedGroupCiphers.&set(TJWifiConfiguration_GroupCipher.JavaClass.TKIP);
    WifiConfiguration.allowedGroupCiphers.&set(TJWifiConfiguration_GroupCipher.JavaClass.CCMP);
    WifiConfiguration.allowedKeyManagement.&set(TJWifiConfiguration_KeyMgmt.JavaClass.WPA_PSK);
    WifiConfiguration.allowedPairwiseCiphers.&set(TJWifiConfiguration_GroupCipher.JavaClass.TKIP);
    WifiConfiguration.allowedPairwiseCiphers.&set(TJWifiConfiguration_GroupCipher.JavaClass.CCMP);
    WifiConfiguration.status := TJNsdManager.JavaClass.NSD_STATE_ENABLED;

    networkId := WifiManager.addNetwork(WifiConfiguration);
  End;



  if networkId = -1 then
  begin
    Done := False;
    Memo1.lines.add('ERROR: networkId = -1');
  end
  Else
   Memo1.lines.add('networkId = ' + networkId.ToString());

  if WifiManager.disconnect = False then
  begin
    Done := False;
    Memo1.lines.add('ERROR: not disconnected');
  end;


  if done then
   Begin
    AWifiConfiguration := WifiManager.getConfiguredNetworks();
    done := False;
    Memo1.lines.add(' Configured network size: ' +  AWifiConfiguration.size.ToString());
    iter := AWifiConfiguration.iterator;
    while iter.hasNext do
     Begin
       WinConf := TJWifiConfiguration.Wrap((iter.next as ILocalObject).GetObjectID);
       Memo1.lines.add(WinConf.networkId.ToString + ' --> ' + JStringToString(WinConf.SSID));
       if WinConf.networkId = networkId then
         done := WifiManager.enableNetwork(networkId, true)
       Else
         WifiManager.disableNetwork(WinConf.networkId);

     End;


//    done := WifiManager.enableNetwork(networkId, true);

   WifiManager.reconnect;
//    done := WifiManager.enableNetwork(AWifiConfiguration.get(networkId).hashCode, true);
   End;

  if Done then
   Begin
     Memo1.lines.add('Connected');
   End
  Else
   Begin
     Memo1.lines.add('Not Connected to selected network');

   End;

  GetIpAddress;


end;

procedure TForm4.Button2Click(Sender: TObject);
 var
  WifiManagerObj: JObject;
  WifiManager: JWifiManager;
  WifiInfo: JWifiInfo;
begin
  WifiManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);
  WifiManager := TJWifiManager.Wrap((WifiManagerObj as ILocalObject).GetObjectID);
  WifiInfo := WifiManager.getConnectionInfo();


  Memo1.Lines.Clear;
  Memo1.Lines.Add('Wifi Enabled: ' + WifiManager.isWifiEnabled.ToString);
  Memo1.Lines.Add('Wifi State: ' + WifiManager.getWifiState.ToString);
  Memo1.Lines.Add('Ping Supplicant: ' + WifiManager.pingSupplicant.ToString);


  Memo1.Lines.Add('BSSID: ' + JStringToString(WifiInfo.getBSSID));
  Memo1.Lines.Add('HiddenSSID: ' + WifiInfo.getHiddenSSID.ToString);
  Memo1.Lines.Add('IpAddress: ' + WifiInfo.getIpAddress.ToString);
  Memo1.Lines.Add('LinkSpeed: ' + WifiInfo.getLinkSpeed.ToString + 'Mbps');
  Memo1.Lines.Add('MacAddress: ' + JStringToString(WifiInfo.getMacAddress));
  Memo1.Lines.Add('NetworkId: ' + WifiInfo.getNetworkId.ToString);
  Memo1.Lines.Add('Rssi: ' + WifiInfo.getRssi.ToString + 'dBm');
  Memo1.Lines.Add('SSID: ' + JStringToString(WifiInfo.getSSID));
  Memo1.Lines.Add('SupplicantState: ' + JStringToString(WifiInfo.getSupplicantState.toString));
  GetIpAddress;

end;

procedure TForm4.Button3Click(Sender: TObject);
var
  WifiManagerObj: JObject;
  WifiManager: JWifiManager;
  ScanResult: JScanResult;
  i: Integer;
begin
  WifiManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);
  WifiManager := TJWifiManager.Wrap((WifiManagerObj as ILocalObject).GetObjectID);

  Memo1.Lines.Clear;

  for i := 0 to WifiManager.getScanResults.size - 1 do
  begin
    ScanResult := TJScanResult.Wrap((WifiManager.getScanResults.get(i) as ILocalObject).GetObjectID);



    memo1.Lines.Add( 'SSID: ' + JStringToString(ScanResult.SSID));
    memo1.Lines.Add( 'frequency: ' + ScanResult.frequency.ToString +
    'MHz' + '  level: ' + ScanResult.level.ToString + 'dBm)');





//    ListBox1.AddObject(ListBoxItem);
  end;

//  ListBox1.EndUpdate;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin

// networkSSID := '"WiTmm3"';
// networkPass := '"simona1987"';
  edSid.Text := 'WiTmm3';
  edPwd.Text := 'simona1987';
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
end;

procedure TForm4.GetIpAddress;
var
  WifiManagerObj: JObject;
  WifiManager: JWifiManager;
  WifiInfo: JWifiInfo;
begin
  label1.text := '127.0.0.1';
  { TODO : Trovare il modo di leggere il corrente ipaddress del dispositivo }
  try
    WifiManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);
    WifiManager := TJWifiManager.Wrap((WifiManagerObj as ILocalObject).GetObjectID);
    WifiInfo := WifiManager.getConnectionInfo;
    label1.text := IntToInetAddr(WifiInfo.getIpAddress);
    if label1.text = '0.0.0.0' then
      label1.text := '127.0.0.1';
  except
    on e: exception do
    begin
      label1.text := '127.0.0.1';
      raise Exception.Create(e.Message);
    end;
  end;
end;

procedure TForm4.FormCreate(Sender: TObject);
Begin
  GetIpAddress;
End;

To find a file in the Android Shell “ADB” you can use this command:

# busybox find "filetosearch"

you can do the same with

# ls -R | grep "filetosearch"

but you can’t see the directory where is the file

DKLang è un package per Delphi relativo alla gestione dell’internazionalizzazione delle applicazioni.

E’ composto da un insieme di componenti, classi e tools veramente ridotto ma efficace, il tool è open source e compatibile con tutte le piattaforme di sviluppo di Delphi (Windows,MacOSX,iOS,Android e Linux) sia per Firemonkey che VCL.

Le versioni del tool sono scaricabile da github all’indirizzo: https://github.com/yktoo/dklang
Home page del progetto: https://yktoo.com/en/software/dklang
Documentazione: https://github.com/yktoo/dklang/wiki

qualche accortezza nell’uso:

1) nel file di progetto deve essere compresa la direttiva {$R *.dkl_const.res} come da esempio:

program TeamLab;

{$R *.dres}
uses

  System.StartUpCopy,

  FMX.MobilePreview,

  FMX.Forms,

  ….;
{$R *.res}

{$R *.dkl_const.res}
begin

  Application.Initialize;

  Application.CreateForm(TfrmMain, frmMain);

  Application.Run;

end.

Changing the text property of a tree item in Firemonkey is really simple, you only need to do this:

      tiC := TTreeViewItem.Create();

      tiC.Text := ‘BLA BLA’;

      tiC.StyledSettings := [];

      tiC.TextSettings.FontColor := TAlphaColorRec.Blue;

      tiC.Parent := ParentItem;

      tiC.TagString := ;

      tiC.Tag := ;