ChangeTransferSyntax Example for Delphi

   // Load a Data Set
   if(LEADDicomDS1.LoadDS ('d:\lead14\dist\images\dicom\image2.dic', 0) = DICOM_SUCCESS)then
   begin
       // Change the Transfer Syntax to Explicit VR Big Endian
      LEADDicomDS1.ChangeTransferSyntax (UID_EXPLICIT_VR_BIG_ENDIAN, 0, 0);

      // Save the new Data Set
      LEADDicomDS1.SaveDS('d:\temp\Temp.dic', 0);
   end;