Impostazione credenziali in linea: 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: procedure TForm3.NetHTTPClient1AuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword:…
Leggi tutto
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. function GetLinuxMacAddress(device_name : String): string; const linux_path = ‘/sys/class/net/%s/address’; var f : textfile; device, path,…
Leggi tutto
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
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; 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
Manage a System.string as buffer to copy content of string into a generic TStream: Stream.Write(Str[1], StrLen * SizeOf(Str[1]));
