Ir al contenido


Foto

Guardar y abrir datos en VirtualTreeview

Comenzado por monchito_elroro , feb 19 2017 10:33

  • Por favor identifícate para responder
10 respuestas en este tema

#1 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 19 febrero 2017 - 10:33

buenas amigos, tiempo que no les saludos :)

tengo un pequeño problema si me pueden dar la mano.

 

Lo que pasa es que estoy empezando a usar el componente VirtualTreeview como reemplazo al clásico Listview, he comenzado aprendiendo a como agregar datos e íconos, pero quisiera saber como puedo grabar todo lo que tenga en el VirtualTreeview para luego poder abrirlo y seguir trabajando.

 

Le adjunto un proyecto que estoy haciendo.

 

http://www.mediafire...st lazarus 1.7z


  • 0

#2 Gaston

Gaston

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 mensajes

Escrito 20 febrero 2017 - 08:31

Hola, al parecer VirtualTreeView tiene un par de eventos para cargar y guardar según la wiki de Free Pascal fijate que tiene un código de ejemplo para guardar en disco y cargar. El ejemplo es largo, busca "Save And Load" en la página, para mi está bien explicado, aunque en inglés.

 

Saludos.


  • 0

#3 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 21 febrero 2017 - 02:22

Gracias amigo por su respuesta, he revisado su link, acabo de hacer unas pruebas pero no se que estoy haciendo mal, pues si logro grabar los datos, pero cuando los quiero abrir me sale el mensaje "El proyecto prueba ha lanzado una excepción de la clase 'External:SIGSEGV", les adjunto el code que uso:


