Unlike Firebird 2.5, Firebird 3 does not need a different DB connection library. In Windows, until today to distribute embedded Firebird fbembedd.dll was used instead of fbclient.dll, now with Firebird 3.0 fbclient.dll is always used both for the connection to a Firebird server and for the management of embedded / local DBs. In firebird the…
Read more
Xtumble library for Delphi Xtumble4Delphi is native delphi library, cross platform ( Windows, Android, iOS, macOSX, Linux64) that allow you to integrate all cloud functonalitty of the XTumble platform in your application. If you create an XTumble Account you can have a dedicated ERP, e-commerce, Cluod Drive, CRM Mail with SMTP and POS system in the cluod. Creating an…
Read more
First method:
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; |
Second one:
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; |
PreemptiveAuthentication: Generally, when the server receives the request, it replies that it needs a user and password to access it, so your basic authentication works. There are cases in which the server is configured to accept only calls that in the first instance send the authentication data.…
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.
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; |
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