delphi-xe7

Delphi Android Solution / ARM7 with NEON marketshare? [closed]

本小妞迷上赌 提交于 2019-12-02 13:35:23
When developing an app for Android using Delphi I need to know the market share it supports (for a customer) The version requirements is okay ~roughly 99% af active phones: http://en.wikipedia.org/wiki/Android_version_history But what is the marketshare of current Android telehpones in current use (or sold the last 3 or 4 years) that has ARM7+NEON? And is there any way to e.g. run Delphi apps on Android without NEON? Delphi currently produces applications that can only run on ARMv7 + NEON processors. There is no way around that limitation. There is QC report for supporting processors without

How to get the data from a ShellLink even when the Link Target does not exist anymore?

*爱你&永不变心* 提交于 2019-12-02 12:24:15
In Delphi XE7, I wanted to use the following code to replace the link target of a shell link file (.lnk), even when the link target does not exist anymore: uses JclShell; ... procedure ShellLinkReplaceLinkTarget(const AShellLinkFile, ANewTarget: string); var ThisShellLink: JclShell.TShellLink; begin if (JclShell.ShellLinkResolve(AShellLinkFile, ThisShellLink, SLR_ANY_MATCH or SLR_NO_UI) = S_OK) then begin ThisShellLink.Target := ANewTarget; JclShell.ShellLinkCreate(ThisShellLink, AShellLinkFile); end else CodeSite.Send('ShellLinkResolve Failed!'); end; Obviously, it is not possible to get the

how do i work with showmodal in FMX?

北战南征 提交于 2019-12-02 10:18:05
i am trying to create a login form to my main android form, so i do something like this var CanGo: Boolean; begin Application.Initialize; Application.CreateForm(TForm1, Form1); loginfrm := Tloginfrm.Create(nil); try loginfrm.ShowModal; CanGo := loginfrm.LoginSuccess = true; finally FreeAndNil(loginfrm); end; if CanGo then Application.Run; end. i been doing this in win32 application and its working just fine , when i try to do the same way on android application stopped on touchscreen and wont show login form , is Show modal is different on android ? what iam doing wrong ? There are lots of

Get First word that contains numbers

孤街浪徒 提交于 2019-12-02 03:14:21
问题 Anyone can help with how can I find the first full Word that contains numbers? I have an adress, for example: procedure TForm1.Button4Click(Sender: TObject); var SourceString : String; strArray : TArray<string>; i : Integer; begin SourceString := 'Saint Steven St 6.A II.f 9'; strArray := SourceString.Split([' ']); for i := 0 to Length(strArray)-1 do showmessage(strArray[i]); end; Result: Saint Steven St 6.A II.f 9 I want to get the first Word that contain number. In the example: '6.A'. Anyone

Reg. the size of Android app in delphi

£可爱£侵袭症+ 提交于 2019-12-02 01:37:55
问题 When i'm generating android application through Delphi Xe7, the App_Name.Apk file 6 MB and when i'm installing in the mobile, the application size is 25 MB. Please provide me the information that there are any other settings to reduce the size of the application size. And in the code i'm having only single form, 6 class declaration. Also i'm using the Release settings which is in the Options (Shift+ctrl+F11). 回答1: Delphi XE7 is a cross platform development tool. The power is in it's cross

Reg. the size of Android app in delphi

試著忘記壹切 提交于 2019-12-02 01:05:24
When i'm generating android application through Delphi Xe7, the App_Name.Apk file 6 MB and when i'm installing in the mobile, the application size is 25 MB. Please provide me the information that there are any other settings to reduce the size of the application size. And in the code i'm having only single form, 6 class declaration. Also i'm using the Release settings which is in the Options (Shift+ctrl+F11). Delphi XE7 is a cross platform development tool. The power is in it's cross platform nature. It provides a framework called Firemonkey that works on all four platforms (Android, IOS, OSX,

Error when creating TRESTClient: “No peer with the interface with guid [{}] has been registered”

元气小坏坏 提交于 2019-12-02 00:35:40
问题 I've created my class to work with REST. I have a problem with TRESTClient component in runtime. TFrwWebServiceREST = class(TInterfacedObject, IRESTWebServiceProxy) private FClientRest: TRESTClient; FRequestRest: TRESTRequest; FResponseRest: TRESTResponse; public constructor Create (AUrl: string); virtual; end; ... constructor TFrwWebServiceREST.Create(AUrl: string); begin FClientRest := TRESTClient.Create (AUrl); //the error occurs here FClientRest.AcceptEncoding := 'UTF-8'; FResponseRest :=

Get First word that contains numbers

你离开我真会死。 提交于 2019-12-02 00:03:49
Anyone can help with how can I find the first full Word that contains numbers? I have an adress, for example: procedure TForm1.Button4Click(Sender: TObject); var SourceString : String; strArray : TArray<string>; i : Integer; begin SourceString := 'Saint Steven St 6.A II.f 9'; strArray := SourceString.Split([' ']); for i := 0 to Length(strArray)-1 do showmessage(strArray[i]); end; Result: Saint Steven St 6.A II.f 9 I want to get the first Word that contain number. In the example: '6.A'. Anyone have an idea how? Test if a string contains a digit by looping of the string and checking each

Error when creating TRESTClient: “No peer with the interface with guid [{}] has been registered”

痴心易碎 提交于 2019-12-01 20:56:41
I've created my class to work with REST. I have a problem with TRESTClient component in runtime. TFrwWebServiceREST = class(TInterfacedObject, IRESTWebServiceProxy) private FClientRest: TRESTClient; FRequestRest: TRESTRequest; FResponseRest: TRESTResponse; public constructor Create (AUrl: string); virtual; end; ... constructor TFrwWebServiceREST.Create(AUrl: string); begin FClientRest := TRESTClient.Create (AUrl); //the error occurs here FClientRest.AcceptEncoding := 'UTF-8'; FResponseRest := TRESTResponse.Create (nil); FResponseRest.ContentEncoding := 'UTF-8'; FRequestRest := TRESTRequest

Why this thread raise exception? [duplicate]

岁酱吖の 提交于 2019-12-01 13:56:42
This question already has an answer here: Delphi: Access Violation at the end of Create() constructor 2 answers i am trying to create a thread in sample project but i got an exception raised here is the sample project code unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TURLDownload = class(TThread) private