ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 SetTagString exception with dicom tag
 New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

jwest

Brazil
67 Posts

Posted - May 21 2016 :  16:24:55  Show Profile  Reply
Hi,

I am trying to create a dicomdir file.
I am getting an exception when I set the tag ($20,$10) with a empty value.

var da1:TIEDicomTags;
as1:TImageEnVect;
ss:string;
begin
...
da1 := TIEDicomTags.Create;
if assigned(as1.IO.Params.DICOM_Tags.GetTag($20, $10)) then begin
ss:=trim(as1.IO.Params.DICOM_Tags.GetTagString($20, $10));
//Here ss=''
da1.SetTagString($20, $10, ss); --->Exception
end;
...

What am I doing wrong?

xequte

38944 Posts

Posted - May 23 2016 :  18:51:37  Show Profile  Reply
Hi

You should use DeleteTag:

http://www.imageen.com/help/TIEDicomTags.DeleteTag.html

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
Go to Top of Page

jwest

Brazil
67 Posts

Posted - May 23 2016 :  19:31:22  Show Profile  Reply
Hi, Mr Nigel

I canīt remove the tag because is a tag type 2.

Type 2: Required to be in the SOP Instance but may contain the value of "unknown", or a zero length value.
(http://dicomlookup.com/type.asp)

1. I am trying to create a DICOMDIR file filling many tags manually, and I need that tag with a empty value or "unknown".
Can I put the string "unknown" as the name says?

2. Other question, is possible create a tag(group, element) empty and fill your tags childrens? How could I do it?
Go to Top of Page

xequte

38944 Posts

Posted - May 24 2016 :  20:04:02  Show Profile  Reply
Thanks, the code should be:

  ss := '';
  da1 := ImageEnMView1.MIO.Params[0].DICOM_Tags;
  if assigned( da1.GetTag( $20, $10 )) then
    da1.SetTagString( $20, $10, ss );

But I can reproduce the error and will investigate.


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
Go to Top of Page

xequte

38944 Posts

Posted - Jun 06 2016 :  18:01:12  Show Profile  Reply
Hi

We have a fix for this in our latest beta. Please email me for the source.



Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: