 06-27-2008, 3:17
|
sakthi
Joined on 05-09-2008
Posts 46
|
Re: How to insert Private tags in Dicom
|
  
|
|
|
hi i try to send a sample prog but getting some probs,thats y i have attached the code...
just do few things...
1.Imports this first..
Imports System.IO
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports Leadtools.MedicalViewer
Imports Leadtools.Dicom
Imports Leadtools.Codecs
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Text
Imports System.Net
Imports System.Threading
Imports Microsoft.Win32
Imports System.Convert
Imports Leadtools
Imports Leadtools.Dicoms
Imports System
Imports Microsoft.VisualBasic
2.please add the following function in any button ....
private sub addprivatetag()
Dim _ImageMain As RasterImage
RasterCodecs.Startup()
DicomEngine.Startup()
Dim codecs As RasterCodecs = New RasterCodecs()
Dim filepath As String = "D:\\sample.dcm"
Dim savepath As String = "D:\\sample1.dcm"
_ImageMain = codecs.Load(filepath) ' load window Bitmap file
Dim tag1 As DicomTag = DicomTagTable.Instance.Insert(1048645, &HFFFFFFFFL, "SystemID", DicomVRType.LO, 1, 1, 1)
Dim DS As DicomDataSet = New DicomDataSet
DS.Initialize(DicomClassType.Undefined, DicomDataSetInitializeType.ImplicitVRLittleEndian)
Dim elem As DicomElement = DS.FindFirstElement(Nothing, DicomTagType.PixelData, True)
DS.SetImage(elem, _ImageMain, DicomImageCompressionType.JpegLossless, _
DicomImagePhotometricInterpretationType.Monochrome2, _
_ImageMain.BitsPerPixel, 2, DicomSetImageFlags.AutoSetVoiLut)
Dim element As DicomElement
element = DS.InsertElement(Nothing, False, DicomTagType.CineRate, DicomVRType.IS, False, 0)
If Not element Is Nothing Then
DS.SetIntValue(element, New Integer() {999}, 1)
Dim value As Integer() = DS.GetIntValue(element, 0, 1) ' can also call GetLongValue
End If
'Dim tag1 As DicomTag = DicomTagTable.Instance.Insert(1048645, &HFFFFFFFFL, "SystemID", DicomVRType.LO, 1, 1, 1)
element = DS.InsertElement(Nothing, False, 1048645, DicomVRType.LO, False, 1)
If Not element Is Nothing Then
DS.FreeElementValue(element)
DS.SetStringValue(element, "SystemID", DicomCharacterSetType.Default)
End If
DS.Save(savepath, DicomDataSetSaveFlags.ExplicitVR)
RasterCodecs.Shutdown()
end sub
please check it out.....
thanks
|
|
|
|
|
Report
|
|
|
|