delphi-10.3-rio

问题 I am new at developing for Android, but not so new on Delphi development though. Anyway I am struggling to get EXIT data from an image (loaded from library) and show that image on the form. Here is my code: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Messaging, {$IF CompilerVersion > 32} System.Permissions, {$ENDIF} Androidapi.JNI.JavaTypes, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdActns, FMX

问题 We have a problem with Datasnap RESTfull, it seem to have an incompatibility between 10.3 Rio and 10.2 Tokyo (and all bellow) about Datasnap RESTfull function implementation. The problem: We have a server, builded with 10.2 currently running and servicing a lot of users. If we update the server with the one compiled with Delphi 10.3 Rio, the current 10.2 client (Win, MacOS, iOS, Android) receive the following error message: Internal: Field FValue cannot be found in type TJSONString. Conversly

问题 I run cmd.exe to move a file with Administrator rights: ThisParams := '/C move ' + '"' + ThisSourceFile + '"' + ' ' + '"' + ATargetFile + '"'; Winapi.ShellAPI.ShellExecute(0, 'runas', 'cmd.exe', PChar(ThisParams), '', Winapi.Windows.SW_HIDE); Unfortunately, ShellExecute always gives back success, regardless of whether the move action was successful or not (the move action would fail for example if the target file exists and it is read-only or if the target disk is write-protected). So how can

问题 I run cmd.exe to move a file with Administrator rights: ThisParams := '/C move ' + '"' + ThisSourceFile + '"' + ' ' + '"' + ATargetFile + '"'; Winapi.ShellAPI.ShellExecute(0, 'runas', 'cmd.exe', PChar(ThisParams), '', Winapi.Windows.SW_HIDE); Unfortunately, ShellExecute always gives back success, regardless of whether the move action was successful or not (the move action would fail for example if the target file exists and it is read-only or if the target disk is write-protected). So how can

问题 I have a component that uses HTTPRio.HTTPWebNode.OnBeforePost that previously used the data parameter, but in version 10.3 of Delphi this parameter was replaced. Before Delphi 10.3: procedure TNotaBlu.BeforePostHTTPRequest(const HTTPReqResp: THTTPReqResp; Client: THTTPClient); var Certificado: ICertificate2; CertContext: ICertContext; PCertContext: Pointer; begin try Certificado := VCertificadoDigital.GetCertificate.DefaultInterface; CertContext := Certificado as ICertContext; CertContext.Get

问题 I have a component that uses HTTPRio.HTTPWebNode.OnBeforePost that previously used the data parameter, but in version 10.3 of Delphi this parameter was replaced. Before Delphi 10.3: procedure TNotaBlu.BeforePostHTTPRequest(const HTTPReqResp: THTTPReqResp; Client: THTTPClient); var Certificado: ICertificate2; CertContext: ICertContext; PCertContext: Pointer; begin try Certificado := VCertificadoDigital.GetCertificate.DefaultInterface; CertContext := Certificado as ICertContext; CertContext.Get

问题 After attaching the second database I tried to insert and update data in the table of the first database using ON CONFLICT(id) DO UPDATE. Field id is the primary key for the first table. FDQuery1.EXECSQL('ATTACH ''D:\Update2019.DB'' AS DBUpdate'); FDQuery1.SQL.Text:= 'INSERT INTO acts (id,title) SELECT id,title FROM DBUpdate.acts'+ ' WHERE (DBUpdate.acts.id >100)'+ ' ON CONFLICT(id) DO UPDATE SET'+ ' title=excluded.title;' FDQuery1.ExecSQL; I get error message: "ERROR near "ON":syntax error"

问题 I have a project that I once created in Delphi Seattle and I would now like to move to Delphi Rio. I read the directory structure on an external SD-Card using findfirst/findnext i := findfirst(datadir + '*', faanyfile, ts); datadir variable contains a valid directory. On Seattle, the code works fine (return value i=0) and the first directory entry is returned in variable ts. Now, compiling the same code on Rio, I get a return error value i=13 (access denied). The permission READ_EXTERNAL

问题 I'm trying follow what was suggested in this answer, changing this part of Vcl.Forms.pas : procedure TCustomForm.CreateWindowHandle(const Params: TCreateParams); var CreateStruct: TMDICreateStruct; NewParams: TCreateParams; begin if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then begin {if (Application.MainForm = nil) or (Application.MainForm.ClientHandle = 0) then raise EInvalidOperation.Create(SNoMDIForm);} with CreateStruct do begin szClass := Params.WinClassName;

问题 I'm trying implement a example of Client > Server where the Client must be able to send frames of a live webcam. In my tests the Client is sending fine, but on Server side i'm not receiving any frame, only the total of bytes sent and the lines after of: if Stream.Size = stSize then never are executed. Someone know why this is happening? probably because is a big flux of data being received? This is my code: Server: unit Server; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils,