AndrewHoward

Hi, Could someone explain this code: type TDataContainer = class public type TIterateAction = reference to procedure (value: integer); strict private FData: TArray<integer>; FIndex: integer; public constructor Create(const data: TArray<integer>); procedure Iterate(action: TIterateAction); function GetFirst(var value: integer): boolean; function GetNext(var value: integer): boolean; end; I don't understand the role of "type" after public and before the anonymous method type declaration? public type Doesn't it require a matching "end" ? Thanks

Can I use managed C# DLL in unmanaged Delphi application ? Thanks

Hi All, How do I import this WSDL: ? http://www.onvif.org/ver20/ptz/wsdl/ptz.wsdl I'd like to import it using Delphi Tokyo. I tried File -> New -> Other -> WSDL Importer -> enter the above link but I get an error. TIA

Hi all, I'd like to use Delphi to access & control IP-cameras with the Onvif protocol. Can anyone help me with guidance notes & examples ? I'm using Delphi 10.2 Thank you.

Thank you very much.

Hi all, How do I get list bluetooth devices ? Thanks

How can I generate this XML ? I am interested in the ab node & the xsi, xsd & MyString <?xml version="1.0"?> <ab xmlns:xsi="https://www.guru99.com/XMLSchema-instance" xmlns:xsd="https://www.guru99.com/XMLSchema" xmlns="MyString"> <founder>Krishna</founder> </abt> This is what I tried: procedure TForm1.Button11Click(Sender: TObject); var MyXMLDocument : IXMLDocument; FounderNode : IXMLNode; begin MyXMLDocument := TXMLDocument.Create(nil); MyXMLDocument.Active := true; MyXMLDocument.DocumentElement := MyXMLDocument.CreateNode('ab', ntElement,''); MyXMLDocument.DocumentElement.DeclareNamespace('xsi', 'https://www.guru99.com/XMLSchema-instance'); MyXMLDocument.DocumentElement.DeclareNamespace('xsd', 'https://www.guru99.com/XMLSchema'); MyXMLDocument.DocumentElement.SetAttributeNS('xmlns', 'MyString',''); FounderNode := MyXMLDocument.DocumentElement.AddChild('founder'); MyXMLDocument.SaveToFile('TestOne01.XML'); MyXMLDocument.Active := false; end; This is what I'm getting: <ab xmlns:xsi="https://www.guru99.com/XMLSchema-instance" xmlns:xsd="https://www.guru99.com/XMLSchema" xmlns=""> <founder/> </ab> why xmlns="MyString" isn't being generated ? Why this is missing ? <?xml version="1.0"?> Thank you

That works! Thank you.

Is it possible to get exactly this:? <?xml version="1.0"?> <ab xmlns:xsi="https://www.guru99.com/XMLSchema-instance" xmlns:xsd="https://www.guru99.com/XMLSchema" xmlns="MyString"> <founder>Krishna</founder> </ab> I tried different things but I couldn't get this line without xmlns="" : <founder>Krishna</founder>

This is what I'm getting: <?xml version="1.0"?> <ab xmlns:xsi="https://www.guru99.com/XMLSchema-instance" xmlns:xsd="https://www.guru99.com/XMLSchema" xmlns="MyString"> <founder xmlns="">Krishna</founder> </ab> Is it possible to have the same as above but the founder node like this:? <founder>Krishna</founder> Thank you.

Hello, Does anyone have an example on how to validate an XML using an XSD file in Delphi ? I would like to get data from database & build an XML which needs to be valid. Thank you.

Thank you.

Thank you. This is what I got: <?xml version="1.0"?> <ab xmlns:xsi="https://www.guru99.com/XMLSchema-instance" xmlns:xsd="https://www.guru99.com/XMLSchema" xmlns="MyString"> <founder xmlns="">Krishna</founder> </ab> How to get rid of xmlns="" in <founder xmlns="">Krishna</founder> Thank you.

Hi, This code validates XML against XSD but it returns the first error. How can I make it return all erros in XML in one go ? Thank you. function TXmlValidator.ValidateXml(const XmlFileName: string; const SchemaCollection: IXMLDOMSchemaCollection2): Boolean; var XmlDocument: IXMLDOMDocument3; parseError: IXMLDOMParseError; begin XmlDocument := TmsxmlFactory.CreateXMLDOMDocument3WithValidateOnParseFromFile(XmlFileName); XmlDocument.schemas := SchemaCollection; parseError := XmlDocument.validate(); FValidationResult := TXMLDOMParseErrorToString.ToString(parseError); Result := ValidationResult = NullAsStringValue;; end;

That's very helpful. Thank you very much ZDeveloper. Could you tell me what's the defenition of this type: IXMLFLK_PType Thanks again.

