Search the Community

unit Unit2; interface uses System.Classes; type TTestClass = class public procedure Test<T: record>; end; implementation //procedure TTestClass.Test<T: record>; //begin // [dcc32 Error] Unit2.pas(21): E2029 ',', ';' or '>' expected but ':' found //end; procedure TTestClass.Test<T>; begin end; end. Delphi 11.3 Why do I need to leave out : record in the implementation for the code to compile?

Hi. I'm trying getting permission from Android in my app, i'm using standart code for this: procedure TForm1.GetPermission; begin if not PermissionsService.IsPermissionGranted(JStringToString(TJManifest_permission.JavaClass.VIBRATE)) then PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.VIBRATE)], procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) begin if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then ShowMessage('Access granted') else ShowMessage('Access denied'); end); end; But that not works. My app not asking permission on the launch this code, it just sending message 'Access denied'. What's wrong and how fix it? Also, when i'm using this code for getting permission WRITE_EXTERNAL_STORAGE, all working right.

im getting this error i have traced it to a small block of code by IBX that sets the sqlda_version to 2 how can i set it to 1 so i dont have to do a major refactor just yet i can see that the header sets it to a const im hoping for a solution that doesn't involve massive restructuring yet maybe i have to opt for a interbase alternative though Im googling i just thought i might ask

I tested Kastri-master\Demos\AdMob. Advertising works perfectly in both iOS and Android! But when I try to use this mechanism in my iOS application, the application does not start (crashes on startup) Everything works well under Android. After a long search for the error, it turned out that the culprit is the unit FireDAC.Phys.SQLiteWrapper.Stat, which is used in my application! I can’t give up the unit FireDAC.Phys.SQLiteWrapper.Stat, since I’ll have to rewrite everything. The problem is described in https://en.delphipraxis.net/topic/6440-firebase-adertising-problem-after-ios-14/ and the same thing happens to me How to check (see the error): If you add the unit FireDAC.Phys.SQLiteWrapper.Stat to Kastri-master\Demos\AdMob\Unit1.pas, the iOS application does not launch (crashes on startup) Are there ways to fix the error?

Hi, Is it possible to migrate an app at Delphi 11 to Google Play v6? Or do I need to upgrade my Delphi version 12.1? Thanks.

Hello everyone, I am in the process of converting an old project from Bde to Firedac. Basically it's relatively easy, but now I'm at a point where I'm a bit desperate. With the Bde, TDatabase and TTable/TQuery components, I had set up a central connection in my main program and opened all the necessary TTable tables. Now DLLs of the program (dynamically loaded with LoadLibrary) could call a function in the central location (export method) and, for example, fetch a TTable object corresponding to a specific table. Regardless of whether the design is good or bad, it worked without any problems. We used "ShareMem" in the main application and all the DLLs. I then had access to the tables of the main program in the DLL and could, for example, call FindKey to jump to a specific position in the DB. With Firedac I left everything as it was, only instead of TDatabase I used TFDConnection and accordingly TFDTable etc. The code is definitely correct, I can connect and display the data in the Dbgrid. FindKey from the main program also works. Nevertheless, I always get false with FindKey from the DLL after I have fetched the TFDTable. Does anyone have any experience with this? Could it be that the connection does not arrive correctly in the DLL when I get the TFDTable object? On the other hand, something like fdtable.fieldbyname(...) works without problems from the DLL. So I don't understand why FindKey doesn't work. It is also the same TFDTable object that I get back from my main application, indexfieldnames is also correct, table and connection are open and everything. Nevertheless it does not work. Would be grateful for a hint, especially since it works with TTable. I hope I was able to explain the problem. FindKey was just an example, I´m not sure, if other methods called in the dll work properly either. The Idea behind this concept is that we have a central place and all DLLs have access to the main tables and can change the cursor position of the table or can be updated when another DLL changes the position of a table, because they all use the same tables from the main application. Is there a better concept for this in FireDac with DLLs? Or do I need to create methods in my main application for Table updates or methods like "FindKey" which can be called from the DLLs? That would be a huge refactoring and I want to avoid this! Thanks a lot!