php
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, VirtualTrees, Forms, Controls, Graphics, Dialogs,
  9.   StdCtrls;
  10.  
  11. type
  12.   PData = ^TData;
  13.   TData = record
  14.     Fnombre: String;
  15.     Fapellido: String;
  16.     Fedad: String;
  17.     Ftrabajando: String;
  18.     FImageIndex: Integer;
  19.   end;
  20.  
  21.   { TForm1 }
  22.  
  23.   TForm1 = class(TForm)
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     Button4: TButton;
  28.     ImageList1: TImageList;
  29.     VST: TVirtualStringTree;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure Button3Click(Sender: TObject);
  33.     procedure Button4Click(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  36.       Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  37.       var ImageIndex: Integer);
  38.     procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  39.       Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  40.     procedure VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  41.       Stream: TStream);
  42.     procedure VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  43.       Stream: TStream);
  44.   private
  45.     { private declarations }
  46.   public
  47.     { public declarations }
  48.   end;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.lfm}
  56.  
  57. { TForm1 }
  58.  
  59. procedure TForm1.FormCreate(Sender: TObject);
  60. begin
  61.  
  62. end;
  63.  
  64. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  65.   Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  66.   var ImageIndex: Integer);
  67.   var
  68.     Data: PData;
  69.   begin
  70.     if Column = 1 then
  71.     begin
  72.       Data := VST.GetNodeData(Node);
  73.       ImageIndex := Data^.FImageIndex;
  74.     end;
  75.   end;
  76.  
  77. procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  78.   Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  79.   var
  80.     Data: PData;
  81.   begin
  82.     // si no existen estos codes, el resultado sera el texto    "NODE"
  83.     Data := VST.GetNodeData(Node);
  84.     case Column of
  85.       0: CellText := '';
  86.       1: CellText := Data^.Fnombre;
  87.       2: CellText := Data^.Fapellido;
  88.       3: CellText := Data^.Fedad;
  89.       4: CellText := Data^.Ftrabajando;
  90.       //4: CellText := Data^.FImageIndex;
  91.     end;
  92.   end;
  93.  
  94. procedure TForm1.VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  95.   Stream: TStream);
  96.   var
  97.     Data: Pdata;
  98.     Len: Integer;
  99.   begin
  100.     Data := VST.GetNodeData(Node);
  101.     Stream.read(Len, SizeOf(Len));
  102.     SetLength(Data^.Fnombre, Len);
  103.     Stream.read(PChar(Data^.Fnombre)^, Len);
  104.  
  105.     Stream.read(Len, SizeOf(Len));
  106.     SetLength(Data^.Fapellido, Len);
  107.     Stream.read(PChar(Data^.Fapellido)^, Len);
  108.  
  109.     Stream.read(Len, SizeOf(Len));
  110.     SetLength(Data^.Fedad, Len);
  111.     Stream.read(PChar(Data^.Fedad)^, Len);
  112.  
  113.     Stream.read(Len, SizeOf(Len));
  114.     SetLength(Data^.Ftrabajando, Len);
  115.     Stream.read(PChar(Data^.Ftrabajando)^, Len);
  116.   end;
  117.  
  118. procedure TForm1.VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  119.   Stream: TStream);
  120.   var
  121.      data: Pdata;
  122.      len: Integer;
  123.   begin
  124.   Data := VST.GetNodeData(Node);
  125.   Len := Length(Data^.Fnombre);
  126.   Stream.write(Len, SizeOf(Len));
  127.   Stream.write(PChar(Data^.Fnombre)^, Len);
  128.  
  129.   Len := Length(Data^.Fapellido);
  130.   Stream.write(Len, SizeOf(Len));
  131.   Stream.write(PChar(Data^.Fapellido)^, Len);
  132.  
  133.   Len := Length(Data^.Fedad);
  134.   Stream.write(Len, SizeOf(Len));
  135.   Stream.write(PChar(Data^.Fedad)^, Len);
  136.  
  137.   Len := Length(Data^.Ftrabajando);
  138.   Stream.write(Len, SizeOf(Len));
  139.   Stream.write(PChar(Data^.Ftrabajando)^, Len);
  140.  
  141.   end;
  142.  
  143. procedure TForm1.Button1Click(Sender: TObject);  // botón para agregar datos
  144.   var
  145.   Data: PData;
  146.   Node: PVirtualNode;
  147. begin
  148.   VST.Clear;
  149.   VST.NodeDataSize := SizeOf(TData);
  150.  
  151.   Node := VST.AddChild(nil);
  152.   Data := VST.GetNodeData(Node);
  153.   Data^.Fnombre := 'erick';
  154.   Data^.Fapellido := 'student';
  155.   Data^.Fedad := '18';
  156.   Data^.Ftrabajando := 'si';
  157.   Data^.FImageIndex := 0;
  158.  
  159.   Node := VST.AddChild(nil);
  160.   Data := VST.GetNodeData(Node);
  161.   Data^.Fnombre := 'magui';
  162.   Data^.Fapellido := 'enfermera';
  163.   Data^.Fedad := '25';
  164.   Data^.Ftrabajando := 'no';
  165.   Data^.FImageIndex := 1;
  166.  
  167.   Node := VST.AddChild(nil);
  168.   Data := VST.GetNodeData(Node);
  169.   Data^.Fnombre := 'leo';
  170.   Data^.Fapellido := 'ingenier';
  171.   Data^.Fedad := '30';
  172.   Data^.Ftrabajando := 'si';
  173.   Data^.FImageIndex := 2;
  174.  
  175. end;
  176.  
  177. procedure TForm1.Button2Click(Sender: TObject);  // botón para guardar
  178. begin
  179.   VST.SaveToFile('filename.dat');
  180.  
  181. end;
  182.  
  183. procedure TForm1.Button3Click(Sender: TObject);  // botón para abrir
  184. begin
  185.   VST.LoadFromFile('filename.dat');
  186. end;
  187.  
  188. procedure TForm1.Button4Click(Sender: TObject);
  189. begin
  190.   VST.Clear;
  191. end;
  192.  
  193. end.

