![Delphi-PRAXiS [en]](https://en.delphipraxis.net/uploads/monthly_2018_12/logo.png.be76d93fcd709295cb24de51900e5888.png){kind=logo}
AndrewHoward
-
Content Count
34 -
Joined
-
Last visited
Posts posted by AndrewHoward
-
-
Hi All,
How do I import this WSDL: ?
http://www.onvif.org/ver20/ptz/wsdl/ptz.wsdlI'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
-
On 7/26/2023 at 5:11 PM, Remy Lebeau said:This is documented in Embarcadero's DocWiki: Nested Type Declarations
Thank you very much.
-
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. -
Hi all,
How do I get list bluetooth devices ?
Thanks
-
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 typeDoesn't it require a matching "end" ?
Thanks
-
That works! Thank you.
-
3 hours ago, Remy Lebeau said:That line should be this instead:
MyXMLDocument.DocumentElement.DeclareNamespace('', 'MyString');
Which is equivalent to this:
MyXMLDocument.DocumentElement.SetAttributeNS('xmlns', 'http://www.w3.org/2000/xmlns/', 'MyString');
The DeclareNamespace() documentation does not mention that the Prefix parameter can be a blank string, but it is actually supported.
This will treat the attribute as an actual namespace declaration in the DOM, even though it doesn't have a prefix assigned. It should also assign the 'MyString' namespace to the DocumentElement since that element doesn't have a prefix assigned, either.
You are creating the element, but you are not assigning any text to it, which is why the element appears as </founder>. You need to add this after calling AddChild():
FounderNode.Text := 'Krishna';
Also, you may or may not need to specify the desired namespace when calling AddChild(), as well (this part I always forget about when exactly a namespace should be specified and when it can be inherited from the parent element - once you start dealing with namespaces in XML, you will find that you need to specify namespaces in add/insert and search operations more often than not):
FounderNode := MyXMLDocument.DocumentElement.AddChild('founder', 'MyString');
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.
-
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.
-
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
-
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,
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.
-
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|"]{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 -
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.dprIf 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 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
-
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,
According to this website, it should work for Dephi Belin version too.
https://www.caseagainstfaith.com/using-raize-components.htmlBut 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.
-
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.resThanks
-
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:
-LUDclStdAnd %ND_RegFile% evaluates to:
RaizeComponentsVcl_Reg.pasDoes 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.
-
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,
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
Can I use managed C# DLL in unmanaged Delphi application ?
in General Help
Posted
Can I use managed C# DLL in unmanaged Delphi application ?
Thanks