hello every one i developped an application with delphi 10.4.2 that use ds proovider connexion to retreview data from a server buy when i opened my project on delphi 11 it won't compile, and the error is : "[DCC fatal Error ] TabbedFormwithNavigation.pas(15): F2051 the unit Data.SqlExpr was compiled with a diferent version System.SysUtils.FreeAndNil" and it point in Datasnap.DSConnect event if i create a new project and i put dsproviderconnection the same probleme is shown any one for help Thank you

I am using Delphi 11.2 (Patch 1) on Windows 11 (22H2): A few weeks ago, I added a check to our software to be able to verify against a time server independently of the rest of the system, as our customers had issues with internal network time synchronization in the past. Since Sunday, we "suddenly" have a one-hour deviation. Last weekend we went back from UTC+2 to UTC+1. I have simplified it to the most basic test possible, just a form with a TIdSNTP component and an edit box to enter the server. And even then, I still get a time that is exactly one hour in the future. Have I overlooked something? Since we are now on "standard time," I would have expected there to have been problems during development and testing in the past weeks. IdSNTP1.Host:=LabeledEdit1.Text; memo1.Lines.Add('Server: '+LabeledEdit1.Text+' Internet time: '+DateTimeToStr(IdSNTP1.DateTime)+' Local time: '+datetimetostr(now)); The result is:

Hi everyone, i need to ask the permissions to read the notifications on the device, but i can't find the correct way to do it, in the project options i selected the "Bind notification listner service" permission. The code I use is this: uses ... Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Provider, Androidapi.Helpers, Androidapi.JNI.JavaTypes, System.StrUtils ... procedure TFormTestPerm.Button1Click(Sender: TObject); //to show the permissions dialog VAR LIntent : JIntent; begin LIntent := TJIntent.Create; LIntent.setAction(TJSettings.JavaClass.ACTION_NOTIFICATION_LISTENER_SETTINGS); TAndroidHelper.Context.startActivity(LIntent); end; procedure TFormTestPerm.Button2Click(Sender: TObject); //to take the test VAR SecureS : JString; NomeAppS : String; begin NomeAppS := JStringToString(TAndroidHelper.Context.getPackageName); SecureS := TJSettings_Secure.JavaClass.getString(SharedActivityContext.getContentResolver, StringToJString('enabled_notification_listeners')); If AnsiContainsText(JStringToString(SecureS),NomeAppS) Then Label1.Text := 'SERVICE FOUND!' Else Label1.Text := 'NO SERVICE FOUND'+sLineBreak+'"'+NomeAppS+'"'; end; but my application does not appear in the list. I've found a few solutions on the net that I still can't get to work. Does anyone know the proper way to ask for this type of permission?

This was tested on a clean install of Delphi 11 with November Patch and no 3rd party packages. Firstly I have noticed that Delphi 11 does not do Find Declaration while your project's Release build is activated. I did find a similar bug report on Quality Portal and voted for that as well as have my colleague submit a comment how to reproduce our issue. https://quality.embarcadero.com/browse/RSP-33347 So I am wondering if my next Delphi 11 issue is related to that or maybe I am just missing something. Attached you will find a .zip file containing a bare minimum Package and an Application. In the application the problem is that I cannot do a Find Declaration on the package unit in the uses section or the DoMsg method unless I enable "use debug .dcus" inside the application Debug build config. The package consists only of the TestUnitJ unit and the IDE Paths were setup as follows: Win32-------- Library Path-- D:\Test Package\DCU\Win32\Release Browsing Path-- D:\Test Package\PAS Debug DCU Path-- D:\Test Package\DCU\Win32\Debug I followed the same pattern as I have always done in previous versions of Delphi without having these issues. Test Package and Application.zip

Hi All! Does anyone have a Goolge account login implementation for Delphi 11? Examples like GoogleSignin tweaked for Delphi <11 don't work!