Porfavor si me pueden ayudar. :(
 


  • 0

#4 Gaston

Gaston

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 mensajes

Escrito 21 febrero 2017 - 03:33

Me parece que el problema pasa por la primer columna (0) que no estás guardando ni cargando, por eso el error te lo tira al intentar cargar los datos.

 

Saludos.


  • 0

#5 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 21 febrero 2017 - 09:40

acabo de hacer unos ajustes al proyecto y he empezado a usar la column 0, pero me sigue saliendo el error amigo, que podrá ser....

Otra cosa que me di cuenta es que cuando el programa esta activo si guardo y abro sin cerrar el programa entonces si carga la data, pero si guardo luego cierro la app, al momento de volverlo a abrir el programa y de cargar los datos ahí si me sale el error.

 

Les adjunto los codes que acabo de modificar, al igual que con otros code que trate de implementar pero el mismo error.


php
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, VirtualTrees, Forms, Controls, Graphics, Dialogs,
  9.   StdCtrls;
  10.  
  11. type
  12.   PData = ^TData;
  13.   TData = record
  14.     Fnombre: String;
  15.     Fapellido: String;
  16.     Fedad: String;
  17.     Ftrabajando: String;
  18.     FImageIndex: Integer;
  19.   end;
  20.  
  21.   { TForm1 }
  22.  
  23.   TForm1 = class(TForm)
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     Button4: TButton;
  28.     ImageList1: TImageList;
  29.     VST: TVirtualStringTree;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure Button3Click(Sender: TObject);
  33.     procedure Button4Click(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  36.       Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  37.       var ImageIndex: Integer);
  38.     procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  39.       Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  40.     procedure VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  41.       Stream: TStream);
  42.     procedure VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  43.       Stream: TStream);
  44.   private
  45.     { private declarations }
  46.   public
  47.     { public declarations }
  48.   end;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.lfm}
  56.  
  57. { TForm1 }
  58.  
  59. procedure TForm1.FormCreate(Sender: TObject);
  60. begin
  61.  
  62. end;
  63.  
  64. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  65.   Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  66.   var ImageIndex: Integer);
  67.   var
  68.     Data: PData;
  69.   begin
  70.     if Column = 0 then
  71.     begin
  72.       Data := VST.GetNodeData(Node);
  73.       ImageIndex := Data^.FImageIndex;
  74.     end;
  75.   end;
  76.  
  77. procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  78.   Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  79.   var
  80.     Data: PData;
  81.   begin
  82.  
  83.     // si no existen estos codes, el resultado sera el texto    "NODE"
  84.     Data := VST.GetNodeData(Node);
  85.     case Column of
  86.       //0: CellText := '';
  87.       0: CellText := Data^.Fnombre;
  88.       1: CellText := Data^.Fapellido;
  89.       2: CellText := Data^.Fedad;
  90.       3: CellText := Data^.Ftrabajando;
  91.       //4: CellText := Data^.FImageIndex;
  92.     end;
  93.  
  94.   end;
  95.  
  96. procedure TForm1.VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  97.   Stream: TStream);
  98.   var
  99.     Data: Pdata;
  100.     Len: Integer;
  101.   begin
  102.     Data := VST.GetNodeData(Node);
  103.  
  104.         Stream.Read(Len, SizeOf(Len));
  105.   SetLength(Data^.Fnombre, Len);
  106.   Stream.Read(PChar(Data^.Fnombre)^, Len * SizeOf(Data^.Fnombre[1]));
  107.  
  108.       Stream.Read(Len, SizeOf(Len));
  109.   SetLength(Data^.Fapellido, Len);
  110.   Stream.Read(PChar(Data^.Fapellido)^, Len * SizeOf(Data^.Fapellido[1]));
  111.  
  112.       Stream.Read(Len, SizeOf(Len));
  113.   SetLength(Data^.Fedad, Len);
  114.   Stream.Read(PChar(Data^.Fedad)^, Len * SizeOf(Data^.Fedad[1]));
  115.  
  116.       Stream.Read(Len, SizeOf(Len));
  117.   SetLength(Data^.Ftrabajando, Len);
  118.   Stream.Read(PChar(Data^.Ftrabajando)^, Len * SizeOf(Data^.Ftrabajando[1]));
  119.  
  120.  
  121.   // SEGUNDO INTENTO, Obtenido de buscar en la web
  122.   {Stream.Read(Len, SizeOf(Len));
  123.   SetLength(Data^.Fnombre, Len);
  124.   Stream.Read(PChar(Data^.Fnombre)^, Len * SizeOf(Char));
  125.  
  126.   Stream.Read(Len, SizeOf(Len));
  127.   SetLength(Data^.Fapellido, Len);
  128.   Stream.Read(PChar(Data^.Fapellido)^, Len * SizeOf(Char));
  129.  
  130.   Stream.Read(Len, SizeOf(Len));
  131.   SetLength(Data^.Fedad, Len);
  132.   Stream.Read(PChar(Data^.Fedad)^, Len * SizeOf(Char));
  133.  
  134.   Stream.Read(Len, SizeOf(Len));
  135.   SetLength(Data^.Ftrabajando, Len);
  136.   Stream.Read(PChar(Data^.Ftrabajando)^, Len * SizeOf(Char));}
  137.  
  138.  
  139.  
  140.  
  141.     // PRIMER INTENTO, SACADO DE http://wiki.freepascal.org/VirtualTreeview_Example_for_Lazarus
  142.     {Stream.read(Len, SizeOf(Len));
  143.     SetLength(Data^.Fnombre, Len);
  144.     Stream.read(PChar(Data^.Fnombre)^, Len);
  145.  
  146.     Stream.read(Len, SizeOf(Len));
  147.     SetLength(Data^.Fapellido, Len);
  148.     Stream.read(PChar(Data^.Fapellido)^, Len);
  149.  
  150.     Stream.read(Len, SizeOf(Len));
  151.     SetLength(Data^.Fedad, Len);
  152.     Stream.read(PChar(Data^.Fedad)^, Len);
  153.  
  154.     Stream.read(Len, SizeOf(Len));
  155.     SetLength(Data^.Ftrabajando, Len);
  156.     Stream.read(PChar(Data^.Ftrabajando)^, Len);}
  157.   end;
  158.  
  159. procedure TForm1.VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  160.   Stream: TStream);
  161.   var
  162.      data: Pdata;
  163.      len: Integer;
  164.   begin
  165.   Data := VST.GetNodeData(Node);
  166.  
  167. Len := Length(Data^.Fnombre);
  168. Stream.Write(Len, SizeOf(Len));
  169. Stream.Write(PChar(Data^.Fnombre)^, Length(Data^.Fnombre) * SizeOf(Data^.Fnombre[1]));
  170.  
  171. Len := Length(Data^.Fapellido);
  172. Stream.Write(Len, SizeOf(Len));
  173. Stream.Write(PChar(Data^.Fapellido)^, Length(Data^.Fapellido) * SizeOf(Data^.Fapellido[1]));
  174.  
  175. Len := Length(Data^.Fedad);
  176. Stream.Write(Len, SizeOf(Len));
  177. Stream.Write(PChar(Data^.Fedad)^, Length(Data^.Fedad) * SizeOf(Data^.Fedad[1]));
  178.  
  179. Len := Length(Data^.Ftrabajando);
  180. Stream.Write(Len, SizeOf(Len));
  181. Stream.Write(PChar(Data^.Ftrabajando)^, Length(Data^.Ftrabajando) * SizeOf(Data^.Ftrabajando[1]));
  182.  
  183.  
  184.   // SEGUNDO INTENTO, Obtenido de buscar en la web
  185.   {Len := Length(Data^.Fnombre);
  186.   Stream.Write(Len, SizeOf(Len));
  187.   Stream.Write(PChar(Data^.Fnombre)^, Length(Data^.Fnombre) * SizeOf(Char));
  188.  
  189.   Len := Length(Data^.Fapellido);
  190.   Stream.Write(Len, SizeOf(Len));
  191.   Stream.Write(PChar(Data^.Fapellido)^, Length(Data^.Fapellido) * SizeOf(Char));
  192.  
  193.   Len := Length(Data^.Fedad);
  194.   Stream.Write(Len, SizeOf(Len));
  195.   Stream.Write(PChar(Data^.Fedad)^, Length(Data^.Fedad) * SizeOf(Char));
  196.  
  197.   Len := Length(Data^.Ftrabajando);
  198.   Stream.Write(Len, SizeOf(Len));
  199.   Stream.Write(PChar(Data^.Ftrabajando)^, Length(Data^.Ftrabajando) * SizeOf(Char));}
  200.  
  201.  
  202.  
  203.   // PRIMER INTENTO, SACADO DE http://wiki.freepascal.org/VirtualTreeview_Example_for_Lazarus
  204.   {Len := Length(Data^.Fnombre);
  205.   Stream.write(Len, SizeOf(Len));
  206.   Stream.write(PChar(Data^.Fnombre)^, Len);
  207.  
  208.   Len := Length(Data^.Fapellido);
  209.   Stream.write(Len, SizeOf(Len));
  210.   Stream.write(PChar(Data^.Fapellido)^, Len);
  211.  
  212.   Len := Length(Data^.Fedad);
  213.   Stream.write(Len, SizeOf(Len));
  214.   Stream.write(PChar(Data^.Fedad)^, Len);
  215.  
  216.   Len := Length(Data^.Ftrabajando);
  217.   Stream.write(Len, SizeOf(Len));
  218.   Stream.write(PChar(Data^.Ftrabajando)^, Len); }
  219.  
  220.   end;
  221.  
  222. procedure TForm1.Button1Click(Sender: TObject);  // botón para agregar datos
  223.   var
  224.   Data: PData;
  225.   Node: PVirtualNode;
  226. begin
  227.   VST.Clear;
  228.   VST.NodeDataSize := SizeOf(TData);
  229.  
  230.   Node := VST.AddChild(nil);
  231.   Data := VST.GetNodeData(Node);
  232.   Data^.Fnombre := 'erick';
  233.   Data^.Fapellido := 'student';
  234.   Data^.Fedad := '18';
  235.   Data^.Ftrabajando := 'si';
  236.   Data^.FImageIndex := 0;
  237.  
  238.   Node := VST.AddChild(nil);
  239.   Data := VST.GetNodeData(Node);
  240.   Data^.Fnombre := 'magui';
  241.   Data^.Fapellido := 'enfermera';
  242.   Data^.Fedad := '25';
  243.   Data^.Ftrabajando := 'no';
  244.   Data^.FImageIndex := 1;
  245.  
  246.   Node := VST.AddChild(nil);
  247.   Data := VST.GetNodeData(Node);
  248.   Data^.Fnombre := 'leo';
  249.   Data^.Fapellido := 'ingenier';
  250.   Data^.Fedad := '30';
  251.   Data^.Ftrabajando := 'si';
  252.   Data^.FImageIndex := 2;
  253.  
  254. end;
  255.  
  256. procedure TForm1.Button2Click(Sender: TObject);  // botón para guardar
  257. begin
  258.   VST.SaveToFile('filename.dat');
  259.  
  260. end;
  261.  
  262. procedure TForm1.Button3Click(Sender: TObject);  // botón para abrir
  263. begin
  264.   VST.LoadFromFile('filename.dat');
  265. end;
  266.  
  267. procedure TForm1.Button4Click(Sender: TObject);
  268. begin
  269.   VST.Clear;
  270. end;
  271.  
  272. end.

