SetIntValue(DicomElement,IntPtr,UInt32) Method

'Declaration
 
Public Overloads Function SetIntValue( _
   ByVal element As DicomElement, _
   ByVal value As IntPtr, _
   ByVal count As UInteger _
) As Boolean

Public Sub DicomSetGetValueTest()
         'Make sure to initialize the DICOM engine, this needs to be done only once 
         'In the whole application
         DicomEngine.Startup()

      Dim dicomDataset As DicomDataSet = New DicomDataSet()
      Using (dicomDataset)
             dicomDataset.Reset()
             dicomDataset.Initialize(DicomClassType.Undefined, DicomDataSetInitializeType.ExplicitVRLittleEndian)
         Dim element As DicomElement = dicomDataset.InsertElement(Nothing, False, DicomTag.CineRate, DicomVRType.IS, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.SetIntValue(element, New Integer() {30}, 1)
            Dim value As Integer() = dicomDataset.GetIntValue(element, 0, 1) ' can also call GetLongValue
                 Debug.Assert(value(0) = 30)
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.ChannelMaximumValue, DicomVRType.OB, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.SetByteValue(element, New Byte() {55}, 1)
            Dim value As Byte() = dicomDataset.GetByteValue(element, 0, 1)
                 Debug.Assert(value(0) = 55)
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.PregnancyStatus, DicomVRType.US, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.SetShortValue(element, New Short() {2}, 1)
            Dim value As Short() = dicomDataset.GetShortValue(element, 0, 1)
                 Debug.Assert(value(0) = 2)
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.SliceLocation, DicomVRType.DS, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.SetDoubleValue(element, New Double() {10.5}, 1)
            Dim value As Double() = dicomDataset.GetDoubleValue(element, 0, 1)
                 Debug.Assert(value(0) = 10.5)
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.PresentationPixelMagnificationRatio, DicomVRType.FL, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.SetFloatValue(element, New Single() {3.2F}, 1)
             Dim value As Single() = dicomDataset.GetFloatValue(element, 0, 1)
                 Debug.Assert(value(0) = 3.2F)

                 ' Or you can use this overload
                 dicomDataset.SetFloatValue(element, 4.0F)
                 value = dicomDataset.GetFloatValue(element, 0, 1)
                 Debug.Assert(value(0) = 4.0F)
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.InstanceCreationDate, DicomVRType.DA, False, 0)
         If Not element Is Nothing Then
            Dim newvalue As DicomDateValue() = New DicomDateValue(0) {}
                 newvalue(0).Year = 2004
                 newvalue(0).Month = 1
                 newvalue(0).Day = 8
                 dicomDataset.SetDateValue(element, newvalue)
            Dim value As DicomDateValue() = dicomDataset.GetDateValue(element, 0, 1)
                 Debug.Assert((value(0).Year = 2004) AndAlso (value(0).Month = 1) AndAlso (value(0).Day = 8))

                 ' Or you can use the SetDateValue overload that takes a single DicomDateValue
                 dicomDataset.SetDateValue(element, New DicomDateValue(1961, 6, 5))
                 value = dicomDataset.GetDateValue(element, 0, 1)
                 Debug.Assert((value(0).Year = 1961) AndAlso (value(0).Month = 6) AndAlso (value(0).Day = 5))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.InstanceCreationTime, DicomVRType.TM, False, 0)
         If Not element Is Nothing Then
            Dim newvalue As DicomTimeValue() = New DicomTimeValue(0) {}
                 newvalue(0).Hours = 2
                 newvalue(0).Minutes = 3
                 newvalue(0).Seconds = 5
                 dicomDataset.SetTimeValue(element, newvalue)
            Dim value As DicomTimeValue() = dicomDataset.GetTimeValue(element, 0, 1)
                 Debug.Assert((value(0).Hours = 2) AndAlso (value(0).Minutes = 3) AndAlso (value(0).Seconds = 5))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.AcquisitionDateTime, DicomVRType.DT, False, 0)
         If Not element Is Nothing Then
            Dim newvalue As DicomDateTimeValue() = New DicomDateTimeValue(0) {}
                 newvalue(0).Year = 2004
                 newvalue(0).Month = 1
                 newvalue(0).Day = 8
                 newvalue(0).Hours = 2
                 newvalue(0).Minutes = 3
                 newvalue(0).Seconds = 5
                 dicomDataset.SetDateTimeValue(element, newvalue)
            Dim value As DicomDateTimeValue() = dicomDataset.GetDateTimeValue(element, 0, 1)
                 Debug.Assert((value(0).Hours = 2) AndAlso (value(0).Minutes = 3) AndAlso (value(0).Seconds = 5))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.PatientAge, DicomVRType.AS, False, 0)
         If Not element Is Nothing Then
            Dim newvalue As DicomAgeValue() = New DicomAgeValue(0) {}
                 newvalue(0).Number = 25
                 newvalue(0).Reference = DicomAgeReferenceType.Days
                 dicomDataset.SetAgeValue(element, newvalue)
            Dim value As DicomAgeValue() = dicomDataset.GetAgeValue(element, 0, 1)
                 Debug.Assert((value(0).Number = 25))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.PatientName, DicomVRType.PN, False, 0)
         If Not element Is Nothing Then
                 dicomDataset.FreeElementValue(element)
                 dicomDataset.SetStringValue(element, "John Doe", DicomCharacterSetType.Default)
                 Debug.Assert(dicomDataset.GetElementValueCount(element) = 1)
                 Debug.Assert(dicomDataset.GetStringValue(element, 0) = "John Doe")
             End If

         Dim inPreamble As Byte() = New Byte(127) {}
             For i As Integer = 0 To 127
                 inPreamble(i) = CByte(i)
             Next i
             dicomDataset.SetPreamble(inPreamble, 0, 128)
         Dim outPreamble As Byte() = dicomDataset.GetPreamble(128)

             ' Or you can use this overload which takes an offset
             dicomDataset.GetPreamble(outPreamble, 0, 128)

             Debug.Assert(inPreamble.Length = outPreamble.Length)

             element = dicomDataset.FindFirstElement(element, DicomTag.NumberOfRemainingSubOperations, True)
         If Not element Is Nothing Then
                 'We don't really need to do this
                 dicomDataset.FreeElementValue(element)
            Dim inBinaryValue As Byte() = New Byte(1) {}
                 inBinaryValue(0) = 0
                 inBinaryValue(1) = 1
                 dicomDataset.SetBinaryValue(element, inBinaryValue, 2)
            Dim outBinaryValue As Byte() = dicomDataset.GetBinaryValue(element, 2)
                 Debug.Assert((outBinaryValue(0) = 0) AndAlso (outBinaryValue(1) = 1))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.StudyDate, DicomVRType.DA, False, 0)
         If Not element Is Nothing Then
            Dim date1 As DicomDateValue = New DicomDateValue()
                 date1.Day = 1
                 date1.Month = 2
                 date1.Year = 2005
            Dim newvalue As DicomDateRangeValue() = New DicomDateRangeValue(0) {}
                 newvalue(0).Date1 = date1
                 newvalue(0).Type = DicomRangeType.Lower
                 dicomDataset.SetDateRangeValue(element, newvalue)
                 Dim value As DicomDateRangeValue = dicomDataset.GetDateRangeValue(element, 0)
                 Debug.Assert((value.Type = DicomRangeType.Lower) AndAlso (value.Date1.Year = 2005))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.StudyTime, DicomVRType.TM, False, 0)
         If Not element Is Nothing Then
                 Dim time1 As DicomTimeValue = New DicomTimeValue()
                 time1.Hours = 2
                 time1.Minutes = 1
                 time1.Seconds = 3
                 Dim newvalue As DicomTimeRangeValue() = New DicomTimeRangeValue(0) {}
                 newvalue(0).Time1 = time1
                 newvalue(0).Type = DicomRangeType.Lower
                 dicomDataset.SetTimeRangeValue(element, newvalue)
                 Dim value As DicomTimeRangeValue = dicomDataset.GetTimeRangeValue(element, 0)
                 Debug.Assert((value.Type = DicomRangeType.Lower) AndAlso (value.Time1.Hours = 2))
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.PatientID, DicomVRType.LO, False, 0)
             If Not element Is Nothing Then
                 dicomDataset.SetConvertValue(element, "154-4485", 1)
                 Debug.Assert(dicomDataset.GetConvertValue(element) = "154-4485")
             End If

             element = dicomDataset.InsertElement(Nothing, False, DicomTag.SelectorULValue, DicomVRType.UL, False, 0)
             If Not element Is Nothing Then
                 ' Set two unsigned integer values (minimum and maximum unsigned 32-bit values)
                 Dim values() As Long = {0, 4294967295}
                 dicomDataset.SetLongValue(element, values, 2)

                 Dim s As String = dicomDataset.GetConvertValue(element)
                 Debug.Assert(dicomDataset.GetConvertValue(element) = "0\4294967295")
             End If

         dicomDataset.Save(Path.Combine(LEAD_VARS.ImagesDir, "Test.dcm"), DicomDataSetSaveFlags.None)
         End Using

         DicomEngine.Shutdown()
     End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class