|
I want to insert Private Tag to dicom file. For that I wrote following code
Dim nRet As Long DicomDS.LoadDS "c:\file1.dic", 0 DicomDS.EnableMethodErrors = False nRet = DicomDS.FindTag(131079) If nRet <> DICOM_SUCCESS Then DicomDS.InsertTag 131079, -1, "Test TAG", VR_CS, 1, 1, 1 DicomDS.InsertElement False, 131079, VR_CS, False, 0 DicomDS.StringValueCount = 1 DicomDS.StringValues(0) = "Test" DicomDS.SetStringValue (1) DicomDS.StringValueCount = 1 End If DicomDS.SaveDS "c:\file2.dic", 0
But if I open file2 and write following
DicomDS.FindTag(131079)
I get LEAD Error: General failure error.
I am using Lead 14 and vb6.0/
|