I want to change image file format to DICOM.
So, I made simple function.
But there were problem.
Image quality was changed when i convert image file format.
Source Bitmap image was ok. But DICOM image was not good.
(-- I attaced Bitmap file and DICOM file.
-- I used ImageEn_5.0.6B_22451_Setup.exe )
[ my simple function ]
------------------------------
procedure BitmapToDicom(srcBMP, targetDICOM:String);
var
imgEn: TImageEnView;
begin
imgEn := TImageEnView.Create(nil);
try
imgEn.IO.LoadFromFile(srcBMP);
imgEn.IO.Params.DICOM_Compression := iedcUncompressed_Implicit;
imgEn.IO.Params.DICOM_JPEGQuality := 100;
imgEn.IO.SaveToFileDICOM(targetDICOM);
finally
FreeAndNil(imgEn);
end;
end;
Download Attachment: 201448184625_Image.zip
Search
