The code is from provided example:
I notice that example program SaveAs DICOM works fine as expected.
procedure TMainForm.btnSaveClick(Sender: TObject);
var
i: Integer;
BMP : TBitmap;
begin
SaveImageEnDialog1.AutoSetFilterFileType := -1;
SaveImageEnDialog1.FileName := '';
if SaveImageEnDialog1.Execute then
begin
//set output pixel format to 24 bit
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.SaveToFile(SaveImageEnDialog1.FileName); <-- This line do noting.
end;
end;
KZK