Que podrá ser amigos .... ?
 


  • 0

#6 Gaston

Gaston

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 mensajes

Escrito 22 febrero 2017 - 12:42

  • Save And Load

Simple tree (without column) can be saved and loaded as:

 

Presté atención a esto que dice el ejemplo de la wiki, árbol simple (sin columna), como desconozco el componente no sé si se aplica a tu proyecto.

 

En el segundo intento:


delphi
  1. Stream.Write(PChar(Data^.Fnombre)^, Length(Data^.Fnombre) * SizeOf(Char));

eso de SizeOf(Char) no va, el parámetro debe ser una variable no un tipo.

 

 

Otra cosa que me di cuenta es que cuando el programa esta activo si guardo y abro sin cerrar el programa entonces si carga la data, pero si guardo luego cierro la app, al momento de volverlo a abrir el programa y de cargar los datos ahí si me sale el error.

 

Y será que realmente los carga del archivo? no puede tener una memoria caché? Si bien el código es más que claro, pero bueno, por ahí es una burrada lo que digo, pero hay que encontrarle la vuelta por algún lado. Podrías agregar otro botón que cargue otros datos, para ver si realmente lee y carga del archivo, es decir, probar con dos conjuntos de datos, A y B, iniciar el programa, cargar A, guardar A, cargar B, leer A. Si eso lo hace correctamente, entonces el método funciona y hay que buscar el error por otro lado.

 

