gioma

I use Delphi Alexandria and when compiling the example projects there are many errors due to missing {$IFDEF FPC} and if I set FPC between the conditional defines there are commands that don't exist in Delphi. I use Delphi Alexandria and when compiling the example projects there are many errors due to missing {$IFDEF FPC} and if I set FPC between the conditional defines there are commands that don't exist in Delphi.

Thanks but It doesn't work on Delphi , it needs many corrections 😞

Hi everyone, I'm making an application that communicates between different operating systems. In this case I have to send a character when it is pressed from Windows to MAC. In the Form.OnKeyUp function there is the parameter "key: Word" which represents the character code. If it is not a special character (à, è, ì, ò, ù) this co corresponds to the ASCII code. If, on the other hand, I press the "è" key, the code will be 222 which however does not correspond to its ASCII code and therefore I send wrong information to the MAC which is unable to retrieve the corresponding character. How do I get the exact ASCII code of that character? Thank you all.

You're right! Fixed the error now it works 🤩 : procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var buf:WideChar; KSta:TKeyboardState; begin //initialize TKeyboardState GetKeyboardState(ksta); //limit to 1 the capture lenght into buffer that is wide char ToUnicodeEx( key, 0, ksta, @buf, 1, 0, 0); log.Lines.Add('KeyUp : '+ inttoStr(key)+'='+buf ); end; Now if I press "è" it wrote into TMemo: KeyUp : 186=è Thank you all!

I almost found a solution: procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var buf:WideChar; KSta:TKeyboardState; s:string; begin log.Lines.Add('KeyUp : '+ inttoStr(key) ); Winapi.Windows.ToUnicodeEx( key, 0, ksta, @buf,255, 0, 0); s:=WideCharToString(@buf); log.Lines.Add('KeyUp : '+ s); end; Obviously I will not use it like that, but there is a problem, it goes into exception when it writes the result to the log (TMemo). Even if I levo the last line goes into exception, however the variable s is valued.

Because I need to emulate the Keydown and KeyUp events for every single character pressed.

I use VCL and the App isn't made with Delphi. The purpose is to send the KeyUp and KeyDown events with the char from a Delphi-VCL application to a non-delphi application running on Android, iOS and Mac.

Hello, I am creating a remote control program using the WebRTC. I have a problem, however, when the user I am connected to locks the screen I cannot access the welcome screen. In fact, at that moment, it seems that the streaming of the desktop is interrupted, while the connection between the two clients remains active, so they can exchange messages. Assuming the logged in user knows the access credentials, I'm looking for a way to re-login via the windows API and unlock the screen. It's possible to do it? I tried with LogonUser, but although the result is positive it does not unlock access. Maybe I should try using PostMessage?

ok, I understand the situation! Thank you for the valuable insights, now I'll have some fun! : D

There are remote control programs that let you choose which session to open the connection in, how do they do it?

What do you mean? I don't want to bypass the windows login, but I would like to do it through a program controlled by a user who knows their login credentials.

Hi, I'd like to use custom fonts for my multi-device app. I chose the roboto font, and for Android deploy there is no problem. The problem is with the iOS deploy, I addedd the roboto .ttf files at the Deployment page and I edited the "info.plist.TemplateiOS.xml" adding this section: <key>UIAppFonts</key> <array> <string>Roboto-Black.ttf</string> <string>Roboto-BlackItalic.ttf</string> <string>Roboto-Bold.ttf</string> <string>Roboto-BoldItalic.ttf</string> <string>Roboto-Italic.ttf</string> <string>Roboto-Light.ttf</string> <string>Roboto-LightItalic.ttf</string> <string>Roboto-Medium.ttf</string> <string>Roboto-MediumItalic.ttf</string> <string>Roboto-Regular.ttf</string> <string>Roboto-Thin.ttf</string> <string>Roboto-ThinItalic.ttf</string> </array> However when I install and run the app in the iPhone the app show the default font. What I'm wrong?

Thanks for the hint, I deepen the subject.👍 Of course it wouldn't be bad if someone had already solved it! After all, the community is also useful for this.. 😋

My application not only has administrator privileges, but runs as a System user.

