delphi - Reading distinct values from XML using XPath -


i have xml in following format:

<accounts>    <account number="1"   debitamount="1000" amount="2827561.95" />     <account number="225" debitamount="2000"  amount="12312.00" />     <account number="236" debitamount="london"    amount="457656.00" />     <account number="225" debitamount="london"    amount="23462.40" />     <account number="236" debitamount="bangalore" amount="2345345.00" />  </accounts>

how retreive unique account numbers using xpath? ie, want values 1, 225 , 236.

this did:(i'm using delphi 2007...)

const xmlstr = ' <accounts>    <account number="1"   debitamount="1000" amount="2827561.95" />     <account number="225" debitamount="2000"  amount="12312.00" />     <account number="236" debitamount="london"    amount="457656.00" />     <account number="225" debitamount="london"    amount="23462.40" />     <account number="236" debitamount="bangalore" amount="2345345.00" />  </accounts>';   function getaccountnumbers:tlist;  var    xmldomdocument  : ixmldomdocument;    accounts : ixmldomnodelist;   accountdetail :ixmldomnode;    i:integer    list :tlist  begin    result:=tlist.create;    xmldomdocument:=codomdocument.create;    xmldomdocument.loadxml(xmlstr);    accounts:= xmldomdocument.selectnodes(''./accounts    /account[not(@number=preceding-sibling/ account /@number)]');   := 0 accountdetails.length - 1 begin      accountdetail := accountdetails.item[i];      //omitting "<>nil" checks...      list.add(accountdetail.attributes.getnameditem('number').nodevalue;   end;  end;

but returns no nodes(accountdetails.length=0). please let me know missing here.

thanks,

pradeep

it seems version of msxml delphi 2007 doesn't support xpath axis. if decide use following code, import either microsoft xml, v3.0 or microsoft xml, v6.0 type library first , try this:

unit unit1;  interface  uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, stdctrls, msxml2_tlb;  type   tform1 = class(tform)     button1: tbutton;     procedure button1click(sender: tobject);   private     { private declarations }   public     { public declarations }   end;  var   form1: tform1;  implementation  {$r *.dfm}  const   xmlstring =     '<accounts>' +     '<account number="1" debitamount="1000" amount="2827561.95"/>' +     '<account number="225" debitamount="2000"  amount="12312.00"/>' +     '<account number="236" debitamount="london" amount="457656.00"/>' +     '<account number="225" debitamount="london" amount="23462.40"/>' +     '<account number="236" debitamount="bangalore" amount="2345345.00"/>' +     '</accounts>';  type   tintegerarray = array of integer;  function getaccountnumbers(const axmlstring: string): tintegerarray; var   i: integer;   xmldomnodelist: ixmldomnodelist;   xmldomdocument: ixmldomdocument3; begin   xmldomdocument := codomdocument60.create;   if assigned(xmldomdocument) , xmldomdocument.loadxml(axmlstring)   begin     xmldomnodelist := xmldomdocument.selectnodes('/accounts/account[not(@number=preceding-sibling::account/@number)]/@number');     setlength(result, xmldomnodelist.length);     := 0 xmldomnodelist.length - 1       result[i] := xmldomnodelist.item[i].nodevalue;   end; end;  procedure tform1.button1click(sender: tobject); var   s: string;   i: integer;   integerarray: tintegerarray; begin   s := 'account numbers: ';   integerarray := getaccountnumbers(xmlstring);   := 0 length(integerarray) - 1     s := s + inttostr(integerarray[i]) + ', ';   delete(s, length(s) - 1, 2);   showmessage(s); end;  end.

Comments

Post a Comment

Popular posts from this blog

java - Play! framework 2.0: How to display multiple image? -

i need display gallery of photos. here template: @(photos: list[photo]) @title = { <bold>gallery</bold> } @main(title,"photo"){ <ul class="thumbnails"> @for(photo <- photos) { <li class="span3"> <a href="#" class="thumbnail"> <img src="@photo.path" alt=""> </a> </li> } </ul> } and here controller method: public static result getphotos() { return ok(views.html.photo.gallery.render(photo.get())); } and here photo bean : @entity public class photo extends model { @id public long id; @required public string label; public string path; public photo(string path, string label) { this.path = path; this.label = label; } private static finder<long, photo> find = new finder<long, photo>( long.class, photo.class); public static list<phot...
Read more

gmail - Is there any documentation for read-only access to the Google Contacts API? -

i want read-only access user's google contacts. there stackoverflow member wanted this, , received following answer : yes, there is, use https://www.googleapis.com/auth/contacts.readonly scope , "view contacts". this exchange reference read-only access google contacts can find using google. simply using access token obtained attempt read usual google contacts api (i.e. https://www.google.com/m8/feeds ) fails insufficient permissions. similarly, using google contacts api on new target fails 404 errors (for example https://www.googleapis.com/auth/contacts.readonly/default/full ). is there documentation anywhere on how use api, or permissible way access google contacts api full read-write access?
Read more

php - Controller/JToolBar not working in Joomla 2.5 -

relevant code: jtoolbarhelper::custom('savecategories', 'save', '', 'save', false, false); ... <input type="hidden" name="controller" value="easyblogcontroller"> according can dig docs , own previous questions, should call savecategories() function in easyblogcontroller . i've tried setting value easyblog , easyblog.php (file name) current easyblogcontroller (class name). clicking on save button refreshes page. not redirect, echo or var_dump test code put in savecategories() function. var_dump ing jrequest::getvar('controller') , 'task' return correct values. creating controller object , using $controller->execute('task'); works. the values going depend on location of controller trying call, , have couple options here. typically there controller in base folder of component (likely components/com_easyblog) in file called controller.php , class name inside ...
Read more