Hola, estoy intentado copiar un treeview de un ordenador a otro ordenador, y lo estoy intentando como lo he visto en un truco:
Para grabar:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var
CorrienteF: TFileStream;
begin
CorrienteF:=TFileStream.Create('c:\kk\TV1',fmCreate or fmShareCompat);
CorrienteF.WriteComponent(Tv1);
CorrienteF.Free;
end;
Y para cargar:
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
CorrienteF:TFileStream;
begin
CorrienteF:=TFileStream.Create('c:\kk\TV1',fmOpenRead or fmShareDenyWrite);
CorrienteF.ReadComponent(Tv1);
CorrienteF.Free;
end;
pero no me funciona nada bien, asi que antes de ir recorriendo nodo a nodo y guardarlo en un txt, me gustaria saber si alguien me dice como hacerlo de otro modo.
Gracias, un saludo.