pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Delphi server side support ( binary, soap, xmlrpc ):

Browse Source 
- the Indy http_server compile and works
 - for xml, the Delphi xmldom unit as used ( tested with msxml )

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-13 22:33:55 +00:00
parent 65f4a3dffd
commit 5ce9841611
32 changed files with 1787 additions and 334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
wst/trunk/wst_delphi_xml.pas
View File

@@ -11,12 +11,14 @@ type
TDOMNode = IDOMNode;
TDOMNodeList = IDOMNodeList;
TDOMNamedNodeMap = IDOMNamedNodeMap;
TXMLDocument = IDOMDocument;
TDOMElement = IDOMElement;
function FindNode(ANode : TDOMNode; const ANodeName : string):TDOMNode;
function GetNodeItemsCount(const ANode : TDOMNode): Integer;
function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;
function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload;
function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload;
procedure ReleaseDomNode(ADomNode : IInterface);overload;
procedure ReleaseDomNode(var ADomNode : TXMLDocument);overload;
@@ -65,7 +67,12 @@ begin
end;
end;
function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;
function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload;
begin
Result := ANodeList.length;
end;
function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload;
begin
Result := ANodeList.length;
end;