I have installed the patch but nothing changes: [PAClient Error] Error: E0776 2020-12-18 10:22:36.975 xcodebuild[2324:116233] [MT] IDEDistribution: -[IDEDistributionLogging _createLoggingBundleAtPath:]: Created bundle at path '/var/folders/m_/9ddrsvpx4wl6gffm17_2yky40000gn/T/IperiusRemote_2020-12-18_10-22-36.974.xcdistributionlogs'. [PAClient Error] Error: E0776 Exported IperiusRemote to: /Users/imac_enter/PAServer/scratch-dir/Utente-IMAC/IperiusRemote.archive/temp [PAClient Error] Error: E0776 ** EXPORT SUCCEEDED ** I had to use XCode 11 .. 😞

Hi, since I have istalled 10.4.1 I have some problem, first of all I have this problem when i tryn to "manage platforms"..

I have tried to use GetitCmd.exe but I receive this response : GetIt Package Manager - Version 7.0 Copyright (c) 2020 Embarcadero Technologies, Inc. All Rights Reserved. Command failed with 1 exit code! On the Welcome page of Delphi it shows me this message: The Embarcadero GetIt server could not be reached. This has been happening since I installed Sydney 10.4.1

Hi, I need to rotate the screen at runtime when I open a form. Until the release of IOS 13 this code worked perfectly: procedure ChangeOrientation(toOrientation: UIInterfaceOrientation; possibleOrientations: TScreenOrientations); var win : UIWindow; App : UIApplication; viewController : UIViewController; oucon: UIViewController; begin Application.FormFactor.Orientations := []; //Change supported orientations App := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication); win := TUIWindow.Wrap(App.windows.objectAtIndex(0)); //The first Windows is always the main Window App.setStatusBarOrientation(toOrientation); {After you have changed your statusbar orientation set the Supported orientation/orientations to whatever you need} Application.FormFactor.Orientations := possibleOrientations; viewController := TUIViewController.Wrap(TUIViewController.alloc.init);//dummy ViewController oucon := TUIViewController.Wrap(TUIViewController.alloc.init); {Now we are creating a new Viewcontroller now when it is created it will have to check what is the supported orientations} oucon := win.rootViewController;//we store all our current content to the new ViewController Win.setRootViewController(viewController); Win.makeKeyAndVisible;// We display the Dummy viewcontroller win.setRootViewController(oucon); win.makeKeyAndVisible; {And now we Display our original Content in a new Viewcontroller with our new Supported orientations} end; However, since the release of IOS 13 the screen locks on the set orientation but does not rotate. So if I set Landscape orientation the screen remains in Portrait orientation until I physically turn the phone around, at which point it rightly remains locked on that orientation. This is a real disaster because then, until the phone is turned, all the controls ( finger position, object position,..) are wrong.

Hi, I recompiled an FMX project in Delphi 10.4, but I noticed, only for the iOS release that the TRESTClient component is not working well. When I go to execute the Execute method, it does not return the value of the call but the method remains hung. Instead for the Android version everything works correctly. is it a bug? _rRequest.Body.ClearBody; _rRequest.Params.Clear; _rRequest.Method := TRESTRequestMethod.rmGET; _rClient.BaseURL:=_host_url+'/api/gateway/host?id='+fullIdHost; _rClient.Params.Clear; _rRequest.Execute; _statusCode:=_rResponce.StatusCode;

Hi. I have a problem with the app name when I deploy it for iOS. I changed the value of "CFBundleDisplayName" but when the app is installed it takes the "${modulename}" value as its name. What else do I have to do?

ok, I solved. I have created a new project and now it works!

It only worked once, with the Debug version, but then it returned to the initial situation! In my opinion it is a bug ..

I created the project, compiled it and installed it on the phone and by default it took the name of $ {modulename}.I changed the value of CFBundleDisplayName to "Progect Options-> Version Info" with the name I would like it be displayed, but it remains the default one. I checked the .plist file and in fact it is the correct one. I don't know what else to do, I have to distribute but I'm stuck with this s@it.

I did the same thing, it doesn't work. It always install the app named with the value of $ {modulename}. Delphi 10.3.2iOS 13.1 SDKXcode 11.1 😭

I can't change the project name. But anyway according to this delphi guide it is possible to do this: https://community.embarcadero.com/article/technical-articles/145-ui/973-how-can-i-change-name-of-firemonkey-mobile-application-to-contain-spaces The problem is that on Android it works, while on iOS it doesn't. Yet another Delphi bug? Yet the "Info.Plist" file is created well, and the key "CFBundleDisplayName" has the correct value. Except that when you install the app, the project name is displayed as the app name. Other Apps show the name with spaces, I don't understand why I can't do it with my app ... However it is not just the problem of inserting a space, I would like a different name for the app than the project one!