Hi, Mr Nigel,
I am trying read a DICOMDIR file.
To read it correctly, I derived a new component from TIEDicomTags class and I am working with it now.
I had to do a fix in ReadTag function to read SQ nested items. For sample,
if I had 6 items in my SQ tag, only the first was been read.
May be my fix can be useful for DICOM images also.
function TDicomReadContext.ReadTag(tags: TIEDicomTags): boolean;
....
.....
if vr = dvSQ then
begin
// read sequence of tags (Children)
lpos := Stream.Position;
Children := TObjectList.Create();
//// look for "Item tag"
//while (Stream.Position < lpos + datasize) or (datasize <= 0) do -->I did a fix to
while (Stream.Position <= lpos + datasize) or (datasize <= 0) do -- begin
Search
Maybe a Small Bug in ReadTag
Posted - May 30 2016 : 22:16:33
