1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
set serveroutput on;declare
v_cResult varchar2(32000);
doc xmldom.DOMDocument;
main_node xmldom.DOMNode;
root_node xmldom.DOMNode;
user_node xmldom.DOMNode;
point_node xmldom.DOMNode;
item_node xmldom.DOMNode;
root_elmt xmldom.DOMElement;
item_elmt xmldom.DOMElement;
item_text xmldom.DOMText;
begin
doc := xmldom.newDOMDocument;
DBMS_XMLDOM.setVersion(doc, '1.0');
DBMS_XMLDOM.setStandalone(doc, '''yes''');
main_node := xmldom.makeNode(doc);
root_elmt := xmldom.createElement(doc,'MARKERS');
root_node := xmldom.appendChild(main_node,xmldom.makeNode(root_elmt));
item_elmt := xmldom.createElement(doc,'marker');
xmldom.setAttribute(item_elmt,'lat','123');
xmldom.setAttribute(item_elmt,'lng','123');
user_node := xmldom.appendChild(root_node,xmldom.makeNode(item_elmt));
item_elmt := xmldom.createElement(doc,'message');
item_node := xmldom.appendChild(user_node,xmldom.makeNode(item_elmt));
item_text := xmldom.createTextNode(doc,'mon message');
item_node := xmldom.appendChild(item_node,xmldom.makeNode(item_text));
item_elmt := xmldom.createElement(doc,'zone');
xmldom.setAttribute(item_elmt,'type','multipoint');
xmldom.setAttribute(item_elmt,'lineColor','#0033FF');
xmldom.setAttribute(item_elmt,'lineWidth','1');
xmldom.setAttribute(item_elmt,'lineOpacity','1');
xmldom.setAttribute(item_elmt,'fillColor','#0000FF');
xmldom.setAttribute(item_elmt,'fillOpacity','0.1');
-- 1. pour le </zone>
item_node := xmldom.appendChild(user_node,xmldom.makeNode(item_elmt));
item_text := xmldom.createTextNode(doc,'');
item_node := xmldom.appendChild(item_node,xmldom.makeNode(item_text));
-- 2. pour l'erreur
item_elmt := xmldom.createElement(doc,'aa');
item_node := xmldom.appendChild(user_node,xmldom.makeNode(item_elmt));
DBMS_XMLDOM.writeToBuffer(doc, v_cresult);
dbms_output.PUT_LINE(substr(v_cResult,1,32000));
xmldom.freeDocument(doc);
end; |
Partager