Index

Date: Tue, 28 Feb 2006 02:11:42 +0100
From: tom  Steema SL
Subject: Re: Loop with LoadTreeFromStream
Newsgroup: public.teetree1.delphi  

Claudio,

Does the tree has circular references between shapes?
This is something which teeTree can't handle.

If this is not the case, please provide me an example source code to
look at.

Thanks,
tom.

Claudio wrote:
> I have problems using LoadTreeFromStream.
>
> I'm using a TTree on a Form.
> I save the Tree on a Blob Database Field using:
>
> var
> DiagrammaStream: TStream;
> begin
> ...
> DiagrammaStream:= TMemoryStream.Create;
> DiagrammaStream.Seek(0, soFromBeginning);
> SaveTreeToStream(Diagramma, DiagrammaStream);
> TBlobField(FieldByName('DIAGRAMMA')).LoadFromStream(DiagrammaStream);
> ...
>
> All goes ok, the blob field contains data.
>
> if I try to load from Blob using
>
> DiagrammaStream:= CreateBlobStream(FieldByName('DIAGRAMMA'), bmRead);
> LoadTreeFromStream(TCustomTree(Diagramma), DiagrammaStream);
>
> On LoadTreeFromStream the CPU goes up to 100% and anything happens
> If I debug, the problem is in LoadTreeFromStream under
> tmpComp:=Reader.ReadRootComponent(ATree);
>
> Please help me!
>
> Thanks
>
> Claudio
>
>
>
>
>