Hi
It works fine when I test it here:
var
IO: TImageEnIO;
begin
// Write dicom test tag
IO := TImageEnIO.Create(NIL);
IO.LoadFromFileDicom( 'D:\Testing_Multimedia\Dicom\ADXFILE000164.dcm' );
try
IO.Params.DICOM_Tags.SetTagString( $4, $1430, 'STUDY', False );
IO.SaveToFileDicom( 'D:\test.dicom' );
finally
IO.Free;
end;
// Check for dicom test tag
ImageEnView1.IO.ParamsFromFile( 'D:\test.dicom ');
Caption := ImageEnView1.IO.Params.DICOM_Tags.GetTagString( $4, $1430 );
end;
Nigel
Xequte Software
www.imageen.com