O también puede ser algo mucho más sencillo:


delphi
  1. procedure TForm1.Button11Click(Sender: TObject);
  2. begin
  3.   VST.LoadFromFile('C:\vst.dat');
  4. end;

En el ejemplo de la wiki pone el path completo, en tu app no.

 

Saludos.


  • 0

#7 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 22 febrero 2017 - 01:17

Ante todo muchas gracias por su valioso tiempo amigo en ayudarme, le comento que después de tanto buscar y buscarr y luego de haber leido un poco la documentación del componente "VirtualTreeview" he conseguido que el proyecto funcione, le comparto los códigos que use:


php
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, VirtualTrees, Forms, Controls, Graphics, Dialogs,
  9.   StdCtrls;
  10.  
  11. type
  12.   PData = ^TData;
  13.   TData = record
  14.     Fnombre: String;
  15.     Fapellido: String;
  16.     Fedad: String;
  17.     Ftrabajando: String;
  18.     FImageIndex: Integer;
  19.   end;
  20.  
  21.   { TForm1 }
  22.  
  23.   TForm1 = class(TForm)
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     Button4: TButton;
  28.     ImageList1: TImageList;
  29.     VST: TVirtualStringTree;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure Button3Click(Sender: TObject);
  33.     procedure Button4Click(Sender: TObject);
  34.     procedure Button5Click(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure VSTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
  37.     procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
  38.       Column: TColumnIndex);
  39.     procedure VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
  40.     procedure VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  41.       Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  42.       var ImageIndex: Integer);
  43.     procedure VSTGetNodeDataSize(Sender: TBaseVirtualTree;
  44.       var NodeDataSize: Integer);
  45.     procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  46.       Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  47.     procedure VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  48.       Stream: TStream);
  49.     procedure VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  50.       Stream: TStream);
  51.   private
  52.     { private declarations }
  53.   public
  54.     { public declarations }
  55.   end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.lfm}
  63.  
  64. { TForm1 }
  65.  
  66. procedure TForm1.FormCreate(Sender: TObject);
  67. begin
  68.  
  69. end;
  70.  
  71. procedure TForm1.VSTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
  72. begin
  73.   VST.Refresh;
  74. end;
  75.  
  76. procedure TForm1.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
  77.   Column: TColumnIndex);
  78. begin
  79.   VST.Refresh;
  80. end;
  81.  
  82. procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
  83.   var
  84.     Data: PData;
  85.   begin
  86.     Data := VST.GetNodeData(Node);
  87.     if Assigned(Data) then begin
  88.       Data^.Fnombre := '';
  89.       Data^.Fapellido := '';
  90.       Data^.Fedad := '';
  91.       Data^.Ftrabajando := '';
  92.  
  93.     end;
  94.   end;
  95.  
  96. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
  97.   Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
  98.   var ImageIndex: Integer);
  99.   var
  100.     Data: PData;
  101.   begin
  102.     if Column = 0 then
  103.     begin
  104.       Data := VST.GetNodeData(Node);
  105.       ImageIndex := Data^.FimageIndex;
  106.     end;
  107.   end;
  108.  
  109. procedure TForm1.VSTGetNodeDataSize(Sender: TBaseVirtualTree;
  110.   var NodeDataSize: Integer);
  111. begin
  112.   NodeDataSize := SizeOf(TData);    // este es importantisimo sino sale error exception cuando cargamos un archivos grabado antes
  113. end;
  114.  
  115. procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  116.   Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
  117.   var
  118.     Data: PData;
  119.   begin
  120.  
  121.     // si no existen estos codes, el resultado sera el texto    "NODE"
  122.     Data := VST.GetNodeData(Node);
  123.     case Column of
  124.       //0: CellText := '';
  125.       0: CellText := Data^.Fnombre;
  126.       1: CellText := Data^.Fapellido;
  127.       2: CellText := Data^.Fedad;
  128.       3: CellText := Data^.Ftrabajando;
  129.       //4: CellText := Data^.FImageIndex;
  130.     end;
  131.  
  132.   end;
  133.  
  134. procedure TForm1.VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  135.   Stream: TStream);
  136.   var
  137.      data: Pdata;
  138.      len: Integer;
  139.   begin
  140.   Data := VST.GetNodeData(Node);   
  141.   Len := Length(Data^.Fnombre);
  142.   Stream.Write(Len, SizeOf(Len));
  143.   Stream.Write(PChar(Data^.Fnombre)^, Length(Data^.Fnombre) * SizeOf(Char));
  144.  
  145.   Len := Length(Data^.Fapellido);
  146.   Stream.Write(Len, SizeOf(Len));
  147.   Stream.Write(PChar(Data^.Fapellido)^, Length(Data^.Fapellido) * SizeOf(Char));
  148.  
  149.   Len := Length(Data^.Fedad);
  150.   Stream.Write(Len, SizeOf(Len));
  151.   Stream.Write(PChar(Data^.Fedad)^, Length(Data^.Fedad) * SizeOf(Char));
  152.  
  153.   Len := Length(Data^.Ftrabajando);
  154.   Stream.Write(Len, SizeOf(Len));
  155.   Stream.Write(PChar(Data^.Ftrabajando)^, Length(Data^.Ftrabajando) * SizeOf(Char));
  156.  
  157.   // guardamos las imágenes
  158.   Stream.Write(Data^.FImageIndex, SizeOf(Data^.FImageIndex));   
  159.  
  160. End;
  161.  
  162. procedure TForm1.VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  163.   Stream: TStream);
  164.   var
  165.     Data: Pdata;
  166.     Len: Integer;
  167.   begin
  168.     Data := VST.GetNodeData(Node);
  169.   Stream.Read(Len, SizeOf(Len));
  170.   SetLength(Data^.Fnombre, Len);
  171.   Stream.Read(PChar(Data^.Fnombre)^, Len * SizeOf(Char));
  172.  
  173.   Stream.Read(Len, SizeOf(Len));
  174.   SetLength(Data^.Fapellido, Len);
  175.   Stream.Read(PChar(Data^.Fapellido)^, Len * SizeOf(Char));
  176.  
  177.   Stream.Read(Len, SizeOf(Len));
  178.   SetLength(Data^.Fedad, Len);
  179.   Stream.Read(PChar(Data^.Fedad)^, Len * SizeOf(Char));
  180.  
  181.   Stream.Read(Len, SizeOf(Len));
  182.   SetLength(Data^.Ftrabajando, Len);
  183.   Stream.Read(PChar(Data^.Ftrabajando)^, Len * SizeOf(Char));
  184.  
  185.   // cargamos las imágenes
  186.   Stream.Read(Data^.FImageIndex, SizeOf(Data^.FImageIndex));  
  187.  
  188. End;
  189.  
  190. procedure TForm1.Button1Click(Sender: TObject);  // botón para agregar datos
  191.   var
  192.   Data: PData;
  193.   Node: PVirtualNode;
  194. begin
  195.   VST.Clear;
  196.   VST.NodeDataSize := SizeOf(TData);
  197.  
  198.   Node := VST.AddChild(nil);
  199.   Data := VST.GetNodeData(Node);
  200.   Data^.Fnombre := 'erick';
  201.   Data^.Fapellido := 'student';
  202.   Data^.Fedad := '18';
  203.   Data^.Ftrabajando := 'si';
  204.   Data^.FImageIndex := 0;
  205.  
  206.   Node := VST.AddChild(nil);
  207.   Data := VST.GetNodeData(Node);
  208.   Data^.Fnombre := 'magui';
  209.   Data^.Fapellido := 'enfermera';
  210.   Data^.Fedad := '25';
  211.   Data^.Ftrabajando := 'no';
  212.   Data^.FImageIndex := 1;
  213.  
  214.   Node := VST.AddChild(nil);
  215.   Data := VST.GetNodeData(Node);
  216.   Data^.Fnombre := 'leo';
  217.   Data^.Fapellido := 'ingenier';
  218.   Data^.Fedad := '30';
  219.   Data^.Ftrabajando := 'si';
  220.   Data^.FImageIndex := 2;
  221.  
  222. end;
  223.  
  224. procedure TForm1.Button2Click(Sender: TObject);  // botón para guardar
  225. begin
  226.   VST.SaveToFile('vst.dat');  // al usarlo asi me guarda el archivo junto a mi app
  227.  
  228. end;
  229.  
  230. procedure TForm1.Button3Click(Sender: TObject);  // botón para abrir
  231. begin
  232.   VST.LoadFromFile('vst.dat'); // abrimos el archivo que esta junto a nuestra app
  233. end;
  234.  
  235. procedure TForm1.Button4Click(Sender: TObject);
  236. begin
  237.   VST.Clear;
  238. end;
  239.  
  240. procedure TForm1.Button5Click(Sender: TObject);
  241. begin
  242.  
  243. end;
  244.  
  245. End.

