Con FMXLinux e le ultime versioni di Delphi è molto semplice realizzare un’applicazione Linux. L’oggetto di questo post è creare un’icona sul desktop e tra i preferiti per rendere lanciabile la vostra applicazione dal desktop di gnome. Nel mio caso ho realizzato un’applicazione POS (Point of Sale) demominata XtumbleRetail e devo creare l’applicazione launcher della…
Leggi tutto
Impostazione credenziali in linea:
|
1 2 3 4 5 6 7 8 9 10 |
if (mUsername <> '') and (mPassword <> '') then begin LCredentials := TCredentialsStorage.TCredential.Create (TAuthTargetType.Server, '', mURL, '', ''); LCredentials.Username := mUsername; LCredentials.Password := mPassword; NetHTTPClient1.CredentialsStorage.AddCredential(LCredentials); NetHTTPClient1.UseDefaultCredentials := false; end; |
Oppure con l’associazione all’evento di autenticazione della classe:
|
1 2 3 4 5 6 7 8 |
procedure TForm3.NetHTTPClient1AuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword: string; var AbortAuth: Boolean; var Persistence: TAuthPersistenceType); begin APassword := 'pippo'; AUserName := 'pluto'; end; |
If you purchased an IBTogo License, to use it inside you program you need to do : On Android / IOS : go to: https://reg.embarcadero.com/srs6/activation.do Insert your license code and serial and you can get reg_ibtogo.txt, after that you put this file in deployment of your project and the destiniation dir need to be /
In linux every adapter configuration has a file system path, for example the adapter eth0 has all configuration, in some text files located in “/sys/class/net/eth0/”. The file whose name is “address” contains a single line with the mac adrress value.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
function GetLinuxMacAddress(device_name : String): string; const linux_path = '/sys/class/net/%s/address'; var f : textfile; device, path, addr : string; begin Result := ''; path := Format(linux_path,[device_name]); if (not FileExists(path)) then begin Result := ''; end else begin AssignFile(f, path); reset(f); readln(f, addr); closefile(f); Result := addr; end; end; |
In Synaptica la sostenibilità e il basso impatto ambientale sono dei valori fondamentali condivisi naturalmente da tutti noi. La passione per la natura, gli animali e l’ambiente ci hanno indotto sempre a mantenere un occhio di riguardo nei confronti dell’impatto ambientale causato dalle ns attività. Questa visione ci ha portato anche a fare scelte inizialmente…
Leggi tutto
|
1 2 3 4 5 6 7 8 9 |
TMiaStruttura = record case integer of 0 : (content : array[0..19] of char); 1 : ( primidue : array[0..1] of char; dalduealquattro : array[0..1] of char; cognome : array[0..15] of char; ) end; |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TForm7.Button1Click(Sender: TObject); begin a.content := '0123456789ABCDEFGHIL'; ShowMessage(a.dalduealquattro); a.dalduealquattro := 'BB'; ShowMessage(a.content); end; |
thank’s to my self obviusly
