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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 How to Save DICOM file without color change?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
gildata Posted - May 01 2014 : 15:15:25
I tried convert DICOM fie from jpg image using DICOM DEMO.
Source is bellow.

// Save as DICOM
procedure TMainForm.btnSaveAsDicomClick(Sender: TObject);
begin
SaveImageEnDialog1.AutoSetFilterFileType := ioDicom;
SaveImageEnDialog1.Filename := '';
ImageEnMView1.MIO.Params[0].DICOM_Compression := iedcJpeg ;
ImageEnMView1.MIO.Params[0].DICOM_JPEGQuality := 100;
if SaveImageEnDialog1.Execute then
begin
ImageEnMView1.MIO.SaveToFileDICOM( SaveImageEnDialog1.FileName );
end;
end;

But obtained color is different JPG image and DICOM file.
How to DICOM file save?

Attached files.
Thank you.

Source Image:




DICOM image:
1   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - May 04 2014 : 19:43:00
Hi

Check the color depth of the image, e.g.

ImageEnMView1.MIO.Params[0].SamplesPerPixel := 3;
ImageEnMView1.MIO.Params[0].BitsPerSample := 8;
ImageEnMView1.MIO.DuplicateCompressionInfo;
for i := 0 to ImageEnMView1.ImageCount - 1 do
begin
  ImageEnMView1.GetTIEBitmap(i).PixelFormat := ie24RGB;
  ImageEnMView1.ReleaseBitmap(i);
end;
ImageEnMView1.MIO.Params[0].DICOM_Compression := iedcJpeg ;
ImageEnMView1.MIO.Params[0].DICOM_JPEGQuality := 100;

ImageEnMView1.MIO.SaveToFileDicom( SaveImageEnDialog1.FileName );


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com