delphi-10.4-sydney

问题 In a Delphi 10.4 VCL Application, I need to detect when the FORM RESIZING ENDS . (E.g. after the user resized the Form by dragging its size-grip). So I have placed a TApplicationEvents component on the form and created its OnMessage event-handler, trying to catch the WM_EXITSIZEMOVE message: procedure TformMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.Message = WM_EXITSIZEMOVE) then begin CodeSite.Send('TformMain.ApplicationEvents1Message: WM

问题 Why are some properties repeated (such as Action and Align ) where others are not ( AlignWithMargins ) when TRttiContext.GetType is called on a VCL Control? uses System.RTTI, System.Generics.Collections, System.Generics.Defaults; //.... procedure TForm11.btnShowPropertiesClick(Sender: TObject); var R: TRttiContext; Props: TArray<TRttiProperty>; Prop : TRttiProperty; begin memo1.Clear; R := TRttiContext.Create; Props := R.GetType(Sender.ClassType).GetProperties; //Sort properties by name

问题 Why are some properties repeated (such as Action and Align ) where others are not ( AlignWithMargins ) when TRttiContext.GetType is called on a VCL Control? uses System.RTTI, System.Generics.Collections, System.Generics.Defaults; //.... procedure TForm11.btnShowPropertiesClick(Sender: TObject); var R: TRttiContext; Props: TArray<TRttiProperty>; Prop : TRttiProperty; begin memo1.Clear; R := TRttiContext.Create; Props := R.GetType(Sender.ClassType).GetProperties; //Sort properties by name

问题 Why are some properties repeated (such as Action and Align ) where others are not ( AlignWithMargins ) when TRttiContext.GetType is called on a VCL Control? uses System.RTTI, System.Generics.Collections, System.Generics.Defaults; //.... procedure TForm11.btnShowPropertiesClick(Sender: TObject); var R: TRttiContext; Props: TArray<TRttiProperty>; Prop : TRttiProperty; begin memo1.Clear; R := TRttiContext.Create; Props := R.GetType(Sender.ClassType).GetProperties; //Sort properties by name

问题 With a dynamically created TFDQuery , TClientDataSet , and TDataSetProvider I bump into the "Missing data provider or data packet" with this code: procedure ResetSavedPasswords(ADataModuleDataBaseAdmin : TDataModuleDataBaseAdmin); var lQuery : TFDQuery; lCDS : TClientDataSet; lProvider : TDataSetProvider; begin lFrmBezig := TFormBezig.Create(nil); lQuery := TFDQuery.Create(nil); lProvider := TDataSetProvider.Create(Application); lCDS := TClientDataSet.Create(nil); try lQuery.Connection :=

来源： https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception

来源： https://stackoverflow.com/questions/63430436/i-get-an-error-403-with-my-delphi-webdav-program-nor-carotdav-client-works-fine

问题 In Delphi 10.4, I have sucessfully saved a valid TPicture base64-encoded to an INI file, using this code: procedure TForm1.SavePictureToIniFile(const APicture: TPicture); // https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception var LInput: TMemoryStream; MyIni: TMemIniFile; Base64Enc: TBase64Encoding; ThisFile: string; begin if FileSaveDialog1.Execute then ThisFile := FileSaveDialog1.FileName else EXIT; //CodeSite.Send('TForm1.btnSaveToIniClick: VOR

问题 In Delphi 10.4, I try to save a valid TPicture compressed to an INI file, trying to replicate the ZLibCompressDecompress example from the documentation: procedure TForm1.SavePictureToIniFile(const APicture: TPicture); // https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception var LInput: TMemoryStream; LOutput: TMemoryStream; MyIni: System.IniFiles.TMemIniFile; ThisFile: string; LZip: TZCompressionStream; begin if FileSaveDialog1.Execute then ThisFile :=

问题 In Delphi 10.4, I try to save a valid TPicture compressed to an INI file, trying to replicate the ZLibCompressDecompress example from the documentation: procedure TForm1.SavePictureToIniFile(const APicture: TPicture); // https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception var LInput: TMemoryStream; LOutput: TMemoryStream; MyIni: System.IniFiles.TMemIniFile; ThisFile: string; LZip: TZCompressionStream; begin if FileSaveDialog1.Execute then ThisFile :=