Le comento amigo Gaston que de momento me esta trabajando bien, voy a seguir haciendo unas pruebas y cualquier cosa le comento, muchas gracias.  :)


  • 1

#8 Gaston

Gaston

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 mensajes

Escrito 22 febrero 2017 - 02:32

Me alegro mucho Monchito y gracias por el código, ya tengo por donde empezar el día que estudie ese componente que parece muy interesante.

 

Igual sigo sin entender esto: SizeOf(Char)

 

Saludos.


  • 0

#9 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

Escrito 22 febrero 2017 - 04:12

Me alegro mucho Monchito y gracias por el código, ya tengo por donde empezar el día que estudie ese componente que parece muy interesante.

 

Igual sigo sin entender esto: SizeOf(Char)

 

Saludos.

 

Cuando vas a guardar un string, o texto cualquiera, necesitas primero guardar el tamaño de éste y luego el texto.

Esto es necesario para luego al momento de abrir se sepa cuanto bytes hay que proceder a leer correctamente. El tipo string es un tipo "especial" cuyo tamaño varía de 0 a megas...

 

Lo que hace al algoritmo descripto arriba hace justamente esto:

 

1. Guarda el tamaño del texto

2. Guarda el texto, desde el byte 1 hasta la longitud en bytes del mismo. De esta le forma le indica que guarde exactamente todo el contenido del texto.

 

