gioma

So I could start from the Vcl.Direct2D unit to create a unit that uses DirectD2 1.1..mm.. it could be an indea. For now I have done this and it seems to work, but I don't know if I use Direct2D 1.1 at 100% _scale := width / _HostDesktopWidth; IMGpitch:=_HostDesktopWidth*4; if (DesktopFrame=nil) or ( _DesktopFrameRect.right <> _HostDesktopWidth ) or ( _DesktopFrameRect.bottom <> _HostDesktopHeight ) then begin _DesktopFrameRect.left:=0; _DesktopFrameRect.right:=_HostDesktopWidth; _DesktopFrameRect.top:=0; _DesktopFrameRect.bottom:=_HostDesktopHeight; BitmapProp.DpiX := 0; BitmapProp.DpiY := 0; BitmapProp.pixelFormat.Format := DXGI_FORMAT_B8G8R8A8_UNORM; BitmapProp.pixelFormat.AlphaMode := D2D1_ALPHA_MODE_IGNORE; _FD2DCanvas.RenderTarget.CreateBitmap(D2D1SizeU(_HostDesktopWidth, _HostDesktopHeight), _IMGBuffer, IMGpitch, BitmapProp, DesktopFrame); WriteLog('[Paint] CreateBitmap '+intToStr(_HostDesktopWidth)+'x'+intToStr(_HostDesktopHeight) ); end else begin _DesktopFrameRect.left:=0; _DesktopFrameRect.right:=_HostDesktopWidth; _DesktopFrameRect.top:=0; _DesktopFrameRect.bottom:=_HostDesktopHeight; DesktopFrame.CopyFromMemory(_DesktopFrameRect,_IMGBuffer,IMGpitch); end; if _firstRender then begin _ConnectionStartedAt:=GetTickCount; ComputeTransform; _firstRender:=false; end; _FD2DCanvas.RenderTarget.SetTransform(_FTransform); LRect.left:=0; LRect.right:=_HostDesktopWidth; LRect.top:=0; LRect.bottom:=_HostDesktopHeight; (_FD2DCanvas.RenderTarget as ID2D1DeviceContext ).DrawBitmap(DesktopFrame,LRect,1, _InterpolationMode);

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 😞

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 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!

No, I didn't explain myself well, I wanted to change the name that is displayed once the app is installed. On Android it works by changing the "Label" key, while on iOS it should work by changing the "CFBundleDisplayName" key but it doesn't work! https://community.embarcadero.com/article/technical-articles/145-ui/973-how-can-i-change-name-of-firemonkey-mobile-application-to-contain-spaces