https://docs.microsoft.com/en-us/windows/win32/seccrypto/signtool Create self signed certificate (PTX) in one minute with Delphi: http://docwiki.embarcadero.com/RADStudio/Sydney/en/Creating_a_Certificate_File Deploy your app on Microsoft Store: http://docwiki.embarcadero.com/RADStudio/Sydney/en/Preparing_a_Windows_Application_for_appx_Package_Distribution Sign your installer with your self-signed certificate: https://revolution.screenstepslive.com/s/revolution/m/10695/l/563371-signing-installers-you-create-with-inno-setup Create a verified certificate: https://docs.microsoft.com/it-it/mem/configmgr/mdm/deploy-use/create-pfx-certificate-profiles
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
SmartFB is our internal tool to manage Firebird & Interbase databases, so we use smartFB instead IBExpert. SmartFB is a simple VCL program that we use to have an access to our databases in every PC and Virtual Machines where we not need a simple access to our databases. So we integrate in smartFB some…
Read more
With FMXLinux and the latest versions of Delphi it is very easy to build a Linux application. The object of this post is to create a desktop icon and a favorite to make your application launchable from the gnome desktop. In my case I have created a POS (Point of Sale) application demominated XtumbleRetail and…
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