Al momento de la lectura hace el paso inverso:

1. Lee el tamaño

2. Lee el contenido de dicho tamaño y lo pone en la variable que se le pasa.

 

Cuando hace Len * SizeOf(char) justamente está reservando Len bytes necesarios, ya que un char ocupa 1 byte. En cada byte hay un caracter (1)

 

(1) Aunque esto funcionará siempre y cuando tengamos el control y usemos un juego de caracteres que ocupe exactamente 1 byte cada uno. Lazarus por defecto usa UTF-8, el cual es un formato de longitud variable. Por caso para representar la ñ se necesita 2 bytes mientras que para la n es 1 byte.

Debe tenerse especial cuidado en esto.

 

EDITO:

Ahora que lo repienso. Esto no hay que tenerle miedo ni cuidado. Al hacer Length() sobre un texto en UTF-8 este devolverá el tamaño considerando el sistema variable. Es decir que para la cadena "hola" devolverá justamente 4 y para "ñiño" devolverá 6.

 

Saludos,


  • 0

#10 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 22 febrero 2017 - 04:51

Buenas amigo Dephius, gracias por sus consejos para poder entender como trabaja los códigos, la verdad la mayoría solo los copie y pegue y estuve probando cambiando algunas cosillas, también le comento que hize una prueba rápida y efectivamente también trabaja con Ñ y Tildes, de todas maneras cualquier problema que encuentre les estaré pidiendo una mano. :)

 

