First method: 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; Second one: procedure TForm3.NetHTTPClient1AuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword: string; var AbortAuth: Boolean; var Persistence: TAuthPersistenceType); begin…
Read more
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,…
Read more
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
RadStudio 10.4 is a release that promises great things in all areas of this fantastic development environment. Taking a first test run we noticed: In FMX applications we have noticed a noticeable improvement in character rendering The new LSP (language server protocol) system seems to have made the IDE even more fluid and productive during…
Read more
WebSocket is a technology that allows a bidirectional interaction between server and client, you will tell me, nothing new with a socket connection of the 90’s we did the same thing. True!!! The thing that makes this technology very advantageous is that first of all, it implements standards in data transmission and use protocols but…
Read more
