0

Hi all,
CAn anyone guide me how to read a .dcm(DICOM) file in vb 6.0

thanks,
sam


code:
please guide hoe to implement to a picture box control so that code works

Public Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type

Public Type RGBQUAD
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
rgbReserved As Byte
End Type

Public Type BITMAPINFO
bmiHeader As BITMAPINFOHEADER
bmiColors(255) As RGBQUAD
End Type

Public bmp_Info As BITMAPINFO
Public Const DIB_RGB_COLORS = 0

Code:

' Calculate No. of Bits.
bit = CInt(Val(dcm_0028.BITS_ALLOCATED) * Val(dcm_0028.SAMPLES_PER_PIXEL))

row = Val(dcm_0028.ROWS) ' Image height (or) Number of Rows
col = Val(dcm_00

2
Contributors
1
Reply
2
Views
9 Years
Discussion Span
Last Post by debasisdas
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.