Hello, I would like to get data from a sql db, go through data and generate XML file. The XML needs to be valid when checkeck against XSD schema. If I had a list of users: UserID, Name ------ ---- 01 David 02 Test1 How do I validate user Names against XSD rule: e.g. <xs:element name="Name" minOccurs="1"> <xs:simpleType> <xs:restriction base="xs:string"> <xs:pattern value="[^0-9\r\n|&quot;]{1,50}"/> </xs:restriction> </xs:simpleType> </xs:element> I have about 50 fields & 50 rules. Which is the best way to do this ? Anyone have an example I can look at ? Thank you

Hi, I'm using Delphi 10 Seattle & I'm trying to install JEDI VCL but I'm getting this error: Compiling JediIncCheck... Using Embarcadero RAD Studio 10 Seattle Using search path: C:\Program Files (x86)\Embarcadero\Studio\17.0\lib\win32\release Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. JediIncCheck.dpr(2) Fatal: F2048 Bad unit format: 'C:\Program Files (x86)\Embarcadero\Studio\17.0\lib\win32\release\System.dcu' - Expected version: 32.0, Windows Unicode(x86) Found version: 30.0, Windows Unicode(x86) An error occured while compiling the installer. Installation aborted. This error isn't specific to JEDI as I had a similar error when I was trying to install another third party compoent. I got this error when I run the install.bat. I get something similar when I try to install using the Delphi GetIt manager. What causes the error & how to fix it? Thanks

I found out that version 32.0 comes from this command which needs to be executed when you run Install.bat: "C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\dcc32.exe" -q -w -E..\bin -I..\source\include JediIncCheck.dpr If you run dcc32, this is what you get: C:\Program Files (x86)\Embarcadero\Studio\17.0\bin>dcc32 Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. I still don't know what's causing my error! Can anyone help ? Thanks

I'm definately using Delphi 10 and not 10.2. I think something else is confustion Delphi. I think error is related to library paths or platform variable or BDSLIB variable.

Hi, I'm trying to build an old Delphi project but IDE can't find these units: JvWizard & JvWizardRouteMapList What are they ? Where can I find them ? Thanks

Hi, I'd like to install Raize components 6.1.10 (specifically this version) in Delphi 10 Seattle, does anyone know how ? I have the components & the serials. I know there are newer versions but I need version 6.1.10. Thanks

Hi, According to this website, it should work for Dephi Belin version too. https://www.caseagainstfaith.com/using-raize-components.html But RaizeComponents_LibSuffix.inc file needs to be amended 1st. My files seem to be correct but I still can't get Raize to build using cmd, am I missing something ? I'm still getting the same error: Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. RaizeComponentsVcl_Reg.pas(25) Fatal: E2213 Bad packaged unit format: C:\Program Files (x86)\Embarcadero\Studio\17.0\lib\win32\release\rtl.dcp.System - Expected version: 32.0, Windows Unicode(x86) Found version: 30.0, Windows Unicode(x86) **ERROR** I have attached my RzComps.inc & RaizeComponents_ibSuffix.inc files. Thanks. RaizeComponents_LibSuffix.inc RzComps.inc