Amigo Gaston el componente VirtualTreeView es como un listview con esteroides, trae muchas opciones y es muy personalizable, lo estoy comenzando a usar porque con el listview no podía hacer unas cosas, como por ejemplo hacer un filtrado de datos que contengan imágenes (íconos) tampoco el listview me permite integrarle un "treeview" y cuando uso íconos en un listview siempre aparecen con un marco blanco, según lo que he investigado todas esas cosas y más están resultas en "virtualtreeview" que es un componente creado para esos fines, como yo recién le estoy entrando me estoy encontrando con obstaculos, felizmente pude encontrar un poco de códigos por aquí y otros por allá, también me ayudo el archivo de ayuda del componente.

 

Bueno amigos espero no haberles aburrido con mi conversación, cualquier problema que me encuentre les estaré comunicando, saludos :) :)

 

PD: les adjunto mi pequeño proyecto

http://www.mediafire...ualtreeview.zip

 

Disculpen por usar mediafire, es que por este medio no me permite subirlo.


  • 0

#11 Gaston

Gaston

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 mensajes

Escrito 22 febrero 2017 - 08:46

 

Cuando hace Len * SizeOf(char) justamente está reservando Len bytes necesarios, ya que un char ocupa 1 byte. En cada byte hay un caracter (1)

 

Delphius, Estaba equivocado, creìa que solo se podìan pasar variables como parametros a la funcion pero veo que tambièn acepta tipos:

 

SizeOf returns the size, in bytes, of any variable or type-identifier.

 

De todas formas SizeOf(Char) siempre va a devolver 1 y multiplicar por 1 mucho sentido no tiene. Es lo que entiendo, desde luego puedo estar equivocado.

 

Monchito, gracias por la descripciòn de VST y mediafire lo pude descargar sin problemas.

 

Perdòn por los acentos, estoy en plena batalla con el teclado.

 

Saludos.


  • 0
Volver a Lazarus / FreePascal


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → Lazarus / FreePascal
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.