I removed everything except pas & dfm files. When I run build sript it complained about RzComps.inc being missing: *************************************************** Building Raize Components 6 *************************************************** #### RAD Studio 10 Seattle : 32-bit ############ Compiling RaizeComponentsVcl_Reg.pas File... Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. RaizeComponentsVcl_Reg.pas(22) Fatal: F1026 File not found: 'RzComps.inc' **ERROR** When I added RzComps.inc back in it gave me the same error: Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. RaizeComponentsVcl_Reg.pas(25) Fatal: E2213 Bad packaged unit format: C:\Program Files (x86)\Embarcadero\Studio\17.0\lib\win32\release\rtl.dcp.System - Expected version: 32.0, Windows Unicode(x86) Found version: 30.0, Windows Unicode(x86) **ERROR** The RzComps.inc file I'm using is attached. These are the contents of the original Raize 6 soure folder: [.] [..] !Build_RC6.cmd RaizeComponentsSplash.res RaizeComponentsVcl.dpk RaizeComponentsVcl.res RaizeComponentsVclDb.dpk RaizeComponentsVclDb.res RaizeComponentsVclDb_Description.inc RaizeComponentsVclDb_Design.dpk RaizeComponentsVclDb_Design.res RaizeComponentsVclDb_Reg.pas RaizeComponentsVcl_16x16.dcr RaizeComponentsVcl_24x24.dcr RaizeComponentsVcl_32x32.dcr RaizeComponentsVcl_Description.inc RaizeComponentsVcl_Design.dpk RaizeComponentsVcl_Design.res RaizeComponentsVcl_Reg.pas RaizeComponents_LibSuffix.inc RzAboutEditor.dfm RzAboutEditor.pas RzAnimtr.pas RzBckgnd.pas RzBHints.pas RzBmpBtn.pas RzBorder.pas RzBtnEdt.pas RzBtnEdt.res RzButton.pas RzButtonEditor.dfm RzButtonEditor.pas RzCaptionEditor.dfm RzCaptionEditor.pas RzCheckGroupEditor.dfm RzCheckGroupEditor.pas RzCheckListEditor.dfm RzCheckListEditor.pas RzCheckListItemForm.dfm RzCheckListItemForm.pas RzCheckListTabStopEditor.dfm RzCheckListTabStopEditor.pas RzChkLst.pas RzCmboBx.pas RzCmboBx.res RzColorNamesEditor.dfm RzColorNamesEditor.pas RzComboBoxEditor.dfm RzComboBoxEditor.pas RzCommon.pas RzCommonBitmaps.pas RzCommonBitmaps.res RzCommonCursors.pas RzCommonCursors.res RzComps.inc RzDBBnEd.pas RzDBChk.pas RzDBCmbo.pas RzDBComboBoxEditor.dfm RzDBComboBoxEditor.pas RzDBDesignEditors.pas RzDBDTP.pas RzDBEdit.pas RzDBGrid.pas RzDBLbl.pRzComps.incas RzDBList.pas RzDBLook.pas RzDBLookupForm.dfm RzDBLookupForm.pas RzDBNav.pas RzDBNav.res RzDBNavEditor.pas RzDBProg.pas RzDBRadioGroupEditor.dfm RzDBRadioGroupEditor.pas RzDBRGrp.pas RzDBSpin.pas RzDBStat.pas RzDBStat.res RzDBTrak.pas RzDesignEditors.pas RzDesignEditors.res RzDlgBtn.pas RzDTP.pas RzEdit.pas RzFilSys.pas RzFilSys.res RzForms.pas RzGrafx.pas RzGrids.pas RzGroupBar.pas RzGroupBarEditor.dfm RzGroupBarEditor.pas RzImageListEditor.pas RzIntLst.pas RzLabel.pas RzLabelEditor.dfm RzLabelEditor.pas RzLaunch.pas RzLine.pas RzListVw.pas RzLookup.pas RzLookupForm.dfm RzLookupForm.pas RzLstBox.pas RzPanel.pas RzPanelEditor.dfm RzPanelEditor.pas RzPathBar.pas RzPathBarEditor.pas RzPopups.pas RzPrgres.pas RzRadChk.pas RzRadGrp.pas RzRadioGroupEditor.dfm RzRadioGroupEditor.pas RzSelDir.pas RzSelDirForm.dfm RzSelDirForm.pas RzSelectImageEditor.dfm RzSelectImageEditor.pas RzShellConsts.pas RzShellCtrls.pas RzShellDesignEditors.dfm RzShellDesignEditors.pas RzShellDialogs.pas RzShellFolderForm.dfm RzShellFolderForm.pas RzShellIntf.pas RzShellOpenForm.dfm RzShellOpenForm.pas RzShellUtils.pas RzSndMsg.pas RzSplit.pas RzSplit.res RzSplitterEditor.dfm RzSplitterEditor.pas RzSpnEdt.pas RzStatus.pas RzStringListEditor.dfm RzStringListEditor.pas RzStringModule.pas RzSysRes.pas RzTabs.pas RzTabStopEditor.dfm RzTabStopEditor.pas RzToolbarEditor.dfm RzToolbarEditor.pas RzToolbarForm.dfm RzToolbarForm.pas RzToolbarPrefixForm.dfm RzToolbarPrefixForm.pas RzTray.pas RzTreeVw.pas RzTrkBar.pas RzTrkBar.res Thanks RzComps.inc

Hi, I installed Raize 6.1.10. I had to choose XE8 as Seattle option wasn't available. I went to the Raize source folder & updated the build script !Build_RC6.cmd (attached) . When I run the build script I get this error: #### RAD Studio 10 Seattle : 32-bit ############ Compiling RaizeComponentsVcl_Reg.pas File... Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. RaizeComponentsVcl_Reg.pas(25) Fatal: E2213 Bad packaged unit format: C:\Program Files (x86)\Embarcadero\Studio\17.0\lib\win32\release\rtl.dcp.System - Expected version: 32.0, Windows Unicode(x86) Found version: 30.0, Windows Unicode(x86) **ERROR** Press any key to continue . %DCC32% evaluates to "C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\DCC32.exe" -Q -W -H -NSSystem;System.Win;Winapi;Vcl;Vcl.Imaging;Data; -$D- -$L- -$Y- %Options% evaluates to: -LUDclStd And %ND_RegFile% evaluates to: RaizeComponentsVcl_Reg.pas Does anyone know a soultion to this problem? Note: I'd like to use Raize 6.1.10 (specifically this version) with Delphi 10 Seattle. Thanks. !Build_RC6_SND.txt

Hi, I have a Raize components 6.1.10 (with reg keys) & I'd like to install them in Delphi 10 Seattle, does anyone know how ? Thanks